中国DOS联盟

有a.txt内容如下：

0001000a0s

12300bhs001

0779q002

要求通过批处理输出如下：
1aa0s
123bbhs001
779qq002
即删除字母以前所有的0。

貌似还是得用变量截取和移位，一次皆两个，判断后面的是否小于a 如果小于a在判断前面的那个是不是0 是0就删除 我的思路~

Last edited by pusofalse on 2008-4-29 at 12:48 AM ]

写出来看看，我觉得你想得复杂了点。

看了你那篇帖子我知道了~ 除以100取余！~
但能不能写出来是个问题。。。

提示：解这个问题还是用截取字符方便点。

是删除第一个字母前面所有的０吗？
1aa0s
a和s中间的这个0不要删除是吗？

是的

能提示一下怎样才能判断出 0在字母前面吗？

判断字母就是的

看来得先判断出第几位不是数字，这样就得一个一个截取，不知道有没有更高效的办法？

@echo off&setlocal enabledelayedexpansion

for /f "delims=" %%i in (a.txt) do set code=&set str=%%i&call :lp 

pause>nul&goto :eof

:lp

if defined str (

   set var=!str:~,1!

   if "!var!"=="0" set "var="

   set code=!code!!var!

   if !var! leq 9 (

      set str=!str:~1!&goto lp

      ) else (

      set code=!code!!str!&echo !code!

   )

)

这是删除最后字母前的所有0字符!

@echo off
set/p h=输入字串
:js
set/a l+=1
call set "w=%%h:~-%l%%%"
echo %w%|findstr/i &&goto zq ||goto js
:zq
call set "q=%%h:~0,-%l%%%"
set "q=%q:0=%"
echo %q%%w%
pause

删除第一个字母前面的0字符略有改动就行了!还用写吗?
@echo off
set/p h=输入字串
:js
set/a l+=1
call set "q=%%h:~,%l%%%"
echo %q%|findstr/i >nul &&goto zq ||goto js
:zq
set "q=%q:0=%"
call set "w=%%h:~%l%%%"
echo %q%%w%
pause

Last edited by qwd on 2008-4-29 at 04:04 AM ]

:

@echo off

for /l %%a in (0 1 9) do set _%%a=a

for /f "delims=" %%a in (a.txt) do (

    set var=&set str=%%a

    call :loop

)

pause

:loop

   set num=%str:~0,1%

   if defined _%num% (set var=%var%%num%) else (

      echo %var:0=%%str%&goto :eof

   )

   set str=%str:~1%

goto loop

很复杂吗？？？？？？