VB6關於文字讀取寫出

bill22520656

假設我有個文字檔案內容為
123
456
789
我該如何讓VB讀取此文字檔並一行一行寫出 。

YYYpo

VB6的話，我提供我之前寫的，給你參考

1. Private Sub Command1_Click()
   
2. On Error GoTo errHandle
   
3. CommonDialog1.ShowOpen
   
4. CommonDialog1.Filter = "文字處理檔案 (*.txt)|*.txt|"
   
5. Open CommonDialog1.FileName For Input As #1
   
6. While Not EOF(1)
   
7. Input #1, textline
   
8. Text2.Text = Text2.Text + textline + Chr(13) + Chr(10)
   
9. Wend
   
10. Close #1
    
11. Exit Sub
    
12. errHandle:
    
13. MsgBox Err.Description, vbCritical, "讀取資料失敗!"
    
14. End Sub

複製代碼

希望對你有幫助