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
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 :
Contoh project download disini gan.
Sekian, salam anak ganteung!
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!