BAT代码如何比较两个文本？

qjxx

举个例子
A文本内容为
123123        广州        10ml        A12        30
156464        上海        20ml        A13        20
456799        北京        15mg        B12        10

B文本内容为
123123        广州        10ml        A12        3
156464        上海        20ml        A13        2
456799        北京        15mg        B12        10
我要的结果C文本为"
123123        广州        10ml        A12        3
156464        上海        20ml        A13        2
我是以B文本文件的横向为数据组（有5组），跟A文本文件里的横向数据组（有5组）比较，前面4组数据相同，最后一处数据不相同的。
就把B的数据写到C文本里。

apang

保存为test.vbs，试试

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Set f = FSO.OpenTextFile("a.txt")
   
3. Do Until f.AtEndOfStream
   
4.    s = f.ReadLine '循环读取a.txt每一行
   
5.    Text = Text & s & vbLf
   
6.    '在每行后加换行符，赋值给变量Text
   
7. Loop
   
8. f.Close :Set f = Nothing
   
9. 
   
10. Set f = FSO.OpenTextFile("b.txt")
    
11. Do Until f.AtEndOfStream
    
12.    s = f.ReadLine '循环读取b.txt每一行
    
13.    If InStr(vbLf & Text,vbLf & s & vbLf) = 0 Then GetStr
    
14.    '如果该行字串在Text变量中不存在
    
15. Loop
    
16. MsgBox "OK"
    
17. 
    
18. Sub GetStr()
    
19.    Set Re = New RegExp
    
20.    Re.Pattern = "^(.*\s+)\S+$" '正则表达式
    
21.    For Each a in Re.Execute(s)
    
22.       If InStr(vbLf & Text,vbLf & a.SubMatches(0)) Then
    
23.       '如果该行前4项字串在Text中存在，将该行写入c.txt
    
24.          FSO.OpenTextFile("c.txt",8,True).WriteLine s
    
25.       End If
    
26.    Next
    
27. End Sub

复制代码

还是保险点，修改下