Question

vb里input和line input 的问题

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "´ò¿ªÎļþ"
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Dim Str1
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Str1
Text1 = Str1
Loop
Close #1

End Sub
读文件只能读出最后几个字。
如建立这么一个乱的txt文件
asdfasdfasfasf
asdfasdf

""aasdf"

46786634
l这里和翁
阿斯来的分
按时

2342134

a34
‘’
‘423’4‘4
2’52◎％……◎＃￥……＃※

asdf
as
3242
阿斯地方
运行结构就是读出阿斯地方。。
为什么？
input 和lineinput都一样？
改成如下
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "´ò¿ªÎļþ"
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Dim Str
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Str1
Str = Str & Str1 & Chr(13) & Chr(10)
Text1 = Str
Loop
Close #1

End Sub
很多符合读不出来。
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "´ò¿ªÎļþ"
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Dim Str
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
line Input #1, Str1
Str = Str & Str1 & Chr(13) & Chr(10)
Text1 = Str
Loop
Close #1

End Sub
改成这样就全部读出了
这是为什么呢？？？？
Str = Str & Str1 & Chr(13) & Chr(10)
不用这句话说明什么？

Answer 1

Str = Str & Str1 & Chr(13) & Chr(10）这是将每一行STR写到以前STR后面去，一个是一行一行输出，一个是一个一个输出，不一样的