中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 15:01

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

DOS批处理 & 脚本技术（批处理室） » 求个文本合并的批处理或VBS

可打印版本　822 / 10

第1楼　77720666	发表于 2009-04-07 06:29
初级用户　发帖 46　积分 59
求个文本合并的批处理或VBS ab两个文本~ 将b文本每行内容插在a文本对应行的后面如： a文本内容 123 456 789 ... b文本内容 abc def hij ... 处理后 123----abc 456----def 789----hij 想了很久不知道该怎么写

第2楼　netbenton	发表于 2009-04-07 07:31
银牌会员　发帖 752　积分 1,916　来自广西
@echo off set n=0 for /f "tokens=" %%a in (a.txt) do ( set/a n+=1 call set #%n%#=%%a ) set n=0 for /f "tokens=" %%a in (b.txt) do ( set/a n+=1 call echo.%%#%n%#%%----%%a ) pause

第3楼　moniuming	发表于 2009-04-07 07:46
银牌会员　发帖 574　积分 1,335　来自广西
如果两个文本的行数一样,可以参考下面的代码: @echo off for /f "delims=" %%a in (a.txt) do ( call :lp "%%a" ) pause&goto :eof :lp for /f "%skp% delims=" %%b in (b.txt) do ( set /a n+=1 call set skp=skip=%%n%% echo.%~1---%%b goto :eof )

第4楼　moniuming	发表于 2009-04-07 07:52
银牌会员　发帖 574　积分 1,335　来自广西
2楼的应该是这样吧: @echo off set n=0 for /f "tokens=" %%a in (a.txt) do ( set/a n+=1 call set #%%n%%#=%%a ) set n=0 for /f "tokens=" %%a in (b.txt) do ( set/a n+=1 call call echo.%%%%#%%n%%#%%%%----%%a ) pause

第5楼　s11ss	发表于 2009-04-07 08:08
银牌会员　发帖 566　积分 2,098
'cscript -nologo a.vbs Set oFso = CreateObject("Scripting.FileSystemObject") Set oFileA = oFso.OpenTextFile("a.txt") Set oFileB = oFso.OpenTextFile("b.txt") While Not (oFileA.AtEndOfLine Or oFileB.AtEndOfLine) WSH.Echo oFileA.ReadLine & "----" & oFileB.ReadLine Wend

第6楼　netbenton	发表于 2009-04-07 09:06
银牌会员　发帖 752　积分 1,916　来自广西
4楼正解，偶是漏掉了一层call 见笑了。^_^

第7楼　everest79	发表于 2009-04-07 10:37
金牌会员　发帖 1,127　积分 2,564
无差错行对应实例 @echo off for /f "skip=4 tokens=1,2 delims=" %%i in ('find /v /n "" ?.txt^\|sort') do ( If Not defined textnewline%%i ( set/p=%%j---<nul set textnewline%%i=%%i ) else ( echo %%j ) )>>output.txt

第8楼　s11ss	发表于 2009-04-07 11:11
银牌会员　发帖 566　积分 2,098
不行的，如[1]的下一行可能是[10]

第9楼　everest79	发表于 2009-04-07 11:33
金牌会员　发帖 1,127　积分 2,564
这个没考虑，哈哈

第10楼　77720666	发表于 2009-04-08 06:05
初级用户　发帖 46　积分 59
谢谢各位了~ 看来最简单还是用VBS

第11楼　77720666	发表于 2009-04-08 06:07
初级用户　发帖 46　积分 59
Originally posted by everest79 at 2009-4-7 10:37 AM: 无差错行对应实例 @echo off for /f "skip=4 tokens=1,2 delims=" %%i in ('find /v /n "" ?.txt^\|sort') do ( If Not defined textnewline%%i ( set/p=%%j---< ... 对不起，您最近 24 小时评分数超过 5 点限制，请返回。不好意思了

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