Find And Replace Dengan Menggunakan Fungsi Split VB6

Berikut ini adalah cara membuat fungsi find and replace dengan menggunakan fungsi split di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke editor form yang bertalian.

          Function ReplaceAll(SourceString As String, ReplaceThis As String, _
                              WithThis As String)
              Dim Temp As Variant
              Temp = Split(SourceString, ReplaceThis)
              ReplaceAll = Join(Temp, WithThis)
          End Function
           
          Private Sub Command1_Click()

          'Dalam contoh ini, kita akan mengganti semua substring "go"
          'dengan substring "bad" dalam string "good boy go home".
              MsgBox ReplaceAll("good boy go home", "go", "bad")
              'Ketika ditampilkan menjadi: "badod boy bad home"
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module