正则替换后写入文件不对啊

Question

你是要这样的效果吗？/([^>]+?)(?=</B>)/g

Answer 1

自己弄出来了。。高手看一下改进哈。。
wscript.echo   RegExpTest(ReadText("a.txt"))
Function RegExpTest(strng)
Set RegEx1=New RegExp
RegEx1.Pattern="<b>([^<]*)</b>" '搜索字符串，括号用来定义子集
RegEx1.IgnoreCase=True 'True不区分大小写,False区分
RegEx1.Global=True 'Fasle只匹配第一个,True匹配全部
Set A=RegEx1.Execute(strng)
For Each x In A
i=i+1
y=y & x.SubMatches(0)
If i Mod 2 = 0 Then
y=y & vbCrLf
else
y=y & " "
End If
Next
RegExpTest=y
End FunctionFunction ReadText(FilePath)
Dim Fso,Rso
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Gso=Fso.GetFile(FilePath)
Set Rso=Gso.OpenAsTextStream(1)
ReadText=Rso.ReadAll
End Function
str = RegExpTest(ReadText("a.txt"))Set objie=WScript.CreateObject("internetexplorer.application")  
objie.Navigate("about:blank")  
objie.Document.parentwindow.clipboarddata.setdata "text",str  
objie.Quiton error resume next Set ie=createobject("internetexplorer.application") 
ie.navigate "about:blank" 
ie.visible=False set fso=createobject("scripting.filesystemobject") 
set f=fso.opentextfile("QQ.txt",2,true) Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate("about:blank") 
str = objIE.document.parentwindow.clipboardData.GetData("text") 
objIE.Quit
f.write str
f.close