批处理脚本按a/d键调整变量长度运行异常如何解决

原脚本存在的核心错误 #

• 主循环逻辑错误：:m标签下每次循环都会无条件给变量x追加字符0，无论按什么键都会让x变长，和按键交互的需求完全脱节
• 变量名混用：预先定义的长度变量是xnum，后续加减长度、判断长度时用的是未定义的pos变量，变量完全不对应
• 分支穿透bug：按a键跳转到:a标签执行完逻辑后，会直接顺次执行下方:d标签的代码，等于按a也会触发变长操作，直接抵消缩短效果
• 判断逻辑错误：直接用%x% gtr 1做比较是把全0的字符串当数字比较，永远得到0的结果，长度判断完全失效；且初始代码set x=把x设为空值，不符合初始值为0的要求
• 缺少字符串截取/追加的对应操作：原代码里根本没有写“给x追加0”“截短x”的实际赋值逻辑，只改了不存在的pos变量，x本身的内容不会对应变化

修复后可直接运行的代码 #

@echo off
setlocal enabledelayedexpansion
:: 初始化变量：x初始值为0，初始长度为1
set "x=0"
set /a x_length=1

:loop
cls
echo !x!
:: 监听按键，a返回errorlevel=1，d返回errorlevel=2
choice /c ad /n
if %errorlevel% equ 1 goto action_shorten
if %errorlevel% equ 2 goto action_extend
goto loop

:action_shorten
:: 长度大于1时才截短，避免删成空串
if !x_length! gtr 1 (
    set /a x_length-=1
    set "x=!x:~0,-1!"
)
goto loop

:action_extend
:: 长度小于17时才追加0，符合长度上限要求
if !x_length! lss 17 (
    set /a x_length+=1
    set "x=!x!0"
)
goto loop

修复说明 #

• 开启延迟扩展保证循环、分支内的变量能实时读取最新值
• 统一用x_length记录当前字符串长度，所有长度判断、加减操作都使用该变量，不存在变量名不匹配问题
• 两个按键分支执行完成后都直接跳回主循环，彻底解决分支穿透问题
• 移除主循环里无条件追加0的错误逻辑，仅在按d键且长度未到上限时追加0，按a键且长度大于1时通过字符串截取!x:~0,-1!去掉最后一位实现缩短效果
• 修正初始值，x启动时默认值为0，初始长度为1，符合需求

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