Makalah Biologi tentang Tumbuhan Mangrove dan Tanaman Hias

    Kali ini saya akan membahas bagaimana cara membaca sebuah isi file berbentuk TXT dengan program VB 6 yang sederhana... Nah, sebelum melihat program,,, minum-minum dulu agar otak kita fresh kembali..
Programnya simple kok seperti biasanya..
Neh programnya..: Silahkan di COPAST.. bagi yang mau saja..
yang tidak mau ya gak papa.

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1
Picture1.Cls
Picture1.Print "========================================" Picture1.Print "NIM Nama Alamat"
Picture1.Print "========================================"

Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")

  If Trim(fd(0)) = nim Then
    Picture1.Print fd(0) & Space(10) & fd(1) & Space(20) & fd(2)
    Exit Do
  End If
Loop

Close #1

Nah, sudah kelarkan .. jangan lupa tinggalkan pesan sebelum keluar.