Question

vb 中line input 问题

用open语句读取文本文件全部内容并输出到时text控件
这样写对不对

Dim txt
Open "Tal.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
text1.text= txt
Loop
Close #1

以上语句运行后无输出，为什么
如遇文件内这含有空行，如何跳过空行

高分

Answer 1

你的问题在于：
1.你没有把text1的multiline属性设置为真
2.text1.text= txt 这条语句有问题

这下面就是你想要的，含注释，程序已经测试通过！！

Dim txt As String
Open "c:\Tal.txt" For Input As #1 '此处用绝对路径（可用commondialog控件获取），也可用相对路径。
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, txt
If Len(txt) Then '判断是否为空行
Text1.Text = Text1.Text & txt & vbCrLf '保存前一次读取的内容，并加上换行，你的语句运行无输出原因在此
End If
Loop
Close #1

Answer 2

程序代码应该是这样的,你自己试试吧!!!

Dim txt
Open "Tal.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
If txt <> vbNullString Then
text1.text=text1.text & txt
End If
Loop
Close #1

以后共同学习!!!

Answer 3

Dim txt as string , s as string
Open app.path & "\Tal.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
if not len(trim(txt)) = 0 then s = s & txt
Loop
text1.text = s
Close #1

Answer 4

用open语句读取文本文件全部内容并输出到text控件
这种说法不对，open是用来打开文件的，打开方式取决于后面的操作。

另外，你的代码输出的总是最后的一行内容。
修改如下：
Dim txt as string，t as string
Open "Tal.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
t=t & txt
Loop
text1.text= t
Close #1

并设置Text1.MultiLine = True