Board logo

标题: [文本处理] [已解决]批处理如何将一个文本的行内容按照另一个文本相同行出现先后的顺序重新排序? [打印本页]

作者: pengyou86    时间: 2013-12-4 21:09     标题: [已解决]批处理如何将一个文本的行内容按照另一个文本相同行出现先后的顺序重新排序?

1.txt和2.txt.文本内容进行比对。要求VBS实现2.txt文本内容按照1.txt
文本里面的内容前后顺序排列
然后把比对结果保存到3.txt文本中
谢谢!麻烦论坛中高手帮忙写一个VBS,文本内容已经上传到附件中
作者: 再世情緣    时间: 2013-12-5 07:07

试试这个
  1. (findstr /x /g:2.txt 1.txt)>3.txt
复制代码

作者: pengyou86    时间: 2013-12-5 10:54

试试这个
再世情緣 发表于 2013-12-5 07:07



    感谢  问题解决了 谢谢你
作者: pcl_test    时间: 2016-7-22 20:27

vbs
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. Set objDict = WSH.CreateObject("Scripting.Dictionary")
  3. Set f1 = fso.OpenTextFile("1.txt", 1)
  4. Set f2 = fso.OpenTextFile("2.txt", 1)
  5. Set f3 = fso.CreateTextFile("3.txt", 2)
  6. Do While f2.AtEndOfStream <> true
  7.     line = f2.ReadLine
  8.     If not objDict.Exists(line) Then objDict.Add line, 1
  9. Loop
  10. Do While f1.AtEndOfStream <> true
  11.     line = f1.ReadLine
  12.     If objDict.Exists(line) Then f3.WriteLine line
  13. Loop
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2