有a.txt内容如下：
要求通过批处理输出如下：
1aa0s
123bbhs001
779qq002
即删除字母以前所有的0。
0001000a0s
12300bhs001
0779q002要求通过批处理输出如下：
1aa0s
123bbhs001
779qq002
即删除字母以前所有的0。
批处理之家新域名：www.bathome.net
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 文本输出小考验（看似容易）
查看 1,067 回复 13
楼 主
文本输出小考验（看似容易）
发表于 2008-04-29 00:36 · 中国 湖南 株洲 电信
第 2 楼
发表于 2008-04-29 00:46 · 中国 山东 淄博 联通
貌似还是得用变量截取和移位，一次皆两个，判断后面的是否小于a 如果小于a在判断前面的那个是不是0 是0就删除 我的思路~
[ Last edited by pusofalse on 2008-4-29 at 12:48 AM ]
[ Last edited by pusofalse on 2008-4-29 at 12:48 AM ]
第 3 楼
发表于 2008-04-29 00:47 · 中国 湖南 株洲 电信
写出来看看，我觉得你想得复杂了点。
批处理之家新域名：www.bathome.net
第 4 楼
发表于 2008-04-29 01:02 · 中国 山东 淄博 联通
看了你那篇帖子我知道了~ 除以100取余！~
但能不能写出来是个问题。。。
但能不能写出来是个问题。。。
第 5 楼
发表于 2008-04-29 01:12 · 中国 湖南 株洲 电信
提示：解这个问题还是用截取字符方便点。
批处理之家新域名：www.bathome.net
第 6 楼
发表于 2008-04-29 01:16 · 中国 湖南 娄底 电信
是删除第一个字母前面所有的０吗？
1aa0s
a和s中间的这个0不要删除是吗？
1aa0s
a和s中间的这个0不要删除是吗？
致精致简！
第 7 楼
发表于 2008-04-29 01:18 · 中国 湖南 株洲 电信
是的
批处理之家新域名：www.bathome.net
第 8 楼
发表于 2008-04-29 01:25 · 中国 山东 淄博 联通
能提示一下怎样才能判断出 0在字母前面吗？
第 9 楼
发表于 2008-04-29 01:30 · 中国 湖南 株洲 电信
判断字母就是的
批处理之家新域名：www.bathome.net
第 10 楼
发表于 2008-04-29 01:31 · 中国 湖南 娄底 电信
看来得先判断出第几位不是数字，这样就得一个一个截取，不知道有没有更高效的办法？
致精致简！
第 11 楼
我还是来抛块砖了：
发表于 2008-04-29 01:33 · 中国 湖南 株洲 电信
@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!
)
)批处理之家新域名：www.bathome.net
第 12 楼
发表于 2008-04-29 01:52 · 中国 河南 郑州 联通
这是删除最后字母前的所有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
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 ]
第 13 楼
发表于 2008-04-29 01:58 · 中国 湖南 娄底 电信
:
@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
致精致简！
第 14 楼
发表于 2008-04-29 23:24 · 中国 江苏 南京 电信
很复杂吗？？？？？？
论坛跳转: