用批处理合成二个文本的同一行

光能 · 发表于 2012-10-24 14:42:28

有二个文本 a.txt 和 b.txt

a.txt内容如下

姓名
张三
李四
黄五

b.txt 内容如下

数字
98
120
99

想把a.txt与b.txt文本同一行合并在一起存进c.txt文本中

得到的内容如下

姓名数字a
张三 98
李四 120
黄五 99

请问用批处理如何完成以上工作

谢谢

光能 · 发表于 2012-10-24 14:39:37

有二个文本 a.txt 和 b.txt

a.txt内容如下

姓名
张三
李四
黄五

b.txt 内容如下

数字
98
120
99

想把a.txt与b.txt文本同一行合并在一起存进c.txt文本中

得到的内容如下

姓名数字
张三 98
李四 120
黄五 99

请问用VBS如何完成以上工作同行合并中空格要不要都可以

谢谢

apang · 发表于 2012-10-24 21:20:50

vbs学习中。。。

Set FSO = CreateObject("Scripting.FileSystemObject")
A = Split(FSO.OpenTextFile("a.txt",1).ReadAll,vbCrLf)
B = Split(FSO.OpenTextFile("b.txt",1).ReadAll,vbCrLf)
If Ubound(A) >= Ubound(B) Then
For i = 0 To Ubound(A)
If i <= Ubound(B) Then A(i) = A(i) & " " & B(i)
Next
Str = Join(A,vbCrLf)
Else
For i = 0 To Ubound(B)
If i <= Ubound(A) Then B(i) = A(i) & " " & B(i)
Next
Str = Join(B,vbCrLf)
End If
FSO.CreateTextFile("c.txt",True).Write Str
MsgBox "OK"

复制代码

QIAOXINGXING · 发表于 2012-10-24 22:24:31

http://www.bathome.net/thread-15878-1-1.html

韩立 · 发表于 2012-10-24 22:33:42

看到更好的了，不过写了就贴上来了，

@echo off
cd.>3.txt
for /f "delims=" %%i in (a.txt) do (
for /f "delims=" %%j in (b.txt) do (
find /i "%%i" 3.txt || find /i "%%j" 3.txt || echo %%i %%j
>>3.txt))
pause

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 用批处理合成二个文本的同一行

二个文本同行合成

评分