📄 18964.html
字号:
<html> <head> <title>Re: 请各位热心人仕或高手帮小第Debug一下。</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请各位热心人仕或高手帮小第Debug一下。</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by Wesley on September 15, 1999 at 15:55:45:<p>In Reply to: <a href="18961.html">请各位热心人仕或高手帮小第Debug一下。</a> posted by ComBilLi 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$ 总是只读得文件的最后一行，而不是整个一件。<p>问题出在这<p>Line Input #1, readline$<br>allstring$ = readline$ & wordwrap$ <-----每行资料并未被累加到allstring$中<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><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--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -