ReplaceMulti – Multiple string replacements

ReplaceMulti – Multiple string replacements

' Perform multiple substitutions in a string' The first argument is the string to be searched' The second argument is vbBinaryCompare or vbTextCompare'     and tells whether the search is case sensitive or not' The following arguments are pairs of (find, replace) strings'' For example:'   Print ReplaceMulti("ABCDEF abcdef", vbBinaryCompare, "AB", "#", "DE", "%")'         displays "#C%F abcdef"'   Print ReplaceMulti("ABCDEF abcdef", vbTextCompare, "AB", "#", "DE", "%")'         displays "#C%F #c%f"'' The function raises an error if the arguments are unbalancedFunction ReplaceMulti(ByVal Text As String, CompareMethod As VbCompareMethod, _    ParamArray args() As Variant) As String    Dim i As Integer    ' raise Illegal Function Call error if the args()    ' array contains an odd number of items    If UBound(args) Mod 2 = 0 Then        Err.Raise 5    End If    ' replace each argument in the pair    For i = 0 To UBound(args) Step 2        Text = Replace(Text, args(i), args(i + 1), , , CompareMethod)    Next    ReplaceMulti = TextEnd Function

See also - an AI reverse image search platform

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist