allpurpose

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

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

Nothing

请直接使用Input 不要使用StrConv

Nothing

读入文件可以使用
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

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