rat

@echo off
:accept
set /p n=Please input a number:
echo.%n%|findstr "^[0-9][0-9]*$">nul||goto accept

:loop
if "%n:~0,1%" neq "" if "%n:~0,1%"=="0" call set n=%%n:~1%%&goto loop

echo.%n%
set "n="
pause
复制代码

[ 本帖最后由 rat 于 2009-1-15 21:59 编辑 ]

rat

@echo off & setlocal enabledelayedexpansion
:accept
set /p n=Please input a number:
echo.%n%|findstr "^[0-9][0-9]*$">nul||goto accept

set i=0&set "s="&set "f="

:loop
if "!n:~%i%,1!" neq "" set "s=!s! !n:~%i%,1!"&set /a i=i+1&goto loop

for %%a in (%s%) do if not defined f (if %%a neq 0 set r=!r!%%a&set f=1) else set r=!r!%%a
echo.%r%
pause
复制代码

rat

@set @j=1/*&set "@j="&set /p n=Input a number:&call cscript -nologo -e:jscript "%~f0" %%n%%&set "n="&pause&goto:eof */
if(!isNaN(WSH.Arguments(0)))WSH.Echo(WSH.Arguments(0).replace(/^(0+)/, ""))
复制代码

rat

@set /p n=Plz input:&(call echo e0:200 '%%n%%$'&more /e +1 "%~f0")|debug|findstr /v "^[I\-0P]"&pause>nul&goto:eof
a100
mov ds,ax
cmp byte ptr [200+bx],30
je 113
lea dx,[200+bx]
mov ah,9
int 21
int 20
inc bx
jmp 102

g
q
复制代码

rat

'&@cls&set /p n=Plz input:&call cscript -nologo -e:vbs "%~f0" %%n%%&pause&goto:eof
WSH.Echo Replace(LTrim(Replace(WSH.Arguments(0), "0", " ")), " ", "0")
复制代码

rat

@echo off
:111
set "a="
set /p a="请输入:"
echo %a%|findstr "^[0-9][0-9]*$">nul
if %errorlevel%==1 echo %a%不是纯数字&goto 111
:222
if "%a:~0,1%"=="0" set "a=%a:~1%"&goto 222
echo 除0纯数字%a%&goto 111
复制代码