Search and Replace String "Visual Basic 6.0"

Trik ini digunakan untuk mencari string sesuai yang kita masukkan kemudian mengubahnya ...

Public Function replaceall (searchstring as string, findstring as string, replacestring as string) as string

Dim curpos as long
            curpos = 1


Do
curpos = Instr(curpos, searchsting, findstring)
searchstring = left$(searchstring, curpos-1) & replacestring & right$(searchstring, len(searchstring) - curpos - len(findstring + 1)
Loop until instr(searchstring, findstring) = 0
            replace all = searchstring
End Function

"Selamat Mencoba ..."