本帖最后由 CrLf 于 2012-7-3 10:22 编辑
- '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
复制代码
|