Membuka dan Menyimpan File Teks di Visual Basic - Hallo sahabat Chord Gitar Indonesia, Pada sharing Kunci gitar kali ini yang berjudul Membuka dan Menyimpan File Teks di Visual Basic, saya telah menyediakan lirik lagu lengkap dengan kord gitarnya dari awal lagi sampai akhir lagu. mudah-mudahan isi postingan kunci gitar yang saya tulis ini dapat anda pahami. okelah, ini dia chord gitarnya.

Penyanyi : Membuka dan Menyimpan File Teks di Visual Basic
Judul lagu : 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

Demikianlah Artikel Membuka dan Menyimpan File Teks di Visual Basic

Sekian Kunci gitar Membuka dan Menyimpan File Teks di Visual Basic, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sekian postingan Chord gitar lagu kali ini.

Anda sedang membaca artikel Membuka dan Menyimpan File Teks di Visual Basic dan artikel ini url permalinknya adalah https://priokblog.blogspot.com/2013/07/membuka-dan-menyimpan-file-teks-di.html Semoga artikel ini bisa bermanfaat.

Tweet