用line input好象不行呀~
我要用TEXT来显示一个文本文件的全部内容，
如果他有空格，那TEXT也有空格~
就是这样，谢谢

strcontent=input$(lof(文件号),文件号)
也可用Fso的TextStream的readToEnd

能不能说具体一点，最好有个例子，
非常感谢~~

直接用readall不是更简单？

dim s as string
open "d:\temp.txt" for input as #1
s=input$(lof(1),1)
close

闭关修炼，
来此学习！

你是闭什么关?
修什么炼?.

Dim s As String
Open "d:\a.txt" For Binary As #1 '此处要用 Binary
s = Input$(LOF(1), 1)
Close
Text1 = s

或者：

Dim s$, ss$
ss = ""
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
ss = ss & s & vbCrLf
Loop
Close
Text1 = ss

[此贴子已经被作者于2007-10-13 18:14:07编辑过]

该说的都被楼上几个说了！

那我再来一个

[CODE]RichTextBox1.LoadFile "111.txt"
s=RichTextBox1.Text[/CODE]