ReplaceArgs – Replace numbered placeholders in a string

' Replace placeholders in the form @@1, @@2, etc.' with arguments passed after the first one.' For example, calling this function with'    res = ReplaceArgs("File @@1 not found on drive @@2", "README.TXT", "C:")' it returns the string'    "File README.TXT not found in drive A:"Function ReplaceArgs(ByVal Text As String, ParamArray args() As Variant) As _    String    Dim i As Integer    For i = 0 To UBound(args)        Text = Replace(Text, "@@" & CStr(i + 1), args(i))    Next    ReplaceArgs = TextEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: