• Home
 · 
• String Manipulation
 · 
• Replace the string with the given character

Replace the string with the given character

Replace the string with the given character

Rate Replace the string with the given character

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim iCount                  As Integer
    Dim sInput                  As String
    sInput = vsInput
    iCount = InStr(sInput, vsReplace)

    While iCount
        sInput = Left$(sInput, iCount - 1) & vsWith & Right$(sInput, Len(sInput) - iCount)
        iCount = InStr(sInput, vsReplace)
    Wend

    Replace = sInput

End Function