找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
楼主: 思想之翼

[文本处理] 【已解决】批处理根据文本记录,读取对应文本,限定范围求交集

[复制链接]
发表于 2015-12-3 19:58:58 | 显示全部楼层
楼主把测试数据压缩,上传到网盘吧,以方便测试代码
 楼主| 发表于 2015-12-3 20:22:56 | 显示全部楼层
回复 16# WHY

对不起了,文件夹内有一个空的新建文本,故出错。代码本身正确。谢谢您的帮助!
发表于 2015-12-3 22:19:22 | 显示全部楼层
本帖最后由 terse 于 2015-12-3 22:34 编辑

回复 17# 思想之翼
WIN7 系统 的话 也可试下POWERSHELL
修正一下 写入文件

  1. $filelist = Get-ChildItem -Path D:\数据\* -Include  *.txt
  2. $ph1 = "D:\数据库"
  3. $ph2 = "D:\搜寻"
  4. foreach($file in $filelist){
  5.     $arr = cat $file.FullName
  6.     $name =  $file.Name.split(".")[0]
  7.     $num = 0
  8.     $new_file =  $ph2 + $name + ""
  9.     foreach($a in $arr)
  10.     {
  11.         $num++
  12.         $array = New-Object -TypeName System.Collections.ArrayList
  13.         $ar = $a.split(" ")
  14.         $len = $ar.Count
  15.         for($i=0; $i -lt $len; $i++)
  16.        {
  17.            $ph = $ph1 +"$($i + 1)" + $ar[$i] + ".txt"
  18.            get-content $ph|?{$null = $array.add($_)}
  19.         }
  20.         $ph = $new_file  + $name + "_" + $num + ".txt"
  21.         $str = $array| group |?{$_.Count -gt 6}| select  -Exp name | Out-String
  22.         $null = new-item -type file -path $ph -Force -Value $str
  23.     }
  24. }
复制代码

评分

参与人数 2技术 +2 收起 理由
CrLf + 1 master
思想之翼 + 1 开眼界了,感谢!

查看全部评分

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 06:50 , Processed in 0.017245 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表