Question

vb中调用外txt文档时出现乱码怎么解决

调用源程序：
Private Sub Command2_Click()
Dim lines As String
Dim nextline As String
Open "d:\rj\azyvb.txt" For Input As #1
Text7.Text = ""
Do Until EOF(1)
Line Input #1, nextline
lines = lines & nextline & Chr(13) & Chr(10)
Loop
Close #1
Text7.Text = lines

End Sub

Answer 1

txt文档的编码不Ansi，查看txt文档的编码方式可以用记事本打开文本，点另存为，看最下面编码框，当前的编码方式会被选中。把它另存为Ansi编码，你再运行程序就不会乱码了。

Answer 2

代码是正确的。不过有些txt文件编码不一样。

Answer 3

去掉 & Chr(10)试下。