[VB6 ] 輸入已超過檔案結尾

看板Visual_Basic作者A1pha ([αλφα])時間18年前 (2007/01/11 23:59)推噓0(0推 0噓 4→)

留言4則, 1人參與討論串1/1

我在幫我的程式寫說明檔，方法是寫在一個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)

→

A1pha

01/12 02:45, , 1^F

01/12 02:45, 1^F

→

A1pha

01/12 02:46, , 2^F

01/12 02:46, 2^F

→

A1pha

01/12 02:47, , 3^F

01/12 02:47, 3^F

後來試了： 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)

→

A1pha

01/12 03:13, , 4^F

01/12 03:13, 4^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 A1pha 的文章

文章代碼(AID): #15fbxsfZ (Visual_Basic)