读取这段文本，出来的怎么是乱码呢?

Question

文本内容如下：
dasgdfgdfgdfgdfgdfgdfgdfg
下面是读入的语句：
Open "d:\dd.txt" For Input As #iFileNum
    strFileContent = InputB(LOF(iFileNum), #iFileNum)
    MsgBox strFileContent
    Write #2, strFileContent    Close #iFileNum＃2号文件显示的却是乱码，对话框弹出来的也是乱码

Answer 1

用read啊,不要用inputb啊.inputb(有这样的函数么?没用过),看名字好象是针对unicode的函数吧,将单字节字符全做为双字节字符来看了.

Answer 2

这句
strFileContent = InputB(LOF(iFileNum), #iFileNum)
改为
strFileContent = StrConv(InputB(LOF(iFileNum), #iFileNum), vbUnicode)

Answer 3

Open "d:\dd.txt" For Input As #1
do until eof(1)
    Line Input #1, strTemp
    strfile = strfile & strTemp
loop
close #1
MsgBox strfileopen "d:\bb.txt" for output as #2
 print #2,strfile
close #2这样不好吗