vb 读入txt怎么汉字成了乱码？

Question

比如说编一个简单的录入、显示：
Dim a As String
Dim b As String
Private Sub Command1_Click()
Open "C:\Documents and Settings\Administrator\桌面\cc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a '将一行字符存入a里面
b = b & a
Loop
Close #1

Label1 = b
End Sub
但是显示出来的汉字都是乱码，英文还是英文。这是怎么回事呢？

Answer 1

1楼的正解，这是因为你读的那个文本文件的编码不是Unicode码，最简单有效的方法就是用记事本打开你的那个Txt文件，然后选另存为，在编码方式那栏里选择Unicode或者ANSI 然后再用程序读文本内容就不是乱码了

Answer 2

你看文本文件的编码

VB6内部编码是Unicode的..

最好用FSO读取文件~
FSO读取文件的时候有个被重载的方法,就是提供2个参数...第二个参数是是否使用Unicode编码方式...

如果你读取的文件是Unicode的话,第二个参数就必须True
[FSO].OpenTextFile

VB自己提供一个Unicode和ASCII之间转换的函数,StrConv...参数是什么忘记了...最好你查MSDN或自己找~ 但是这个参数效果很不理想,很多时候还是有乱码~

Answer 3

Label1 =StrConv(b,vbFromUnicode)
试试本回答被提问者采纳