无知者的疑问

Question

open filename for input as #1
  while not eof(1)
    line input #1,value
    text1.text=text1.text+value+vbcrlf
  wend
close #1

Answer 1

看来ClientDC(萧柳)不在，俺来吧。
open filename for input as #1‘打开文件以读取内容
  while not eof(1)’如果没到文本的最后
    line input #1,value‘读入下一行
    text1.text=text1.text+value+vbcrlf
  wend
close #1’关闭文件，#1是文件号

Answer 2

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile