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
复制代码