[文本处理] 求助批处理文本筛选找出两个文件前两列相同的行

z1366870839

假如A文本有
aaaa----aaaa
bbbb----bbbb
cccc----cccc
dddd----dddd
eeee----eeee
B文本有
aaaa----aaaa----aaaa
bbbb----bbbb----bbbb
cccc----cccc----cccc

导出C文本内有这两个文本前两段相同的到C文本
aaaa----aaaa----aaaa
bbbb----bbbb----bbbb
cccc----cccc----cccc

Batcher

回复 7# miqilaosu


    你这个1.txt是UTF-8编码，先转换成ANSI编码再试试。

miqilaosu

回复 6# Batcher

我试了好多次都是少第一行，不知道为什么

Batcher

回复 5# miqilaosu


    把你测试用的txt文件和bat文件打包压缩上传，我试试。

miqilaosu

回复 2# Batcher

版主大佬为什么用这个代码后第一行看不到，要怎么弄才能看到第一行

ivor

powershell "gc a.txt | %{findstr \"$_\" b.txt | Out-File c.txt -Append}"
复制代码

zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "file1=A.txt"
set "file2=B.txt"
set "file3=C.txt"
powershell -NoProfile -ExecutionPolicy bypass ^
    $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
    [System.Collections.ArrayList]$s=@();^
    $atxt=[IO.File]::ReadAllLines('%file1%',[Text.Encoding]::Default);^
    for($i=0;$i -lt $atxt.Count;$i++){^
        if($atxt[$i].trim() -match '^^.+?----.+?(?=----^|$)'){^
            if(-not $dic.ContainsKey($matches[0])){$dic.add($matches[0],'')};^
        };^
    };^
    $btxt=[IO.File]::ReadAllLines('%file2%',[Text.Encoding]::Default);^
    for($i=0;$i -lt $btxt.Count;$i++){^
        if($btxt[$i].trim() -match '^^.+?----.+?(?=----^|$)'){^
            if($dic.ContainsKey($matches[0])){[void]$s.add($btxt[$i])};^
        };^
    };^
    [IO.File]::WriteAllLines('%file3%', $s, [Text.Encoding]::Default);^
    write-host '%info%' -ForegroundColor green;
pause
复制代码

Batcher

findstr /g:"A.txt" "B.txt" > "C.txt"
复制代码