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

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

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

a.txt内容如下

姓名
张三
李四
黄五


b.txt 内容如下

数字
98
120
99



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

得到的内容如下

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

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

谢谢

看到更好的了,不过写了就贴上来了,
  1. @echo off
  2. cd.>3.txt
  3. for /f "delims=" %%i in (a.txt)  do (
  4. for /f "delims=" %%j in (b.txt)  do (
  5. find /i "%%i" 3.txt || find /i "%%j" 3.txt || echo %%i %%j
  6. >>3.txt))
  7. pause
复制代码

TOP

TOP

vbs学习中。。。
  1. Set FSO = CreateObject("Scripting.FileSystemObject")
  2. A = Split(FSO.OpenTextFile("a.txt",1).ReadAll,vbCrLf)
  3. B = Split(FSO.OpenTextFile("b.txt",1).ReadAll,vbCrLf)
  4. If Ubound(A) >= Ubound(B) Then
  5.    For i = 0 To Ubound(A)
  6.       If i <= Ubound(B) Then A(i) = A(i) & " " & B(i)
  7.    Next
  8.    Str = Join(A,vbCrLf)
  9. Else
  10.    For i = 0 To Ubound(B)
  11.       If i <= Ubound(A) Then B(i) = A(i) & " " & B(i)
  12.    Next
  13.    Str = Join(B,vbCrLf)
  14. End If
  15. FSO.CreateTextFile("c.txt",True).Write Str
  16. MsgBox "OK"
复制代码
1

评分人数

    • 光能: 很容易懂 很成功 谢谢技术 + 1

TOP

二个文本同行合成

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

a.txt内容如下

姓名
张三
李四
黄五


b.txt 内容如下

数字
98
120
99



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

得到的内容如下

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

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

谢谢

TOP

返回列表