Skip to content Skip to sidebar Skip to footer

Mencari Kata Karakter dalam TextBox

Mencari Kata Karakter dalam TextBox

Memiliki sebuah aplikasi wordprocessor sekaliber Ms.Word sangat membanggakan. Salah satu fitur yang akan penulis bahas pada tutorial Visual Basic 6.0 kali ini adalah: Cara Mencari Karakter, String atau Kata didalam sebuah TextBox atau RichTextBox di Visual Basic 6.0.

Control OCX yang dibutuhkan:
  • 1 Textbox, beri nama: txtSumber.
  • 1 CommandButton dan berilah nama: cmdCari.
Selanjutnya, klik 2 kali pada cmdCari untuk masuk ke area kode (code view) dan, ketiklah kode berikut ini:

  • Deklarasikan terlebih dahulu dibawah Option Explicit seperti berikut ini!
Option Explicit
Dim nCari, nLokasi As String
  •  Kemudian pada cmdCari_Click kodenya sbb:
 Private Sub cmdCari_Click()
    nCari = InputBox("Masukkan Teks atau kalimat untuk dicari ...", "Cari")
    If nCari <> "" Then
            Cari
            Exit Sub
    Else: Exit Sub
    End If
End Sub
  • Kode Pencariannya:
Private Sub cmdCari_Click()
    Dim Search, Where
    Search = InputBox("Masukkan Teks atau kalimat untuk dicari ...")
    ' cari string
    Where = InStr(txtSumber.Text, Search)
    If Where Then
        txtSumber.SetFocus
        txtSumber.SelStart = Where - 1
        txtSumber.SelLength = Len(Search)
    Else
        MsgBox "String, karakater, atau kata tidak ditemukan!" & _
        "Hanya cari yang ada dalam TextBox!"
        Exit sub
    End If
End Sub

Kode diatas kita implementasikan pada TextBox. Bila area eksekusi berada didalam RichTextBox tetap akan sama hasilnya. Disini penulis sengaja memberikan sistem pencarian global yang dapat digunakan dikedua control OCX tersebut.

Catatan:
Pendeklarasian nCari dan nSearch tanpa As String sebenarnya bisa. Ini pernah penulis temukan dibeberapa sampel pencarian di situs lain.

Dim nCari, nLokasi ' (tanpa As ........... )

Akan tetapi, tidak menentukan apakah karakater yang akan dicari itu berupa string atau integer atau datatype lainnya akan membuat statusnya menjadi Variant atau As Variant. Salah satu kelemahan Variant adalah lamanya eksekusi karena data yang dicari bisa berupa apa saja.
Untuk data dengan jumlah byte kecil mungkin tidak terasa, tetapi akan menjadi masalah bila ukuran data itu ternyata besar.

Dengan memahami keperluan dalam menentukan dataType, kita bisa mengkhususkan pencarian, baik pencarian karakter dalam bentuk Angka, Huruf atau Karakter lainnya.

Semoga bermanfaat!



Post a Comment for "Mencari Kata Karakter dalam TextBox"