中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 求个文本合并的批处理或VBS 上一主题 | 下一主题
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『楼 主』:  求个文本合并的批处理或VBS

ab两个文本~ 将b文本每行内容插在a文本对应行的后面 如: a文本内容 123 456 789 ... b文本内容 abc def hij ... 处理后 123----abc 456----def 789----hij 想了很久不知道该怎么写


2009-4-7 06:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 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 echo.%%#%n%#%%----%%a ) pause


   此帖被 +1 点积分    点击查看详情   
评分人:【 77720666 分数: +1  时间:2009-4-8 06:05




精简 [你的+我的+他的]=>[大家的] 个人网志
2009-4-7 07:31
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
moniuming
银牌会员

永远的菜鸟



积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
『第 3 楼』:  

如果两个文本的行数一样,可以参考下面的代码:
@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
)


   此帖被 +1 点积分    点击查看详情   
评分人:【 77720666 分数: +1  时间:2009-4-8 06:06


2009-4-7 07:46
查看资料  发短消息 网志   编辑帖子  回复  引用回复
moniuming
银牌会员

永远的菜鸟



积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
『第 4 楼』:  

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


   此帖被 +1 点积分    点击查看详情   
评分人:【 77720666 分数: +1  时间:2009-4-8 06:06


2009-4-7 07:52
查看资料  发短消息 网志   编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 5 楼』:  

'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


   此帖被 +2 点积分    点击查看详情   
评分人:【 77720666 分数: +2  时间:2009-4-8 06:05


2009-4-7 08:08
查看资料  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 6 楼』:  

4楼正解, 偶是漏掉了一层call 见笑了。^_^




精简 [你的+我的+他的]=>[大家的] 个人网志
2009-4-7 09:06
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 7 楼』:  

无差错行对应实例
@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




49206C6F766520796F752067757973 54656C3A3133383238343036373837
2009-4-7 10:37
查看资料  发短消息 网志   编辑帖子  回复  引用回复
s11ss
银牌会员





积分 2098
发帖 566
注册 2007-9-11
状态 离线
『第 8 楼』:  

不行的,如[1]的下一行可能是[10]


2009-4-7 11:11
查看资料  发短消息 网志   编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 9 楼』:  

这个没考虑,哈哈




49206C6F766520796F752067757973 54656C3A3133383238343036373837
2009-4-7 11:33
查看资料  发短消息 网志   编辑帖子  回复  引用回复
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『第 10 楼』:  

谢谢各位了~ 看来最简单还是用VBS


2009-4-8 06:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『第 11 楼』:  

Originally posted by everest79 at 2009-4-7 10:37 AM: 无差错行对应实例 [code] @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 点 限制,请返回。 [ 点击这里返回上一页 ] 不好意思了


2009-4-8 06:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: