设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [已解决]批处理如何将一个文本的行内容按照另一个文本相 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 22614|回复: 3

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

[复制链接]
pengyou86
发表于 2013-12-4 21:09:33 | 显示全部楼层 |阅读模式
1.txt和2.txt.文本内容进行比对。要求VBS实现2.txt文本内容按照1.txt
文本里面的内容前后顺序排列
然后把比对结果保存到3.txt文本中
谢谢!麻烦论坛中高手帮忙写一个VBS，文本内容已经上传到附件中

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

再世情緣
发表于 2013-12-5 07:07:23 | 显示全部楼层
试试这个
  1. (findstr /x /g:2.txt 1.txt)>3.txt
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

回复

举报

pengyou86
 楼主| 发表于 2013-12-5 10:54:07 | 显示全部楼层
试试这个
再世情緣 发表于 2013-12-5 07:07



    感谢  问题解决了 谢谢你
回复

举报

pcl_test
发表于 2016-7-22 20:27:09 | 显示全部楼层
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
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 20:54 , Processed in 0.019355 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表