Find and Replace With VB6

0 Comments
Preview Form

Sedikit bernostalgia dengan Visual Basic 6.0 kali kita akan membahas seputar manipulasi string, lebih tepat nya kita akan membahas cara untuk mencari lalu mengganti teks dalam vb6. Jadi, gimana sih gan caranya membuat fungsi untuk mencari dan mengganti teks di vb6? Oke, silahkan simak baca baik-baik artikel ini dan pastikan tidak ada yang terlewat karena kita akan menambahkan satu refences wajib ada di tutorial ini.

FSO Objects? apaan nih gan? berikut ringkasan yang ane kutip dari situs Microsoft :
FileSystemObject menyediakan struktur non-hirarkis manipulasi, membaca dan membuat file teks ASCII dan Unicode. Struktur ini sangat berbeda dari struktur hierarki implementasi asli I/O berkas dalam Visual Basic. FileSystemObject tidak mendukung akses file biner, sehingga Anda masih harus menggunakan model I/O berkas asli dalam Visual Basic untuk mengakses file biner.
Gimana gan udah ngerti? kalau belum berarti kita sama awokaowkwok.

Ikuti langkah-langkah berikut ini untuk membuat fungsi Cari dan Ganti Teks di VB6 :

Pertama kita harus menyalakan Laptop kemudian colokin charger nya (kalau batre kosong) lalu buka Microsoft Visual Basic 6.0, selanjutnya kita tambahkan references yang akan kita manfaatkan untuk memanipulasi file dengan cara :
  • Klik menu Project, kemudian klik References...
  • Cari dan centang/pilih Microsoft Scripting Runtime
  • Klik tombol OK

Kedua kita melakukan design pada Form seperti gambar dibawah ini :
Form Design

Ketiga kita masukan script/syntak nya tepat seperti dibawah ini :

Option Explicit

 Dim fs As FileSystemObject
Dim ts, rf As TextStream
Dim rh As String
Dim dataFind(3), dataReplace(3) As String
Dim keys As Integer

 Function loadFile(fileSource As String)
    Set fs = New FileSystemObject
     
    'Read
    If fs.FileExists(fileSource) Then
        Set ts = fs.OpenTextFile(fileSource)
        Do While Not ts.AtEndOfStream
            rh = ts.ReadAll
        Loop
        
        'Refresh
        txtHasil.Text = rh
    Else
        MsgBox "File " & fileSource & " not found.", vbCritical, "Error: 404"
    End If

    'Clear memory used by FSO objects
    Set ts = Nothing
    Set fs = Nothing
End Function

 Function GoReplace(fileSource As String)
    Set fs = New FileSystemObject
    
    'Find teks for replace
    dataFind(1) = "%XO_Nama%"
    dataFind(2) = "%XO_TanggalLahir%"
    dataFind(3) = "%XO_Alamat%"
    
    'Value of replace by keys/id
    'Example: dataFind(1) = dataReplace(1)
    'So:      %XO_Nama%   = Sani Malik Ibrahim
    dataReplace(1) = "Sani Malik Ibrahim"
    dataReplace(2) = "30 Maret"
    dataReplace(3) = "Kota Tasikmalaya"
     
    
    'Check file available
    If fs.FileExists(fileSource) Then
        'Read
        Set ts = fs.OpenTextFile(fileSource)
        Do While Not ts.AtEndOfStream
            rh = ts.ReadAll
        Loop
        
        'Replace
        For keys = 1 To UBound(dataFind)
            rh = Replace(rh, dataFind(keys), dataReplace(keys))
        Next keys
        
        'Write
        Set ts = fs.OpenTextFile(fileSource, ForWriting, True)
        ts.WriteLine rh
        ts.Close
        
        'refresh
        txtHasil.Text = rh
        
        MsgBox "Success, file " & fileSource & " has been updated.", vbInformation, "Yeah!"
    Else
        MsgBox "File " & fileSource & " not found.", vbCritical, "Error: 404"
    End If

    'Clear memory used by FSO objects
    Set ts = Nothing
    Set fs = Nothing
End Function

 Private Sub btnLoadFile_Click()
    loadFile "Test.txt"
    txtHasil.SetFocus
End Sub

 Private Sub btnStartReplace_Click()
    GoReplace "Test.txt"
    txtHasil.SetFocus
End Sub

 Private Sub Form_Load()
    loadFile "Test.txt"
End Sub

Ke empat kita simpan dulu Project nya, lalu kita buat satu file dengan nama "Test.txt" (perhatikan huruf besar kecil nya, tanpa kutip). Kemudian simpan satu folder dengan file Project ini. Isi file Test.txt seperti dibawah ini :
Nama saya %XO_Nama%, saya lahir pada tanggal %XO_TanggalLahir%. Sekarang saya tinggal di %XO_Alamat%.
Selesai. Seharunya saat kita jalankan tidak akan terjadi error, dan jika terjadi error mungkin ente kurang minum dan silahkan ulangi/baca lagi tutorial ini dari awal! Ente juga bisa menggunakan cara malas ketika terjadi error dengan cara membuat komentar dibawah artikel ini.

Contoh project download disini gan.

Sekian, salam anak ganteung! 

Sani Malik Ibrahim

No comments:

Post a Comment

Please feel free to comment with the words good and right, and please respect people's work. First, you must login to gmail for comment.