批处理如何分割点分字符串 将末位数字减1后替换原串

问题说明 #

现有批处理脚本需要接收格式类似7.0.5或10.34.7.2的传入参数，需求为提取字符串最后一段数字，将其减1后替换原字符串对应的末位数字段，生成新字符串。
原编写的代码存在核心错误，无法正常运行：

• 分段循环仅能读取第一段数字：for /f "tokens=1-3 delims=." %%a 语法中，tokens=1-3会把3个分段分别存入%%a、%%b、%%c，原代码仅声明%%a变量，自然拿不到后续分段；且写死匹配3段的逻辑无法兼容4段及以上的输入格式
• 数组读取失败输出ECHO is off.：开启延迟扩展后，循环内动态赋值的数组元素不能用%numbers[%%a]%的立即展开语法读取，必须使用!numbers[%%a]!的延迟展开语法，否则读到的永远是空值，echo空值就会触发系统默认提示
• 未实现最终的字符串拼接替换逻辑

可直接运行的修正代码 #

不需要硬编码适配固定段数，自动兼容任意长度的点分数字串：

@echo off
setlocal enabledelayedexpansion

set "tag=%~1"
echo 输入字符串: %tag%

:: 提取最后一段数字
for %%a in ("%tag:.=" "%") do set "lastNum=%%~a"
echo 末位原始数字: %lastNum%

:: 计算减1后的结果
set /a prevNum=lastNum - 1
echo 末位减1结果: %prevNum%

:: 计算字符串长度，截取末位之前的前缀部分
set "tagLen=0"
:calTagLen
if "!tag:~%tagLen%,1!" neq "" set /a tagLen+=1 & goto calTagLen

set "lastLen=0"
:calLastLen
if "!lastNum:~%lastLen%,1!" neq "" set /a lastLen+=1 & goto calLastLen

set /a prefixLen=tagLen - lastLen - 1
set "prefix=!tag:~0,%prefixLen%!"

:: 拼接生成最终字符串
set "newTag=!prefix!.%prevNum%"
echo 最终生成字符串: %newTag%

endlocal

运行效果示例 #

• 传入参数7.0.5，最终输出7.0.4
• 传入参数10.34.7.2，最终输出10.34.7.1
• 传入参数2.5.10，最终输出2.5.9

内容的提问来源于stack exchange，提问作者zynovij