VB脚本来更改或删除特殊字符

Question

我有一个小的VB脚本（见下文），我通过谷歌发现，它所做的是在XML文件中找到一个此字符串（H * 699557/1A），并重命名文件名到该字符串，这工作出色，直到遇到一个特殊的字符（如字符串示例），然后停止。

有人可以帮我删除特殊字符，任何帮助表示赞赏。

Set objFS = CreateObject("Scripting.FileSystemObject") 
strFolder = "C:\vbs" 
Set objFolder = objFS.GetFolder(strFolder) 

Set regEx = New RegExp 
regEx.Pattern = ".*<SuppliersInvoiceNumber>(.*?)</SuppliersInvoiceNumber>.*" 
regEx.IgnoreCase = True 
regEx.MultiLine = True 

For Each strFile In objFolder.Files 
    strFileName = strFile.Name 
    If InStr(strFileName ,"USI") > 0 Then 
     Set objFile=objFS.OpenTextFile(strFileName) 
     strData = objFile.ReadAll 
     Set objFile=Nothing 
     Set colMatches = regEx.Execute(strData) 
     For Each objMatch In colMatches 
      strNew = Split(objMatch.Submatches(0),"\") 
      strNewFile = strNew(0) 
      strFile.Name = strNewFile & ".xml" 
     Next 
    End If 
Next 

Answer 1

Set objFS = CreateObject("Scripting.FileSystemObject") 
strFolder = "C:\vbs" 
Set objFolder = objFS.GetFolder(strFolder) 

Set regEx = New RegExp 
regEx.Pattern = ".*<SuppliersInvoiceNumber>(.*?)</SuppliersInvoiceNumber>.*" 
regEx.IgnoreCase = True 
regEx.MultiLine = True 

For Each strFile In objFolder.Files 
    strFileName = strFile.Name 
    If InStr(strFileName ,"USI") > 0 Then 
     Set objFile=objFS.OpenTextFile(strFileName) 
     strData = objFile.ReadAll 
     Set objFile=Nothing 
     Set colMatches = regEx.Execute(strData) 
     For Each objMatch In colMatches 
      strNew = Split(objMatch.Submatches(0),"\") 
      strNewFile = strNew(0) 
      strFile.Name = Replace(Replace(strNewFile,"*",""),"/","") & ".xml" 
     Next 
    End If 
Next