18961.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 30 行
HTML
30 行
<html> <head> <title>请各位热心人仕或高手帮小第Debug一下。</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>请各位热心人仕或高手帮小第Debug一下。</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:combilli@hotmail.com">ComBilLi</a> on September 15, 1999 at 15:33:01:<p>Option Explicit<br>Property Get getfilelist() As String<br> Dim allstring$, readline$ ,wordwrap$<br> wordwrap$ = Chr$(13) & Chr$(10)<br> Open CurDir & "\list" For Input As #1<br> Do Until EOF(1)<br> Line Input #1, readline$<br> allstring$ = readline$ & wordwrap$ ==================>>>>>这里有问题，请到最后一行看问题详细情况。<br> DoEvents<br> Loop<br> Close #1<br> getfilelist = allstring$<br> allstring$ = ""<br>End Property<p>不知为何，allstring$ 总是只读得文件的最后一行，而不是整个一件。<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18961--><!--top: 18964--><li><a href="18964.html">Re: 请各位热心人仕或高手帮小第Debug一下。</a> <b>Wesley</b> <i>15:55:45 9/15/99</i>(<!--responses: 18964-->1)<ul><!--insert: 18964--><!--top: 18966--><li><a href="18966.html">明白了，我知要怎样做啦。(无内文)</a> <b>ComBilLi</b> <i>16:27:21 9/15/99</i>(<!--responses: 18966-->0)<ul><!--insert: 18966--></ul><!--end: 18966--></ul><!--end: 18964--></ul><!--end: 18961--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?