关于读取文件输出到text控件的问题？

[lengyang]

我的代码如下

Private Sub Command1_Click()
Shell "c:\1.bat" 注1.bat的内容为ipconfig >c:\1.txt
Open "c:\1.txt" For Input As #1
x$ = Input$(LOF(1), 1)
Text1.Text = x$
Close
End Sub
但出错了，提示输入超出文件末尾，不知道如何解决

[xiaobird1]

ipconfig >c:\1.txt

这句执行完后，会有一定的延迟，所以才出错误

[xiaobird1]

把这句放到Form_Load()中比较合适

[lengyang]

关键不是这个问题

我使用timer延迟后面的语句也不行，那时候ipconfig 已经执行完毕1.txt文件也存在了

[Maconel]

呵呵，我发现有错误是因为文件中有中文
因为vb中认为一个中文字符长度和英文一样都是一，所以会出错了。
建议这样
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
x$ = x$ & Input$(1, 1)
Loop
Text1.Text = x$
Close

[lengyang]

谢谢问题解决，没想到是中文字符的问题！