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

filippo009

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

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

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

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

感谢

weichenxiehou

@echo off&setlocal enabledelayedexpansion
md results 2>nul
for /f "delims=" %%i in ('dir/b *.txt') do (
	set flag=
	for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%i"') do (
	  set "str=%%b"
	  if "!str:~,8!"=="【1.基本资料】" set flag=yes
	  if "!str:~,8!"=="【2.股东变化】" set flag=yes
	  if "!str:~,1!"=="★" set flag=
	  if "!str:~,1!"=="☆" set flag=
	  if defined flag echo,!str!
	)>"results\%%i"
)
复制代码

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

poter

回复 2# weichenxiehou


    很巧妙，赞一个！

newfish

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

weichenxiehou

谢谢楼上提醒，已更正。

@echo off&setlocal enabledelayedexpansion
md results 2>nul
for /f "delims=" %%i in ('dir/b *.txt') do (
        set flag=
        (for /f "tokens=1* delims=:" %%a in ('findstr /n .* "%%i"') do (
          set "str=%%b"
          if "!str:~,8!"=="【1.基本资料】" set flag=yes
          if "!str:~,8!"=="【2.股东变化】" set flag=yes
          if "!str:~,1!"=="★" set flag=
          if "!str:~,1!"=="☆" set flag=
          if defined flag echo,!str!
        ))>"results\%%i"
)
复制代码

CrLf

'2>nul&wscript /nologo "/e:vbscript" "%~0"&exit/b
Option Explicit
Dim fso,re,str,a,b,file,f,ret,retpath
Const forread = 1

retpath = "d:\test\"

Set re = New RegExp
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(retpath) = False Then 
	MsgBox "不存在文件夹：" & retpath
	WScript.Quit
End If

For Each file In fso.GetFolder(".").Files
	If UCase(fso.GetExtensionName(file.Name)) = "TXT" Then 
		IO file.Name
	End If
Next

Sub IO(filename)
	Set file = fso.OpenTextFile(filename,forread)
	f = file.ReadAll
	file.Close
	re_get "【1.基本资料】"
	re_get "【2.股东变化】"
	Set file = fso.CreateTextFile(retpath & filename,forread,True)
	file.Write ret
	file.Close
End Sub

Sub re_get(inpstr)
	re.Pattern = "(" & "[\r|\n]" & inpstr & "[\r|\n][^☆★]*)[☆★]"
	Set str = re.Execute(f)
	If str.Count = 1 Then
		ret = ret & str.Item(0)
		ret = Left(ret,Len(ret)-1) & vbNewLine
	End If
End Sub
复制代码

filippo009

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

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

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