batman

望高手路过。。。。

这句话很有意思的说。。。

batman

用vbs正则实现：

Dim FSO, vbStr
Set FSO = CreateObject("Scripting.FileSystemObject")
vbStr = FSO.OpenTextFile("test.xml").ReadAll()
FSO.OpenTextFile("new.xml", 2, True).Write RegEx(vbStr)
MsgBox "ok"
Set FSO = Nothing

Function RegEx(Str)
  Set RegEx = New RegExp
  RegEx.IgnoreCase = True
  RegEx.Global = True
  RegEx.Pattern = "(.*)<item.*\/item>(.*)"
  RegEx = RegEx.Replace(vbStr, "$1$2")
End Function
复制代码