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

Rank: 4

帖子
243 
积分
374 
技术
15  
捐助
0  
注册时间
2013-10-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2014-4-25 12:59 | 只看该作者

[文本处理] 【已解决】批处理BAT如何比较两个相似文本的差异？

本帖最后由 zhanglei1371 于 2014-4-25 17:31 编辑

0.txt内容：
aaa
A S
D S DF
ccc
1.txt内容：
A S
A SD
D S DF
aaa
bbb
ccc
F G HJ
最终比较结果：
在1.txt中查找0.txt中不存在的行：
A SD
bbb
F G HJ
已参考过此贴：http://bbs.bathome.net/viewthread.php?from=notice&tid=29874，但未能解决。还请高手相助，谢了！
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14910 
积分
46110 
技术
855  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2014-4-25 13:14 | 只看该作者 
  1. findstr /v /x /g:0.txt 1.txt
复制代码
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

zhanglei1371

Rank: 4

帖子
243 
积分
374 
技术
15  
捐助
0  
注册时间
2013-10-20 
3楼
发表于 2014-4-25 13:57 | 只看该作者
回复 2# Batcher


    谢谢，呵呵，不过试试这个：

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
4楼
发表于 2014-4-25 14:44 | 只看该作者
回复 3# zhanglei1371


    试试看
  1. @echo off

  2. (for /f "delims=" %%a in (001.txt) do (

  3.     set "str=%%a"

  4.     setlocal enabledelayedexpansion

  5.     set "str=!str:\=\\!"

  6.     echo,!str!

  7.     endlocal

  8. ))>$

  9. 

  10. findstr /i /v /x /g:$ 002.txt

  11. pause
复制代码
1

评分人数

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14910 
积分
46110 
技术
855  
捐助
745  
注册时间
2008-6-9 
5楼
发表于 2014-4-25 16:34 | 只看该作者
回复 3# zhanglei1371


    以后发帖尽量在顶楼给出这样的文件
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
6楼
发表于 2014-4-25 18:41 | 只看该作者
vbs 也可以
  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. txt = fso.OpenTextFile("001.txt").ReadAll

  3. txt = vbCrLf & LCase(txt) & vbCrLf

  4. Set f = fso.OpenTextFile("002.txt")

  5. 

  6. while not f.AtEndOfStream

  7.     strLine = f.ReadLine

  8.     If InStr(txt, vbCrLf & LCase(strLine) & vbCrLf) = 0 Then

  9.         s = s & strLine & vbCrLf

  10.     End If

  11. wend

  12. 

  13. WScript.Echo s
复制代码
1

评分人数

TOP

hlzj88

Rank: 6Rank: 6

帖子
822 
积分
1621 
技术
52  
捐助
20  
注册时间
2008-11-3 
7楼
发表于 2014-4-25 22:14 | 只看该作者
回复 2# Batcher


    第一次看到 /v /x这样的用法
目的，学习批处理

TOP

返回列表