Vb.net 替换vbscript中的特殊字符

我有一组字符串，其中可能有特殊字符，也可能没有。 例如：

我想做的是：

检查整个字符串中是否包含特殊字符

如果是，请将这些字符替换为“？”

---

自从我是vb脚本的新手以来，我还没有尝试过任何东西。

试试这样的方法：

strCur="!@#$%^&*()?><~`+=|\/.',{}[];:-%_20"

for iCount = 0 to len(strCur )
     paragraph= Replace(paragraph, Mid(strCur, iCount + 1, 1), "?")
next

'This line should replace those characters. You'll need a line for each char.
paragraph = Replace$(paragraph, Chr(123), "a")
paragraph = Replace$(paragraph, Chr(173), "A")

---

strCur=“！@$%^&*（）？>试试这样的方法：

strCur="!@#$%^&*()?><~`+=|\/.',{}[];:-%_20"

for iCount = 0 to len(strCur )
     paragraph= Replace(paragraph, Mid(strCur, iCount + 1, 1), "?")
next

'This line should replace those characters. You'll need a line for each char.
paragraph = Replace$(paragraph, Chr(123), "a")
paragraph = Replace$(paragraph, Chr(173), "A")

strCur=“！@$%^&*（）？>试试这样的方法：

strCur="!@#$%^&*()?><~`+=|\/.',{}[];:-%_20"

for iCount = 0 to len(strCur )
     paragraph= Replace(paragraph, Mid(strCur, iCount + 1, 1), "?")
next

'This line should replace those characters. You'll need a line for each char.
paragraph = Replace$(paragraph, Chr(123), "a")
paragraph = Replace$(paragraph, Chr(173), "A")

strCur=“！@$%^&*（）？>试试这样的方法：

strCur="!@#$%^&*()?><~`+=|\/.',{}[];:-%_20"

for iCount = 0 to len(strCur )
     paragraph= Replace(paragraph, Mid(strCur, iCount + 1, 1), "?")
next

'This line should replace those characters. You'll need a line for each char.
paragraph = Replace$(paragraph, Chr(123), "a")
paragraph = Replace$(paragraph, Chr(173), "A")

strCur=“！@$%^&*（？）？> p>可以使用正则表达式，将每个字符都看作是非特殊字符。

stringsToCheck = Array("Windows Live Fot¢t r", _
                       "Galer¡a fotogr fica de Windows Live", _
                       "Windows Live Maker")

Set regExp = New RegExp
regExp.IgnoreCase = True
regExp.Global = True
regExp.Pattern = "[^a-z0-9 !?@]" 'Add here every character you don't consider as special character

For each str In stringsToCheck
    strProcessed = regExp.Replace(str, "?")
    WScript.Echo "Old String: " & str
    WScript.Echo "New String: " &  strProcessed
Next

输出：

Old String: Windows Live Fot¢t r
New String: Windows Live Fot?t r
Old String: Galer¡a fotogr fica de Windows Live
New String: Galer?a fotogr fica de Windows Live
Old String: Windows Live Maker
New String: Windows Live Maker

可以使用正则表达式，将每个字符都看作是非特殊字符。
stringsToCheck = Array("Windows Live Fot¢t r", _
                       "Galer¡a fotogr fica de Windows Live", _
                       "Windows Live Maker")

Set regExp = New RegExp
regExp.IgnoreCase = True
regExp.Global = True
regExp.Pattern = "[^a-z0-9 !?@]" 'Add here every character you don't consider as special character

For each str In stringsToCheck
    strProcessed = regExp.Replace(str, "?")
    WScript.Echo "Old String: " & str
    WScript.Echo "New String: " &  strProcessed
Next

输出：

Old String: Windows Live Fot¢t r
New String: Windows Live Fot?t r
Old String: Galer¡a fotogr fica de Windows Live
New String: Galer?a fotogr fica de Windows Live
Old String: Windows Live Maker
New String: Windows Live Maker

可以使用正则表达式，将每个字符都看作是非特殊字符。
stringsToCheck = Array("Windows Live Fot¢t r", _
                       "Galer¡a fotogr fica de Windows Live", _
                       "Windows Live Maker")

Set regExp = New RegExp
regExp.IgnoreCase = True
regExp.Global = True
regExp.Pattern = "[^a-z0-9 !?@]" 'Add here every character you don't consider as special character

For each str In stringsToCheck
    strProcessed = regExp.Replace(str, "?")
    WScript.Echo "Old String: " & str
    WScript.Echo "New String: " &  strProcessed
Next

输出：

Old String: Windows Live Fot¢t r
New String: Windows Live Fot?t r
Old String: Galer¡a fotogr fica de Windows Live
New String: Galer?a fotogr fica de Windows Live
Old String: Windows Live Maker
New String: Windows Live Maker

