[已解决]批处理如何从多个txt文本中批量提取指定的数值？

思想之翼

有1千多个文本，每个文本有800多个三位数（不重复），位置排列随机，现在想批量分别提取出其中可能包含的123、124、125、134、135、145、234、235、245、345，写入另外重新命名的1千多个文本，烦请行家帮忙写个批处理！
每个文本三位数如下：
654 987 369 159 123 357 345 245 624 125
852 167 492 367 012 301 209 809 760 100
......

weichenxiehou

你这800多个三位数有换行吗？如果有，每行多少个？如何提取？是仅提取123、124、125、134、135、145、234、235、245、345这些数字出来，还是提取包含这些数字的行？重新命名的1000多个文本是已经存在还是靠批处理生成？

思想之翼

您好！800多个三位数10个一个换行，小于100行。仅提取123、124、125、134、135、145、234、235、245、345这些数字出来，不包含这些数字的行。重新命名的1000多个文本靠批处理生成，可以在原文本号上加“_”以示区别，如原文本是“01”，则批处理生成“_01”。谢谢，这么快就给回复。

weichenxiehou

用findstr应该会奇慢无比：

1. 
   
2. @echo off
   
3. md results 2>nul
   
4. for /f "delims=" %%a in ('dir /b *.txt') do (
   
5.   cd.>"results\_%%a"
   
6.   for %%i in (123 124 125 134 135 145 234 235 245 345) do (
   
7.     findstr "%%i" "%%a">nul&&echo,%%i
   
8.   )>>"results\_%%a"
   
9. )
   

复制代码

用法：将以上代码保存为test.bat，放到该目录执行即可。

用awk应该会好点儿：

1. 
   
2. BEGIN{
   
3.   split("123 124 125 134 135 145 234 235 245 345",numbers)
   
4.   for(number in numbers) x[numbers[number]]=""
   
5. }
   
6. FNR==1{
   
7.   if(last!="") close(last)
   
8.   last="results\_" FILENAME
   
9. }
   
10. {
    
11.   for(i=1;i<=NF;i++)
    
12.     if($i in x) print $i>last
    
13. }
    

复制代码

用法，将以上代码保存为test.awk，下载gawk.exe，编写test.bat如下：

1. 
   
2. @echo off
   
3. md results 2>nul
   
4. gawk -f test.awk *.txt
   

复制代码

然后将三个文件放到该目录，执行bat即可。

powerbat

1. @echo off
   
2. setlocal enableDelayedExpansion
   
3. md result
   
4. for /f "tokens=1,2 delims=:" %%a in (
   
5.     'findstr "123 124 125 134 135 145 234 235 245 345" *.txt'
   
6. ) do (
   
7.     set "var= %%b "
   
8.     for %%i in (123 124 125 134 135 145 234 235 245 345) do (
   
9.         if "!var: %%i =!" neq "!var!" echo %%i
   
10.     )
    
11. ) >>"result\_%%a"
    
12. pause

复制代码

思想之翼

原文本是“01”，则批处理生成“01-1”，上述批处理又该如何修改？

apang

回复 6# 思想之翼

别人已经完全按你的要求回答你了，能不能行你不说，感谢的话你也不说，提的其它要求，别人有权不予理睬。

思想之翼

呵呵，楼上误解了。在给作者的短信中，我已充分表达了谢意。的确，什么时候都不能没有感恩之心，我上面帖子的表述简化了些，没有表达出感恩和诚意，在此，我郑重表示歉意！！
上述批处理完全可以用，省去我不少麻烦，在这里再次感谢！是的，短信的感谢别人看不见的，我的感谢还要大声喊出来！！！谢谢！！！！

CrLf

保存为 test.vbs 或 test.bat 在要处理的目录下运行：

1. '&start wscript /nologo "/e:vbscript" "%~0"&exit
   
2. Option Explicit
   
3. Dim re,FSO,Dir,file,str,i,a,ar()
   
4. Const ForRead = 1
   
5. 
   
6. Set re = New RegExp
   
7. re.Global = True
   
8. re.MultiLine = True
   
9. re.Pattern = "123|124|125|134|135|145|234|235|245|345"
   
10. 
    
11. Set FSO = CreateObject("Scripting.FileSystemObject")
    
12. Set Dir = FSO.GetFolder(".")
    
13. 
    
14. For Each file In Dir.Files
    
15.         If file.Type = "文本文档" Then
    
16.                 ReDim Preserve ar(i)
    
17.                 ar(i)=file.Name
    
18.                 i = i + 1
    
19.         End If
    
20. Next
    
21. 
    
22. If FSO.FolderExists("结果") = False Then
    
23.         FSO.CreateFolder("结果")
    
24. End If
    
25. 
    
26. For Each a In ar
    
27.         Call IO(a)
    
28. Next
    
29. 
    
30. 
    
31. Sub IO(FileIn)
    
32.         Dim File,f,ar,a,str,n,filename
    
33.        
    
34.         filename = FSO.GetBaseName(FileIn)
    
35.         Set File = FSO.OpenTextFile(filename & ".txt",ForRead)
    
36.         f = File.ReadAll
    
37.         File.Close
    
38.        
    
39.         f = Replace(f," ",vbCrLf)
    
40.         Set ar = re.Execute(f)
    
41.        
    
42.         For Each a In ar
    
43.                 str = str & a.Value & vbCrLf
    
44.         Next
    
45.        
    
46.         Do
    
47.                 n = n + 1
    
48.         Loop Until FSO.FileExists("结果" & filename & "_" & n + 1 & ".txt") = False
    
49.        
    
50.         Set File = FSO.CreateTextFile("结果" & filename & "_" & n + 1 & ".txt",True)
    
51.         File.Write str
    
52.         File.Close
    
53. End Sub

复制代码

powerbat

回复 6# 思想之翼


把 >>"result\_%%a" 改成 >>"result\%%~na-1.txt"

思想之翼

弱弱问一声：楼上的代码怎么使用啊？我菜鸟一个耶......

思想之翼

感谢各位大师出手，帮了我很大的忙。批处理表达式完全符合我的需要。
只是我系菜鸟，版主的代码如何使用，一时如在雾里，不知就里，烦请版主不吝赐教啊！