Membuka dan Menyimpan File Teks

Kegiatan / proses membuka dan menyimpan file teks biasanya digunakan untuk aplikasi sejenis Notepad, tapi selain itu juga dilakukan untuk menyimpan data aplikasi ke dalam file teks (*.txt). Sebelum melanjutkannya, siapkan sebuah Form dan kontrol TextBox (Multiline=True) didalamnya. Lalu siapkan sebuah file *.txt yang berisi, dan ingat-ingat lokasinya (dalam contoh dibawah ini, lokasi file-nya di D:\contoh.txt).
Berikut ini macam-macam metodenya :

[ VB 6.0 ]

• Membuka Teks dari File
  
  Dim i As Integer
  i = FreeFile
  Open "D:\contoh.txt" For Input As #i
  Text1.Text = Input(LOF(i), i)
  Close #i
  
  
• Membuka Teks dari File (dengan cara dibaca per baris)
  
  Dim i As Integer
  i = FreeFile
    
  Dim s As String, s1 As String
  Open "D:\contoh.txt" For Input As #i
  Do Until EOF(i)
  Input #i, s 'tiap baris d tampung d variabel "s"
  s1 = s1 & s & IIf(EOF(i), "", vbCrLf)
  Loop
  Close #i
    
  Text1.Text = s1
  
  
• Menyimpan Teks ke File
  
  Dim i As Integer
  i = FreeFile
  Open "D:\contoh.txt" For Output As #i
  Print #i, Text1.Text
  Close #i
  
  
• Menambahkan Teks ke File
  
  Dim i As Integer
  i = FreeFile
  Open "D:\contoh.txt" For Append As #i
  Print #i, Text1.Text
  Close #i

[ VB .NET ]

• Membuka Teks dari File
  
  Dim i As Integer = FreeFile()
  FileOpen(i, "D:\contoh.txt", OpenMode.Input)
  TextBox1.Text = InputString(i, LOF(i))
  FileClose(i)
  
  
• Membuka Teks dari File (dengan cara dibaca per baris)
  
  Dim i As Integer = FreeFile()
  
  Dim s, s1 As String
  FileOpen(i, "D:\contoh.txt", OpenMode.Input)
  Do Until EOF(i)
  Input(i, s) 'tiap baris d tampung d variabel "s"
  s1 &= s & IIf(EOF(i), "", vbCrLf)
  Loop
  FileClose(i)
  
  TextBox1.Text = s1
  
  
• Menyimpan Teks ke File
  
  Dim i As Integer = FreeFile()
  FileOpen(i, "D:\contoh.txt", OpenMode.Output)
  PrintLine(i, TextBox1.Text)
  FileClose(i)
  
  
• Menambahkan Teks ke File
  
  Dim i As Integer = FreeFile()
  FileOpen(i, "D:\contoh.txt", OpenMode.Append)
  PrintLine(i, TextBox1.Text)
  FileClose(i)