作者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