ตัวอย่างของบทความนี้อธิบายวิธีการของ VB ในการอ่านไฟล์ข้อความทีละบรรทัด แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ รายละเอียดมีดังนี้:
'(การประกาศทั่วไป) Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long'=========================== ======Private Sub Command1_Click()' รับไฟล์ฟรี numbernFileNum = FreeFile' เปิดไฟล์ข้อความสำหรับอินพุต กล่องอินพุตส่งคืนเส้นทางเพื่ออ่านไฟล์เปิด "C:/Documents and Settings/Sudeep/My Documents/3.txt" สำหรับอินพุตเป็น nFileNumlLineCount = 1' อ่านเนื้อหาของไฟล์ในขณะที่ไม่ใช่ EOF(nFileNum) อินพุตบรรทัด #nFileNum, sNextLine 'ทำอะไรบางอย่างกับมัน 'เพิ่มหมายเลขบรรทัดลงไป ในกรณีนี้! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' ปิดไฟล์ปิด nFileNumEnd Sub
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม VB ของทุกคน