Contoh artikel ini menjelaskan metode VB untuk membaca file teks baris demi baris. Bagikan dengan semua orang untuk referensi Anda. Dengan rincian sebagai berikut:
'(deklarasi umum)Redupkan nFileNum Sebagai Integer, sText Sebagai String, sNextLine Sebagai String, lLineCount As Long'============= ======Sub Perintah Pribadi1_Klik()' Dapatkan nomor file gratisnFileNum = FreeFile' Buka file teks untuk input.inputbox mengembalikan jalur untuk membaca fileOpen "C:/Documents and Settings/Sudeep/My Documents/3.txt" Untuk Input Sebagai nFileNumlLineCount = 1' Baca isi fileDo While Not EOF(nFileNum) Line Input #nFileNum, sNextLine 'lakukan sesuatu dengannya' tambahkan nomor baris ke dalamnya, dalam hal ini! sNextLine = sNextLine & vbCrLf sTeks = sTeks & sNextLineLoopText1.Text = sText' Tutup fileTutup Sub nFileNumEnd
Saya harap artikel ini bermanfaat untuk pemrograman VB semua orang.