作者A1pha ([αλφα])
看板Visual_Basic
標題[VB6 ] 輸入已超過檔案結尾
時間Thu Jan 11 23:59:47 2007
我在幫我的程式寫說明檔，
方法是寫在一個ReadMe.txt裡面，
然後使用者在程式終點選「說明」選單的時候，
會跳出一個表單，
表單上一個超大的文字框（txtReadMe），
然後把ReadMe.txt的東西讀出來丟進去...
一開始測的時候還OK，
後來寫好之後，測試就不行了，
出現，輸入超過檔案結尾。
我去查MSDN，沒有結果...
http://msdn2.microsoft.com/zh-tw/library/1k5e45de(VS.80).aspx
我應該試用循序的方式開啟的...
也沒有其他檔案在用ReadMe.txt
只好求助這邊了QQ
下面是程式碼...
--
Private Sub Form_Load()
Open App.Path & "\ReadMe.txt" For Input As #1
txtReadMe.Text = Input(LOF(1), #1)
Close
End Sub
--
潘子曰：「浸信蘇，則不如無蘇。」
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.8.71.163
※ 編輯: A1pha 來自: 124.8.71.163 (01/12 00:46)
1F：→ A1pha:我看大部分的人都是用回圈找 Eof(1)=True 01/12 02:45
2F：→ A1pha:不過我這書上的範例是用 Input(LOF(1), #1) 01/12 02:46
3F：→ A1pha:該不會是因為，我的說明檔用中文寫的，所以不能用LOF吧？ 01/12 02:47
後來試了：
Private Sub Command1_Click()
txtReadMe = ""
Open App.Path & "\ReadMe.txt" For Input As #1
Dim temptxt As String
Do While Not (EOF(1))
Input #1, temptxt
txtReadMe = txtReadMe & temptxt
Loop
Close
End Sub
不過這樣就變成沒辦法斷行....
真搞不懂啊
※ 編輯: A1pha 來自: 124.8.71.163 (01/12 03:00)
4F：→ A1pha:我會斷行了.... & vbCrLf 囧 奇摩知識真好用...囧 01/12 03:13