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

lengyang 2003-11-20 07:46:38
我的代码如下

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
但出错了,提示输入超出文件末尾,不知道如何解决
...全文
21 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lengyang 2003-11-20
  • 打赏
  • 举报
回复
谢谢问题解决,没想到是中文字符的问题!
Maconel 2003-11-20
  • 打赏
  • 举报
回复
呵呵,我发现有错误是因为文件中有中文
因为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 2003-11-20
  • 打赏
  • 举报
回复
关键不是这个问题

我使用timer延迟后面的语句也不行,那时候ipconfig 已经执行完毕1.txt文件也存在了
xiaobird1 2003-11-20
  • 打赏
  • 举报
回复
把这句放到Form_Load()中比较合适
xiaobird1 2003-11-20
  • 打赏
  • 举报
回复
ipconfig >c:\1.txt

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

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