Makalah Biologi tentang Tumbuhan Mangrove dan Tanaman Hias

   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