批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]批处理找出两个文档相同数据 [打印本页]

作者: winsfly 时间: 2020-8-17 12:34 标题: [已解决]批处理找出两个文档相同数据

忽略电话号码中四个*号找出两个文档相同数据并输出到第3个文档中

@echo off
setlocal enabledelayedexpansion
(for /f %%i in ('type "1.txt"') do (
    set "OldStr=%%i"
    set "NewStr=!OldStr:~0,3!....!OldStr:~7,4!"
    findstr "!NewStr!" 2.txt >nul 2>&1 || echo,%%i
))>"22.txt"
(for /f %%i in ('type "2.txt"') do (
    set "OldStr=%%i"
    set "NewStr=!OldStr:~0,3!....!OldStr:~7,4!"
    findstr "!NewStr!" 1.txt >nul 2>&1 || echo,%%i
))>"11.txt"
复制代码

上面代码只能找出差异部分，哪位大神能帮我改改

作者: Batcher 时间: 2020-8-17 13:48

回复 1# winsfly

把第6行和第11行的||改成&&试试

作者: yhcfsr 时间: 2020-8-18 07:44

本帖最后由 yhcfsr 于 2020-8-18 07:46 编辑

@Powershell -ver 3 "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
$f1='有星号文本.txt'
$f2='无星号文本.txt'
$hash = @{};
gc $f1|ForEach-Object{$hash.Add(($_ -replace '(\d{3}).{4}(\d{4})','$1$2'),$_)}
gc $f2|Where-Object{$hash.ContainsKey(($_ -replace '(\d{3})\d{4}(\d{4})','$1$2'))}|Set-Content -Path '结果.txt'
复制代码

用法:代码保存为BAT, 自定义: '有星号文本.txt','无星号文本.txt'

作者: winsfly 时间: 2020-8-20 23:57

回复 2# Batcher

这么简单就解决了，多谢

欢迎光临批处理之家 (http://bbs.bathome.net/)