冰楓論壇

標題: VB6關於文字讀取寫出 [打印本頁]

---

作者: bill22520656    時間: 2019-7-24 02:59
標題: VB6關於文字讀取寫出
假設我有個文字檔案內容為
123
456
789
我該如何讓VB讀取此文字檔並一行一行寫出 。

---

作者: YYYpo    時間: 2020-2-29 10:26


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

複製代碼

希望對你有幫助

---

歡迎光臨 冰楓論壇 (https://bingfong.com/)

Powered by 冰楓