vbs 去除字符串中的所有符号

发布网友发布时间：2024-10-24 13:30

共1个回答

热心网友时间：2024-10-31 00:00

不要那个符号，自己在rule数组里面添加

Option Explicit

Sub test()
    Dim s As String
    s = "str = ""[系统%+息]玩家King5由5^于在?游戏=中退，经|被-踢:出房&间，希望@大家/引为戒，素)质#和谐[氛围。"""
    MsgBox cls(s)
End Sub
Function cls(ByVal str As String) As Variant
    Dim rule As Variant
    Dim i As Integer
    rule = Array("@", "#", "^", "$", "%", "&", "*", "(", ")", "-", "+", "/", "?", "[", "]", "，", "。")
    cls = str
    For i = LBound(rule) To UBound(rule)
        cls = Split(cls, rule(i))
        cls = Join(cls, "")
    Next i
End Function

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com