Kode VB6 Untuk Membaca File Notepad atau File TXT Baris per Baris

Artikel kali ini admin ingin berbagi sebuh tips yaitu cara membaca file TXT atau Notepad baris perbaris dengan menggunakan vb6.

Output dari program ini adalah membaca sebuah teks yang kita sudah buat sebelumnya di notepad dengan menampilkan beris per baris di sebuah messagebox.

Langkah-langkah cara pembuatannya adalah sebagai berikut :

1. Buka program Notepad 

2. Pada Notepad ketiklah sebuah teks. Disini admin mencontohkan sebagai berikut :

ini baris pertama

ini baris kedua

ini baris ketiga

3. Simpan File Notepad di drive D dengan nama file BacaBaris (terserah anda)

4. Kemudian Anda ketik kode dibawah ini :

Option Explicit

Private Function OpenTextFile() As String

    Dim nFileNum As Integer, sText As String

    Dim sNextLine As String, lLineCount As Long

    nFileNum = FreeFile

    Open "D:\BacaBaris.txt" For Input As nFileNum

        lLineCount = 1

        Do While Not EOF(nFileNum)

            Line Input #nFileNum, sNextLine

            MsgBox sNextLine, vbOKOnly, "Teks Dari Notepad" 'ini akan membaca file text baris per baris

            sNextLine = sNextLine & vbCrLf

            sText = sText & sNextLine

        Loop

        OpenTextFile = sText

    Close nFileNum

End Function

Private Sub Form_Load()

Call OpenTextFile

End Sub

5. Kemudian jalankan Project Anda lalu tekan OK pada setiap Messagebox yang muncul yang masing-masing messagebox akan menampilkan kalimat dari hasil notepad perbarisnya.

Demikian tips dari saya cara Membaca File Notepad atau File TXT Baris per Baris dengan menggunakan kode vb6.

Semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga sukses....

Related Post: File Directory