替换vbscript中的特殊字符

Question

我有一组字符串，其中可能有也可能没有特殊字符。\n示例:

\n\n

Windows Live Fot\xc2\xa2t\xc2\xa0r\nGaler\xc2\xa1a fotogr\xc2\xa0fica de Windows Live\nWindows Live Maker\n

\n\n

我想做的是：

\n\n

\n

\n
1. 检查整个字符串中是否包含特殊字符
\n
2. 如果是，请将这些字符替换为“？”
\n

\n

\n\n

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

\n

Answer 1

您可以使用正则表达式来添加您认为是非特殊字符的每个字符。

\n\n

stringsToCheck = Array("Windows Live Fot\xc2\xa2t r", _\n                       "Galer\xc2\xa1a fotogr fica de Windows Live", _\n                       "Windows Live Maker")\n\nSet regExp = New RegExp\nregExp.IgnoreCase = True\nregExp.Global = True\nregExp.Pattern = "[^a-z0-9 !?@]" \'Add here every character you don\'t consider as special character\n\nFor each str In stringsToCheck\n    strProcessed = regExp.Replace(str, "?")\n    WScript.Echo "Old String: " & str\n    WScript.Echo "New String: " &  strProcessed\nNext\n

\n\n

输出：

\n\n

Old String: Windows Live Fot\xc2\xa2t r\nNew String: Windows Live Fot?t r\nOld String: Galer\xc2\xa1a fotogr fica de Windows Live\nNew String: Galer?a fotogr fica de Windows Live\nOld String: Windows Live Maker\nNew String: Windows Live Maker\n

\n