' -- Start Script
Call Main()
'////////////////////
' Sub Declaration
' ////////////////////
Sub Main()
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
Str = fso.OpenTextFile("data.text").ReadAll

ShowString(RegExpTest("%([^%]+)%", Str))

Set fso = Nothing
End Sub

Function RegExpTest(patrn, Str)
   Dim regEx, Match, Matches, RetStr, i   ' Create variable.
   Set regEx = New RegExp 
   regEx.Pattern = patrn
   regEx.IgnoreCase = True 
   regEx.Global = True 
   Set Matches = regEx.Execute(Str)
	For i = 0 To Matches.Count - 1
	fso.OpenTextFile(i & ".nc", 2, True).Write Matches.Item(i).Submatches(0)
	Next	
   RegExpTest = RetStr
End Function
复制代码

Set fs = CreateObject("Scripting.FileSystemObject")
szBuf = InputBox( "请输入文本路径：", "输入", "c:\data.txt" )
LINK = Trim(szBuf)
If fs.FileExists(LINK) Then
	Set File_Open = Fs.OpenTextFile(LINK,1) 
	Set File_Open2 = Fs.OpenTextFile("c:\newdata.txt",2,true) 
	Line=File_Open.Readall
	Line="%"&line&"%"     '文本的头尾加上符号%
	File_Open2.WriteLine Line
	File_Open2.Close
wsh.quit
Else
Wscript.echo "找不到文件!本程序将退出！"
Wscript.Quit
End If
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set re = New RegExp
re.Global = True
re.Pattern = "%([^%]+)%"
str = fso.OpenTextFile("data.txt").ReadAll
Set ms = re.Execute(str)
For i = 0 To ms.Count - 1
    fso.OpenTextFile(i & ".txt", 2, True).Write "%"&ms.Item(i).Submatches(0)&"%"
Next
复制代码