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

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

假如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

回复 7# miqilaosu


    你这个1.txt是UTF-8编码,先转换成ANSI编码再试试。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 6# Batcher

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

TOP

回复 5# miqilaosu


    把你测试用的txt文件和bat文件打包压缩上传,我试试。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2# Batcher

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

TOP

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

TOP

本帖最后由 zaqmlp 于 2019-5-23 18:16 编辑
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~dp0"
  6. set "file1=A.txt"
  7. set "file2=B.txt"
  8. set "file3=C.txt"
  9. powershell -NoProfile -ExecutionPolicy bypass ^
  10.     $dic=New-Object 'System.Collections.Generic.Dictionary[string,string]';^
  11.     [System.Collections.ArrayList]$s=@();^
  12.     $atxt=[IO.File]::ReadAllLines('%file1%',[Text.Encoding]::Default);^
  13.     for($i=0;$i -lt $atxt.Count;$i++){^
  14.         if($atxt[$i].trim() -match '^^.+?----.+?(?=----^|$)'){^
  15.             if(-not $dic.ContainsKey($matches[0])){$dic.add($matches[0],'')};^
  16.         };^
  17.     };^
  18.     $btxt=[IO.File]::ReadAllLines('%file2%',[Text.Encoding]::Default);^
  19.     for($i=0;$i -lt $btxt.Count;$i++){^
  20.         if($btxt[$i].trim() -match '^^.+?----.+?(?=----^|$)'){^
  21.             if($dic.ContainsKey($matches[0])){[void]$s.add($btxt[$i])};^
  22.         };^
  23.     };^
  24.     [IO.File]::WriteAllLines('%file3%', $s, [Text.Encoding]::Default);^
  25.     write-host '%info%' -ForegroundColor green;
  26. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

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

TOP

返回列表