Latest News

Membuka dan Menyimpan File Teks di Visual Basic

Membuka dan Menyimpan File Teks di Visual Basic
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 Integeri = 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)

Membuka dan Menyimpan File Teks
Post a Comment