Cara Membuat Fungsi Find And Replace VB6

Berikut ini adalah cara membuat fungsi find and replace terhadap text/string di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Textbox, & 2 Commandbutton.
2. Set properti Multiline Textbox menjadi True.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

         'Kedua fungsi FindReplace() dan ReplaceFirstInstance() berikut ini
          'digunakan untuk mencari dan mengganti semuanya secara bersamaan
          '(fungsi dipanggil sekali dan langsung mengganti semua sub string ybt)

          Dim vFixed As Boolean
          Function FindReplace(SourceString, Searchstring, Replacestring)

            tmpString1 = SourceString
            Do Until vFixed
                tmpString2 = tmpString1
                tmpString1 = ReplaceFirstInstance(tmpString1, Searchstring, _
                             Replacestring)

                If tmpString1 = tmpString2 Then vFixed = True
            Loop
            FindReplace = tmpString1
            Text1.Text = FindReplace

            MsgBox "String tidak ditemukan!", vbCritical, "Tidak Ditemukan"
            Exit Function
          End Function

          Function ReplaceFirstInstance(SourceString, Searchstring, Replacestring)
            Static StartLoc '*
            If StartLoc = 0 Then StartLoc = 1 '*
            FoundLoc = InStr(StartLoc, SourceString, Searchstring) '*
            If FoundLoc <> 0 Then

               ReplaceFirstInstance = Left(SourceString, FoundLoc - 1) & _
               Replacestring & Right(SourceString, _
               Len(SourceString) - (FoundLoc - 1) - Len(Searchstring))
               StartLoc = FoundLoc + Len(Replacestring) '*

            Else
               StartLoc = 1 '*
               ReplaceFirstInstance = SourceString
            End If

          End Function

          'Fungsi sReplace() untuk mencari dan mengganti satu string
          'tertentu saja bila fungsi ini dipanggil. String berikutnya
          'akan dicari/diganti bila fungsi ini dipanggil lagi.

          Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)

              Dim vSearchLine As String, found As Integer
             
              found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
              If found <> 0 Then
                  vSearchLine = ""
                  If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
                  vSearchLine = vSearchLine + ReplaceWith

                  If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
                      vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
              Else
                 MsgBox "String tidak ditemukan!", vbCritical, "Tidak Ditemukan"

                 Exit Function
              End If
              sReplace = vSearchLine
              Text1.Text = vSearchLine

          End Function

          'Dalam contoh ini, kita mengganti setiap sub string "ya" menjadi "yes"
          'Mengganti satu per satu berurutan dari atas ke bawah
          Private Sub Command1_Click()
            Call sReplace(Text1.Text, "ya", "yes")
          End Sub

          'Mengganti semuanya secara bersamaan

          Private Sub Command2_Click()
            Call FindReplace(Text1.Text, "ya", "yes")
          End Sub

          Private Sub Form_Load()
            Text1.Text = "Halo apa kabar di malam hari yang cerah " & _
                         "ini semoga semuanya dalam keadaan baik " & _
                         "dan sehat-sehat selalu tanpa kurang " & _
                         "suatu apapun ya kalau begitu ya sudah " & _
                         "kita akan tidur malam ini ya atau tidak " & _
                         "itu semua terserah Anda karena ada dan tidak " & _
                         "ada itu sudah hal yang biasa saja ya kan"
          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