标题: 文本框 读入文件出现 "输入超出文件尾" [打印本页]

---

作者: allpurpose    时间: 2005-6-29 00:25     标题: 文本框 读入文件出现 "输入超出文件尾"

我写了个读入中文文本的代码,在读到一个文件时出现上面说的错误,但读别的中文文本文件没出错.下面是我的代码
Open FileName For Input As FileNum
Text1.Text = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode) '把Ansi格式再转换为unicode格式
Close FileNum

filename 是要打开的文件名,filenum是一个文件号.
付上一个一读就出错的哪个中文文件

---

作者: Nothing    时间: 2005-6-29 00:30

请直接使用Input 不要使用StrConv

---

作者: Nothing    时间: 2005-6-29 00:33

读入文件可以使用
Dim TextLine
Open "TESTFILE" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
   Text1.Text=Text1.Text & TextLine & vbCrLf
Loop
Close #1

---

作者: Nothing    时间: 2005-6-30 00:40

如果你是要做个记事本，那么请你使用RichTextBox这个控件吧
你仔细研究这个控件吧。

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0