ann

也发一个吧，没考虑太多

@echo off&setlocal enabledelayedexpansion
set /p sr=请输入数字：
for /l %%a in (0 1 1000) do (set sw=!sr:~%%a,1!&if not "!sw!"=="0" (call :qc %%a))
:qc
set aa=%1
goto ii
:ii
set sc=!sr:~%aa%!
echo %sc%
goto end
:end
pause>nul&exit
复制代码