中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 06:28

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » [出题][限新手]将连续空格替换为一个<tab>键

可打印版本　926 / 6

第1楼　moniuming	发表于 2009-03-13 09:25
银牌会员　发帖 574　积分 1,335　来自广西
[出题][限新手]将连续空格替换为一个<tab>键只限新手现在有一个文本"1.txt",文本中有多行多列,列数不同,各列中是以空格为分隔符的,空格的数目不相同. 要求:把1.txt中各列间的所有空格用一个<tab>键代替,并写入2.txt中. 效果如下: 1.txt 1 2 3 4 5 6 1 2 3 4 5 6 7 8 1 2 3 4 5 6 1 2 3 4 5 6 7 1 2 3 4 5 6 7 2.txt 1 2 3 4 5 6 1 2 3 4 5 6 7 8 1 2 3 4 5 6 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1.txt可用下面的代码来生成: @echo off setlocal enabledelayedexpansion for /l %%a in (1 1 10) do (set "kong=!kong! ") for /l %%a in (1 1 5) do ( set /a num=!random!%%5+5 set "str=" for /l %%a in (1 1 !num!) do ( set /a var=!random!%%5+5 call set "str=!str!%%a%%kong:~0,!var!%%" ) echo.!str! )>>1.txt

第2楼　BaseCoder	发表于 2009-03-13 11:02
初级用户　发帖 13　积分 20
@echo off&setlocal enabledelayedexpansion for /f "tokens=*" %%i in (1.txt) do ( call :kp "%%i" >>2.txt echo !all! set all= ) pause :kp set x=%~1 :lp set a=%x:~,1% set "x=%x:~1% if not "%a%"==" " set "all=!all!%a% " if defined x (goto lp) else (goto :eof)

第3楼　netbenton	发表于 2009-03-13 11:08
银牌会员　发帖 752　积分 1,916　来自广西
@echo off (for /f "tokens=" %%a in (1.txt) do call :sub %%a)>2.txt pause goto :eof :sub if "%2"=="" echo.%1&goto :eof set /p =%1<nul shift goto :sub [ Last edited by netbenton on 2009-3-13 at 18:50* ]

第4楼　tireless	发表于 2009-03-13 12:31
银牌会员　发帖 1,122　积分 2,025
@echo off setlocal enabledelayedexpansion (for /f "delims=" %%a in (1.txt) do ( set str= for %%i in (%%a) do set str=!str!%%i echo !str:=! ))>2.txt [ Last edited by tireless on 2009-3-13 at 12:32* ]

第5楼　BaseCoder	发表于 2009-03-14 05:35
初级用户　发帖 13　积分 20
set fso=createobject("scripting.filesystemobject") set fc=fso.createtextfile("2.txt") set f=fso.opentextfile("1.txt") while f.atendofstream <> true stro=f.readline for i=0 to len(stro) if mid(stro,i+1,1)<>" " then s=s&mid(stro,i+1,1)&" " next fc.writeline s s="" wend

第6楼　moniuming	发表于 2009-03-16 00:02
银牌会员　发帖 574　积分 1,335　来自广西
点评一下: 2楼的通用性不高. 3楼shift的用法很好,能加的分都加了. 4楼是最普遍的方法了. 5楼的不敢评价... 感慨一下:看来论坛里的是牛人居多啊,竟然没什么新手来试试,唉... 帖一个另类的代码吧,效率不高: @echo off setlocal enabledelayedexpansion for %%a in (1 2) do ( type nul>%%a.txt ) for /l %%a in (1 1 10) do (set "kong=!kong! ") ( for /l %%a in (1 1 5) do ( set /a num=!random!%%5+5 set "str=" for /l %%a in (1 1 !num!) do ( set /a var=!random!%%5+5 call set "str=!str!%%a%%kong:~0,!var!%%" ) echo.!str! ) )>1.txt ( for /f "delims=" %%a in (1.txt) do ( set "str=" call :lp "%%a" echo.!str! ) )>2.txt for %%a in (1 2) do ( echo.%%a.txt type %%a.txt ) pause&goto :eof :lp for /f "tokens=1,*" %%a in (%1) do ( if not "%%b"=="" ( set "str=!str!%%a " call :lp "%%b" ) else ( set "str=!str!%%a" ) )

第7楼　asnahu	发表于 2009-08-16 07:10
初级用户　发帖 53　积分 99
方法和tireless一样;) @ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION FOR /F "TOKENS=*" %%I IN (1.TXT) DO ( SET "FOO=%%I" FOR %%A IN (%%I) DO ( SET FOO=!FOO:%%A=%%A#! SET FOO=!FOO: =! SET FOO=!FOO:#=! ) ECHO.!FOO! ) PAUSE>NUL

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023