标题: [文本处理] 求助批处理文本筛选找出两个文件前两列相同的行 [打印本页]
作者: z1366870839 时间: 2019-5-23 16:57 标题: 求助批处理文本筛选找出两个文件前两列相同的行
假如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 时间: 2019-5-23 17:17
- findstr /g:"A.txt" "B.txt" > "C.txt"
复制代码
作者: zaqmlp 时间: 2019-5-23 17:19
本帖最后由 zaqmlp 于 2019-5-23 18:16 编辑
- @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
复制代码
作者: ivor 时间: 2019-5-23 17:28
- powershell "gc a.txt | %{findstr \"$_\" b.txt | Out-File c.txt -Append}"
复制代码
作者: miqilaosu 时间: 2019-5-24 16:49
回复 2# Batcher
版主大佬为什么用这个代码后第一行看不到,要怎么弄才能看到第一行
作者: Batcher 时间: 2019-5-24 17:59
回复 5# miqilaosu
把你测试用的txt文件和bat文件打包压缩上传,我试试。
作者: miqilaosu 时间: 2019-5-25 09:11
回复 6# Batcher
我试了好多次都是少第一行,不知道为什么
作者: Batcher 时间: 2019-5-25 21:55
回复 7# miqilaosu
你这个1.txt是UTF-8编码,先转换成ANSI编码再试试。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |