Makalah Biologi tentang Tumbuhan Mangrove dan Tanaman Hias

     dalam pemograman tak ada yang susah sebenarnya, asal kita mau saja belajar pasti bisa.. tapi tidak ada orang belajar sekali langsung bisa perogram. nah itulah .. harus sering kita mengulang apa yang kita pelajari dalam programan... nah ini ada sepotong program untuk mengedit  data berupa file txt.:

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

'masukkan data ke textbox
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) = nim Then
     txtNim.Text = fd(0)
     txtNama.Text = fd(1)
     txtJur.Text = fd(2)
     Exit Do
  End If
Loop
Close #1

'-- hapus file lama copy ke yg baru kecuali record yg di edit
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt"
For Output As #2
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2

Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

Program ini berguna di visual basiv 6, nah diulang-ulang saja kalau belum benar, kesalahan merupakan pengetahuan kita dalam belajar. tanpa kesalahan kita akan terjerumus dalam kepintaran kita.

      Untuk menghapus isi dari data di txt ini programnya ada di bawah :

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt" For Output As #2

Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2
Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

    Selamat mencoba , Semoga berhasil.. GOOD LUCK..