VB中text 读入数据问题？

Question

代码如下：
Dim InputData As String*1Open"C:\abc.txt" For Input As #1Do While Not EOF(1) InputData=Input(1,#1) Text1.Text=Text1.Text+InputDataLoop Close#1

为什么每次读入数据，窗口textbox上只显示一个　。　也就是句号。为什么啊？

Answer 1

最简方法：

Open "C:\abc.txt" For Binary As #1
Text1.Text = Input(LOF(1), #1)
Close #1

三行语句即可把文件所有内容读入Text1，而且没有用到任何变量

Answer 2

定义有问题Dim InputData As String*1表示变量只能保存1个字符

vb读取文件

'1.每次读取一行
Private Sub Command1_Click()
    Dim InputData As String
    Text1.Text = ""
    Open "c:\abc.txt" For Input As #1
    Do While Not EOF(1)   ' 循环至文件尾。
        Line Input #1, InputData
        Text1.Text = Text1.Text & InputData
    Loop
    Close
End Sub
'2. 一次就读取全部内容，二进制方式
Private Sub Command1_Click()
    Text1.Text = ""
    Open "c:\abc.txt" For Binary Access Read As #1
    ReDim btes(LOF(1) - 1) As Byte
    Get #1, , btes
    Close
    Text1.Text = StrConv(btes, vbUnicode)
End Sub

Answer 3

As String*1限定了最大字符数为1,所以只显示了最后的句号

Answer 4

应该是要把Text1的MultiLine属性设为True

Answer 5

你确定你的text文档里面除了。还有其他的吗?