Berita Lampung Terkini
Berita  

Dasar Membuat Aplikasi Subtitle, “Membuat File Teks dengan VB6”

Ada 3 Hal yang wajib diketahui untuk dapat mengakses maupun mengolah file teks.
1. Membaca File (For Input) = mengambil teks dari file.
2. Menulis File (For Output) = membuat teks yang baru baik dari file yang sudah ada maupun yang belum ada.
3. Ubah File (For Append) = menambah teks dari file yang sudah ada
Berikut penataan Script/Kode nya :
1. Membaca File (For Input)
[vb]Dim Pesan as String ‘–> Variabel penampung
Open (App.Path & “namafile.log”) For Input As #1 ‘–> Membuka File
Do While Not EOF(1) ‘–>memulai perulangan sampai teks notepad habis dibaca
Line Input #1, Pesan ‘–>membaca teks, dan ditampung pada variabel Pesan
Loop ‘–> kembali ke Do While jika teks belum habis dibaca (kondisi belum dipenuhi).
Close #1
[/vb]
Hasil dari Fungsi di atas adalah ISI dari variabel pesan, kita bisa mengujinya dengan membuat dialog informasi.
[vb] Msgbox Pesan [/vb]
2. Menulis File (For Output).
[vb] Dim Pesan as String
Pesan=”OK Dong” ‘–>contoh isi pesan
Open (App.Path & “namafile.log”) For Output As #1 ‘–> Membuka file namafile.log yang nantinya akan kosong secara otomatis, Jika tidak ada namafile.log, otomatis dibuat baru
Print #1, Pesan ‘–> mengisi file namafile.log
Close #1 ‘ –> menutup fungsi Open
[/vb]
Hasil dari Fungsi di atas adalah File teks dengan nama “namafile.log”, kita bisa mengujinya dengan membuka file tersebut melalui notepad.
3. Ubah File (For Append).
[vb] Dim Pesan as String
Pesan=”Lagi Donk”
Open (App.Path & “namafile.log”) For Append As #1 ‘–>membuka namafile yg sdh ada
Print #1, Pesan ‘—> menambah data (inserting) pada file
Close #1
[/vb]
Hasil dari Fungsi di atas adalah penambahan kata “Lagi Donk” pada File teks tadi, kita bisa mengujinya dengan membuka file tersebut melalui notepad.
Materi ini cukup penting dalam dunia pemrograman, tidak perlu menghafal, yang paling penting adalah “mengerti”. Jika lupa, mudah saja tinggal copy paste. Tapi jika tidak mengerti, Kita tidak bisa memodifikasinya.
Ini adalah tahap awal dalam pembuatan Aplikasi Subtitle editor. Dan akan digunakan pada tahap selanjutnya.
Pada kesempatan berikutnya kita akan membahas fungsi-fungsi string untuk memecah timer pada subtitle .srt.

Leave a Reply

Your email address will not be published. Required fields are marked *