Pages

Subscribe:

Saturday, November 6, 2010

Membaca Data dari Notepad hingga Akhir

Untuk membaca data dari suatu file Notepad (.txt) kita perlu untuk menggunakan Looping (pengulangan) dalam membaca tiap baris yang ada dalam file tersebut. Berikut contohnya:


Berikut Code lengkapnya:
Imports System.IO
Public Class frmReadData2End
    Private Sub btnReadData_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnReadData.Click
        Dim sr As StreamReader
        sr = File.OpenText("MyData.txt")
        lstData.Items.Clear()
        Do While sr.Peek <> -1
            lstData.Items.Add(sr.ReadLine)
        Loop
        sr.Close()
    End Sub
End Class

No comments: