vbscript 字符串查找和替换

Posted 2021-05-21

Sub StringFindAndReplace (ByRef strExpression As String, ByVal strReplace As String, ParamArray strFind())
'Description:   searches strExpression and replaces any value given as strFind to strReplace
'Inputs:        string to search in; string(s) to find; replacement string

Dim f As Variant
    
    For Each f In strFind
        strExpression = Replace(strExpression, CStr(f), strReplace, , , vbBinaryCompare)
    Next f

End Sub