Coding Program Menghapus Isi TXT dengan VB6

   Di bawah ini merupakan coding sebuah program vb yang berfungsi untuk menghapus isi file yang berada di txt.
nah bagi anda yang mau COPAS silahkan saja di coba. semoga berhasil :

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"

Selesai kan.. Komentar anda berarti buat website saya

Program Mengedit Data di TXT dengan VB6

     Cara mengedit data yang telah kita simpan di dalam file txt dapat kita lakukan edit, caranya mudah bgeet tapi kalian harus jeli melihat program yang ada...
di bawah ini ada potongan program untuk mengedit data di 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"

Nah begitulah  programnya, silahkan anda mencobanya sendiri..

;;