find and replace

[dendude]

can someone give me the code for a find and replace functionality in a string.......
it wud b really helpful...
thanx a zillion

[alex_read]

just use the replace function :

Private Sub Form_Load()

    Dim strTemp As String
    
    strTemp = "the cat sat on the mat"
    
    MsgBox Replace(strTemp, "the", "a")
    
End Sub

[peet]

Private Sub Command1_Click()
    Dim s As String
    s = "teep dimdidumdiada lakdsjfpc teep and this is a testeep"
    s = Replace(s, "teep", "peet")
    MsgBox s
End Sub

[cafeenman]

Originally posted by peet

"teep dimdidumdiada lakdsjfpc teep and this is a testeep"

You're starting to sound like crptblade now.

[peet]

hehehe... I take that as a compliment

hes my Turbo Gimp hero