可以使用正则表达式，将每个字符都看作是非特殊字符。
stringsToCheck = Array("Windows Live Fot¢t r", _
                       "Galer¡a fotogr fica de Windows Live", _
                       "Windows Live Maker")

Set regExp = New RegExp
regExp.IgnoreCase = True
regExp.Global = True
regExp.Pattern = "[^a-z0-9 !?@]" 'Add here every character you don't consider as special character

For each str In stringsToCheck
    strProcessed = regExp.Replace(str, "?")
    WScript.Echo "Old String: " & str
    WScript.Echo "New String: " &  strProcessed
Next

输出：

Old String: Windows Live Fot¢t r
New String: Windows Live Fot?t r
Old String: Galer¡a fotogr fica de Windows Live
New String: Galer?a fotogr fica de Windows Live
Old String: Windows Live Maker
New String: Windows Live Maker

你可以试试下面的代码

 Function replaceChars(str As String) As String
    'msgbox replacechars ("!@#$%^&*(") will return !@$%^&()
    Dim elem As Variant

        replaceChars = str
        For Each elem In Array("/", "\", ":", "*", "?", "<", ">", "|", "#", Chr(34))
            replaceChars = Replace(replaceChars, elem, "?")
        Next

End Function

函数将字符（str作为字符串）替换为字符串
'msgbox replacechars（“！@$%^&*（”）将返回！@$%^&（）
作为变体的暗淡元素
replaceChars=str
对于数组中的每个元素（“/”、“\”、“：”、“*”、“？”、“、”、“|”、“#”、“Chr（34））
replaceChars=Replace（replaceChars，elem，“？”）
下一个
端函数
您可以尝试下面的代码

 Function replaceChars(str As String) As String
    'msgbox replacechars ("!@#$%^&*(") will return !@$%^&()
    Dim elem As Variant

        replaceChars = str
        For Each elem In Array("/", "\", ":", "*", "?", "<", ">", "|", "#", Chr(34))
            replaceChars = Replace(replaceChars, elem, "?")
        Next

End Function

函数将字符（str作为字符串）替换为字符串
'msgbox replacechars（“！@$%^&*（”）将返回！@$%^&（）
作为变体的暗淡元素
replaceChars=str
对于数组中的每个元素（“/”、“\”、“：”、“*”、“？”、“、”、“|”、“#”、“Chr（34））
replaceChars=Replace（replaceChars，elem，“？”）
下一个
端函数
您可以尝试下面的代码

 Function replaceChars(str As String) As String
    'msgbox replacechars ("!@#$%^&*(") will return !@$%^&()
    Dim elem As Variant

        replaceChars = str
        For Each elem In Array("/", "\", ":", "*", "?", "<", ">", "|", "#", Chr(34))
            replaceChars = Replace(replaceChars, elem, "?")
        Next

End Function

函数将字符（str作为字符串）替换为字符串
'msgbox replacechars（“！@$%^&*（”）将返回！@$%^&（）
作为变体的暗淡元素
replaceChars=str
对于数组中的每个元素（“/”、“\”、“：”、“*”、“？”、“、”、“|”、“#”、“Chr（34））
replaceChars=Replace（replaceChars，elem，“？”）
下一个
端函数
您可以尝试下面的代码

 Function replaceChars(str As String) As String
    'msgbox replacechars ("!@#$%^&*(") will return !@$%^&()
    Dim elem As Variant

        replaceChars = str
        For Each elem In Array("/", "\", ":", "*", "?", "<", ">", "|", "#", Chr(34))
            replaceChars = Replace(replaceChars, elem, "?")
        Next

End Function

函数将字符（str作为字符串）替换为字符串
'msgbox replacechars（“！@$%^&*（”）将返回！@$%^&（）
作为变体的暗淡元素
replaceChars=str
对于数组中的每个元素（“/”、“\”、“：”、“*”、“？”、“、”、“|”、“#”、“Chr（34））
replaceChars=Replace（replaceChars，elem，“？”）
下一个
端函数
首先，定义什么是特殊字符或什么是非特殊字符，根据什么？您使用的是VBScript还是VB.Net？这是两件不同的事情。首先，定义什么是特殊字符或什么是非特殊字符，根据什么？您使用的是VBScript还是VB.Net？这是两件不同的事情。首先，定义在特殊字符是或什么是非特殊字符，根据什么？您使用的是VBScript还是VB.Net？这是两件不同的事情。首先，定义什么是特殊字符或什么是非特殊字符，根据什么？您使用的是VBScript还是VB.Net？这是两件不同的事情。