BAT脚本如何批量提取TXT的内容且保存到其他路径的文件里？

filippo009

你好。觉得各位版主和很强大，
最近忽然遇到一个问题
希望能帮助一下,不胜感激!

描述:
1.比如下载的的txt 比较多（假设2000个），如附件600819 为样式
2. 由于下载文件太大， 希望提取其中的
【1.基本资料】 和【2.股东变化】 后面的内容，
  并保存到（其他路径） 如D 盘的  的 600819.txt 里

备注说明： 如果是0001 文件，提取后保存到0001， 00050 提取后保存到00050.（路径变化，文件名不变，
  如果可能当然文件名也可以从txt 中取得）

由于可能文件较大。 执行效率也请考虑。

感谢

weichenxiehou

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. md results 2>nul
   
4. for /f "delims=" %%i in ('dir/b *.txt') do (
   
5.         set flag=
   
6.         for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%i"') do (
   
7.           set "str=%%b"
   
8.           if "!str:~,8!"=="【1.基本资料】" set flag=yes
   
9.           if "!str:~,8!"=="【2.股东变化】" set flag=yes
   
10.           if "!str:~,1!"=="★" set flag=
    
11.           if "!str:~,1!"=="☆" set flag=
    
12.           if defined flag echo,!str!
    
13.         )>"results\%%i"
    
14. )
    

复制代码

保存为bat文件，结果在同目录下的results文件夹里。

poter

回复 2# weichenxiehou


    很巧妙，赞一个！

newfish

这个我这怎么运行部成功....

weichenxiehou

谢谢楼上提醒，已更正。

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. md results 2>nul
   
4. for /f "delims=" %%i in ('dir/b *.txt') do (
   
5.         set flag=
   
6.         (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%i"') do (
   
7.           set "str=%%b"
   
8.           if "!str:~,8!"=="【1.基本资料】" set flag=yes
   
9.           if "!str:~,8!"=="【2.股东变化】" set flag=yes
   
10.           if "!str:~,1!"=="★" set flag=
    
11.           if "!str:~,1!"=="☆" set flag=
    
12.           if defined flag echo,!str!
    
13.         ))>"results\%%i"
    
14. )
    

复制代码

CrLf

1. '2>nul&wscript /nologo "/e:vbscript" "%~0"&exit/b
   
2. Option Explicit
   
3. Dim fso,re,str,a,b,file,f,ret,retpath
   
4. Const forread = 1
   
5. 
   
6. retpath = "d:\test"
   
7. 
   
8. Set re = New RegExp
   
9. Set fso = CreateObject("Scripting.FileSystemObject")
   
10. If fso.FolderExists(retpath) = False Then
    
11.         MsgBox "不存在文件夹：" & retpath
    
12.         WScript.Quit
    
13. End If
    
14. 
    
15. For Each file In fso.GetFolder(".").Files
    
16.         If UCase(fso.GetExtensionName(file.Name)) = "TXT" Then
    
17.                 IO file.Name
    
18.         End If
    
19. Next
    
20. 
    
21. Sub IO(filename)
    
22.         Set file = fso.OpenTextFile(filename,forread)
    
23.         f = file.ReadAll
    
24.         file.Close
    
25.         re_get "【1.基本资料】"
    
26.         re_get "【2.股东变化】"
    
27.         Set file = fso.CreateTextFile(retpath & filename,forread,True)
    
28.         file.Write ret
    
29.         file.Close
    
30. End Sub
    
31. 
    
32. Sub re_get(inpstr)
    
33.         re.Pattern = "(" & "[\r|\n]" & inpstr & "[\r|\n][^☆★]*)[☆★]"
    
34.         Set str = re.Execute(f)
    
35.         If str.Count = 1 Then
    
36.                 ret = ret & str.Item(0)
    
37.                 ret = Left(ret,Len(ret)-1) & vbNewLine
    
38.         End If
    
39. End Sub
    

复制代码

filippo009

不还意思，确认晚了(上班时不能上网)

非常感谢2位啊，敬仰之情如滔滔江水啊~

不过CrLf  的有点代码还有点不理解，需要进一步学习下