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