[ 新手习题] 批处理去除字符串前所有的0

skuny

感谢rat提出纠正哈！！

Batcher

右上角有个按钮“新帖”

myzwd

1. 
   
2. @echo off
   
3. set /p str=
   
4. echo. %str%
   
5. echo *****************************
   
6. if %str:~0,1% neq 0 (echo This is not a numeral ---NaN  & echo bye & goto:eof)
   
7. echo orginal str---%str%
   
8. 
   
9. :one
   
10. if %str:~0,1% equ 0 (set str=%str:~1% )
    
11. if %str:~0,1% equ 0 goto one
    
12. 
    
13. 
    
14. :end
    
15. echo string after delete zero---- %str%

复制代码

[ 本帖最后由 myzwd 于 2009-2-28 17:31 编辑 ]

keen

我来凑一个

1. 
   
2. @echo off
   
3. set /p num=please input number:
   
4. :start
   
5. set var=%num:~0,1%
   
6. if %var% equ 0 (set num=%num:~1% & goto start) else (echo %num% & pause)
   

复制代码

cainiao736

1. @echo off
   
2. set /p str=请输入字符：
   
3. :begin
   
4. set a=%str:~0,1%
   
5. if  not %a%==0 (goto eof) else ( set %a%==""&&set str=%str:~1%&&goto begin )
   
6. :eof
   
7. echo %str%
   
8. pause

复制代码

[ 本帖最后由 cainiao736 于 2009-3-26 22:33 编辑 ]

flyingsand

1. @echo off
   
2. :input
   
3. cls
   
4. set /p str=请输入一串字符（纯数字）：
   
5. echo.%str%|findstr "^[0-9]*$">nul|| (cls& echo 所输入的不是纯数字，请重新输入& pause& goto input)
   
6. for /f "delims=0 tokens=1*" %%i in ("10%str%") do set str2=%%j
   
7. cls
   
8. echo 你输入的字符串为：%str%
   
9. echo 去前面所有的零为：%str2%
   
10. pause
    
11. goto input

复制代码

cheng520

我菜鸟而且,来瞧瞧

we6540

1. @echo off
   
2. setlocal EnableDelayedExpansion
   
3. set /p d=用户输入一串字符:
   
4. for %%i in (%d%) do (
   
5. set a=%%i
   
6. set b=!a:~1,5!
   
7. set c=!b:~-4!
   
8. echo !c!
   
9. )
   
10. pause
    
11. set a=
    
12. set b=
    
13. set c=
    
14. set d=

复制代码

bbwanwt123

哈哈 各有千秋呀

dosbat

1. @echo off
   
2. set /p n=请输入字符串：
   
3. 
   
4. echo %n%|findstr "^[0-9][0-9]*$">nul
   
5. if errorlevel 1 echo 不是纯数字&pause&goto :eof else (
   
6. :loop
   
7.         if "%n:~0,1%"=="0" (
   
8.                 set n=%n:~1%
   
9.                 echo %n%
   
10.                 goto loop
    
11.         ) else goto ex    ::一旦出现第一个不是0的字符则跳出
    
12. 
    
13. )
    
14. :ex
    
15. echo %n%
    
16. pause

复制代码

battab

回复 1# yslyxqysl

1. @echo off
   
2. :r
   
3. set "input="
   
4. set /p input=请输入要入理的数字串：
   
5. echo %input%|findstr "^[0-9][0-9]*$">nul||(echo 包含非数字)&&goto r
   
6. set str=%input%
   
7. :l
   
8. if "%str:~0,1%"=="0" (set str=%str:~1%) else (goto end)
   
9. goto l
   
10. 
    
11. :end
    
12. echo %str%
    
13. pause>nul
    
14. echo 继续请按r,退出请按任意键。
    
15. set "enter="
    
16. set /p enter=请输入：
    
17. if "%enter%"=="r" goto r else exit
    
18. 
    
19. 
    

复制代码

sbjugt

@echo off
echo 请输入内容
set /p a=

:a
if %a:~0,1% neq 0 goto :b
set a=%a:~1%
goto :a

:b
echo %a%
pause

shelluserwlb

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. :again
   
4. set /p n=请输入一段字符（纯数字）：
   
5. echo %n%|findstr "^[0-9][0-9]*$">nul||goto again
   
6. for /l %%i in (0,1,1000) do (
   
7.     echo !n:~%%i,1!|findstr "0" >nul||(echo !n:~%%i! & goto :end)
   
8. )
   
9. :end
   
10. pause

复制代码

amwfjhh

rat 发表于 2009-1-15 22:54

   
批处理文件当js文件用，学习了……

ann

也发一个吧，没考虑太多

1. @echo off&setlocal enabledelayedexpansion
   
2. set /p sr=请输入数字：
   
3. for /l %%a in (0 1 1000) do (set sw=!sr:~%%a,1!&if not "!sw!"=="0" (call :qc %%a))
   
4. :qc
   
5. set aa=%1
   
6. goto ii
   
7. :ii
   
8. set sc=!sr:~%aa%!
   
9. echo %sc%
   
10. goto end
    
11. :end
    
12. pause>nul&exit

复制代码