feixiang 发表于 2008-8-16 22:17:36

[求助]

<p><font face="Verdana">事时错误'62'<br/>超出文件尾</font></p>
<p>&nbsp;</p>
<p align="left"><font face="仿宋_GB2312">Private Sub Form_Click()<br/>&nbsp;&nbsp;&nbsp; Q = InputBox("请输入要查找的字符串：")<br/>&nbsp;&nbsp;&nbsp; Open "c:\Temp\xyz.txt" For Input As #1<br/>&nbsp;&nbsp;&nbsp; X = <font color="#0000ff">Input</font>(LOF(1), 1) <font color="#339933">'把整个文件内容读入变量X中。这一句提示:<font face="Verdana">事时错误'62'</font>,<font face="Verdana">超出文件尾</font>.这是为什么啊????</font><br/>&nbsp;&nbsp;&nbsp; Close #1<br/>&nbsp;&nbsp;&nbsp; y = InStr(1, X, Q)<br/>&nbsp;&nbsp;&nbsp; If y &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Print "找到字符串"; Q<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Print "未找到字符串"; Q<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p>

马大哈 发表于 2008-8-17 17:39:48

<p>不建议这样做.</p>
<p>&nbsp;</p>
<p>看看我给你改的代码:</p>
<p>&nbsp;</p>
<p><font face="Verdana">Private Sub Form_Click()<br/>&nbsp;&nbsp;&nbsp; Dim Q As String, X As String, Y As Long<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Q = InputBox("请输入要查找的字符串：")<br/>&nbsp;&nbsp;&nbsp; Open "c:\Temp\xyz.txt" For Binary As #1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; X = String(LOF(1), Chr(0))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '先分配内存<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Get #1, , X '把整个文件内容读入变量X中<br/>&nbsp;&nbsp;&nbsp; Close #1<br/>&nbsp;&nbsp;&nbsp; Y = InStr(1, X, Q)<br/>&nbsp;&nbsp;&nbsp; If Y &lt;&gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Print "找到字符串"; Q<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Print "未找到字符串"; Q<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p>

马大哈 发表于 2008-8-17 17:40:30

<p>你应该要把变量都定义了,不然容易在后面程序写大了后出错,而且也不好查,也不利于程序的效率.</p>
页: [1]
查看完整版本: [求助]