没办法，做了下面代码替代Dim iStr As String = Args(0)'
Dim sStr As String = Args(1)'
Dim dStr As String = ""
If Args.Length > 2 Then dStr = Args(2)'
iStr = iStr.Trim()
sStr = sStr.Trim()
dStr = dStr.Trim()
Dim iStrWd As String = StrToWide(iStr)
If sStr = "" Then Return iStr
Dim asStr() As String = sStr.Split(iif(sStr.Contains("§"),"§","|" ))
Dim adStr() As String = dStr.Split(iif(dStr.Contains("§"),"§","|" ))
For i As Integer = 0 To ubound(asStr)
asStr(i) = asStr(i).Trim
Dim sStrWd As String = StrToWide(asStr(i))
Dim idx As Integer = iStrWd.IndexOf(sStrWd)
Dim l As Integer = sStrWd.Length
If idx< 0 Then Continue For ' Return iStr
If l > 0 Then
Dim xStr As String = iStr.SubString(idx,l)
iStr = iStr.Replace(xStr,"")
If adStr(i) IsNot Nothing Then
adStr(i) = adStr(i).Trim
If adStr(i).Length > 0 Then iStr = iStr.Insert(idx, adStr(i))
End If
End If
Next
Return iStr
加好友 
发短信
Post By：2020/7/9 8:09:00 [显示全部帖子]
