Question

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

比如说编一个简单的录入、显示： 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或自己找~
但是这个参数效果很不理想,很多时候还是有
乱码
~