Membuka dan Menyimpan File Text Visual Basic 6 dan VB.NET

Membuka dan Menyimpan File Text

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 C:\contoh.txt).
Berikut ini macam-macam metodenya :

Pada 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

Pada 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)

Thank's for reading the articelMembuka dan Menyimpan File Text Visual Basic 6 dan VB.NET .If You want to copy paste your website please tag my link Membuka dan Menyimpan File Text Visual Basic 6 dan VB.NET Intro My Website.
<a href="http://operaterpm.blogspot.com/2014/02/membuka-dan-menyimpan-file-text-visual.html">Membuka dan Menyimpan File Text Visual Basic 6 dan VB.NET</a>