Private Sub Command1_Click()
Dim du
Open "D:\A\虞美人-王国维.txt" For Input As #1 Len = Len(Text1.Text)
Input #1, du
Close #1
Text1.Text = CStr(du)
End Sub

用LineInput
每输出一行就输出一个Vbcrlf

是Input Line

不好意思 少打一个空格 Line Input
Line Input # 语句
      

从已打开的顺序文件中读出一行并将它分配给 String变量。

语法

Line Input #filenumber, varname

Line Input # 语句的语法具有以下几个部分：

部分 描述
filenumber 必要。任何有效的文件号。
varname 必要。有效的 Variant 或 String 变量名。


说明

通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。

Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。

If Dir(App.Path + "\Send-content.txt", vbDirectory) <> "" Then  '判断内容文本是否存在
            
                Open App.Path + "\Send-content.txt" For Input As #2
                Dim contents
                Do While Not EOF(2)
                    Line Input #2, linestr2
                    contents = contents + linestr2 + Chr(13) + Chr(10)

                Loop
                Close #2
end if


contents 得到的是文本的全部内容

仅供参考

[[it] 本帖最后由 hxfly 于 2008-6-2 21:46 编辑 [/it]]