Sudah banyak aplikasi yang dapat mengakses file text, baik itu dalam bentuk membuat log file, membuat konfigurasi file atau menyimpan data. Nah sekarang aku mau memberikan tips sederhana tentang fungsi untuk mengkases teks file. Berikut fungsinya :
Private Function fcTextRead() As String
‘Membaca file teks
Dim strMessage as String
Open (App.Path & “\namafile.log”) For Input As #1Do While Not EOF(1)
Line Input #1, strMessage
fcTextRead = strMessageLoop
Close #1
End FunctionPrivate Function fcTextWrite(strMessage As String)
‘Menulis di file teks (seolah-olah membuat file teks baru dan dengan isian yang baru):
Open (App.Path & “\namafile.log”) For Output As #1Print #1, strMessage
Close #1
End FunctionPrivate Function fcTextAppends(strMessage As String)
‘Menulis (menambahkan data di file teks yang udah ada):
Open (App.Path & “\namafile.log”) For Append As #1Print #1, strMessage
Close #1
End Function
Untuk menggunakan fungsi tersebut maka gunakan sintak dibawah ini :
txtUserName.Text = fcTextRead ‘Untuk mengisi text box dari file text
Call fcTextWrite(txtUserName) ‘Untuk menulis file text dari data text box
Semoga bermanfaat.
sebuah senyum utuk mu.. sebagai salam kenal.
aku mau nanya ad nggak aplikasi vb untuk sistem pengaturan n kemudian..kasih tahu donk tentang menampilkan perintah ke note pat?????? trims
Mahrus:
Aplikasi vb untuk sistem pengaturan yang bagaimana? pengaturan banyak jenisnya lho…
Terus menampilkan perintah ke notepad yang bagaimana, masih kurang jelas maksudnya.
saya pengen buat program yang dapat membaca gambar dengan menginput data nya kemudian keluaran dari program tmpil kedalam note pad.. maka yang diatur dalah inputnya.. gmn ya??? contoh kita pengen buat gerbang logika AND pada vb dengan masukkan A=1 ,B=1 maka hasilnya nanti kan 1 maka hasil ini pengennya kita tampilkan di note pad hm…. gmn ya????????????????? trims saudara mahrus…
Mahrus:
Prinsipnya sama aja kok… di Vb juga kenal kok istilah logika AND, OR, NOT. Jadi kayak ngitung biasa aja baru hasil operasinya dimunculin ke notepad dengan menggunakan script yang sudah dicontohin di atas.
Misalnya : Call fcTextWrite(A AND B)
Dimana A dan B sudah di assign angkanya, Gimana mas Boel
trims da mahrus, aku coba dulu…
Mahrus:
Okeh boel, selamat mencoba.
Mr Mahrus… mau sekalian nanya.. ada syntax
Open (App.Path & “\namafile.log”) For Append As #1
dan
Open (App.Path & “\namafile.log”) For Input As #1
apakah maksudnya Append dan Input di syntax tersebut? dan apakah fungsi #1 di syntax itu??
regards and thanks