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

[文本处理] [已解决]批处理找出两个文档相同数据

忽略电话号码中四个*号找出两个文档相同数据并输出到第3个文档中
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. (for /f %%i in ('type "1.txt"') do (
  4.     set "OldStr=%%i"
  5.     set "NewStr=!OldStr:~0,3!....!OldStr:~7,4!"
  6.     findstr "!NewStr!" 2.txt >nul 2>&1 || echo,%%i
  7. ))>"22.txt"
  8. (for /f %%i in ('type "2.txt"') do (
  9.     set "OldStr=%%i"
  10.     set "NewStr=!OldStr:~0,3!....!OldStr:~7,4!"
  11.     findstr "!NewStr!" 1.txt >nul 2>&1 || echo,%%i
  12. ))>"11.txt"
复制代码
上面代码只能找出差异部分,哪位大神能帮我改改

回复 2# Batcher


    这么简单就解决了,多谢

TOP

本帖最后由 yhcfsr 于 2020-8-18 07:46 编辑
  1. @Powershell -ver 3 "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
  2. $f1='有星号文本.txt'
  3. $f2='无星号文本.txt'
  4. $hash = @{};
  5. gc $f1|ForEach-Object{$hash.Add(($_ -replace '(\d{3}).{4}(\d{4})','$1$2'),$_)}
  6. gc $f2|Where-Object{$hash.ContainsKey(($_ -replace '(\d{3})\d{4}(\d{4})','$1$2'))}|Set-Content -Path '结果.txt'
复制代码
用法:代码保存为BAT, 自定义: '有星号文本.txt','无星号文本.txt'
QQ 33892006

TOP

回复 1# winsfly


    把第6行和第11行的||改成&&试试
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表