• Home
 · 
• String Manipulation
 · 
• Another way to find and replace all instances of one string in another

Another way to find and replace all instances of one string in another

Another way to find and replace all instances of one string in another

Rate Another way to find and replace all instances of one string in another

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim I As Integer
    I = 1
    Dim LeftPart
    Do While True
        I = InStr(1, Entire, Word)
        If I = 0 Then
            Exit Do
        Else
            LeftPart = Left(Entire, I - 1)
            Entire = LeftPart & Right(Entire, Len(Entire) - Len(Word) - Len(LeftPart))
        End If
    Loop
    MsgBox Entire
End Sub

Public Sub Form_Load()
    RemoveString "StringToSearch", "WordToRemove"
End Sub