Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB6
Expertise: beginner
May 15, 1999

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 = Text
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date