用input函数读取中文的问题
我想用input函数读取一个包含中文的文本文件代码如下
Function ReadTextFileContents(filename As String) As String
Dim FileNum As Integer
Dim isOpen As Boolean
On Error GoTo Error_Handler
FileNum = FreeFile()
Open filename For Input As #FileNum
isOpen = True
ReadTextFileContents = Input(LOF(FileNum) , FileNum)
Close #FileNum
Error_Handler:
If isOpen Then
Close #FileNum
End If
If Err Then
MsgBox Err.Description + "--please check the file:" + filename
End If
End Function
结果发现如果文件中包含中文就会出现第一个参数越界的错误,调试发现LOF(FileNum)的返回值把中文作为2来处理,但是读取的时候却好象作为一个字符,所以会越界,请问有什么好的解决方法,谢谢!