我用VB.net2005从一个文本文件A.TXT中读取人员名单到组合框为何显示乱码

Question

我用VB.net2005从一个文本文件A.TXT中读取人员名单（普通的文本文件，每行一个人名），读到comBoBox中显示乱码，而把人名改成英文或数字就没问题，换了计算机还是一样.

Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr = Application.StartupPath + "\a.txt"
If IO.File.Exists(sr) Then
Dim srs As String
Dim srf As IO.StreamReader = IO.File.OpenText(sr)
Do While (srf.Peek <> -1)
srs = srf.ReadLine
'srs = srs.Trim
Cmb1.Items.Add(srs)
Loop
End If
End Sub
End Class

a.txt内容

张三
李四
王五
李六
文本文件用“记事本”和其它编辑软件建的的就出现汉字乱码，但是用程序自己建的文本文件然后直接读或者用文本编辑软件编辑后再读则显示正常。很郁闷，是我的机器有病毒码？如果是，为何文件内容是英文或数字则可正常读出。

Answer 1

这是因为你保存的文本文件的编码和vb.net的默认编码不同，文本文件的默认编码是ANSI，而vb.net的默认编码是UTF-8.

解决方法1：按楼上的方法在代码内指定读取时使用的编码（System.Text.Encoding.Default表示使用操作系统系统默认的编码，如果中文系统的默认编码一般为ANSI）。

解决方法2：用记事本保存文本文件时指定保存的编码（如图）：

Answer 2

是你的编码方式不对

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr = Application.StartupPath + "\a.txt"
If IO.File.Exists(sr) Then
Dim srs As String

Dim srf As New IO.StreamReader(sr, System.Text.Encoding.Default)

Do While (srf.Peek <> -1)
srs = srf.ReadLine
'srs = srs.Trim
Cmb1.Items.Add(srs)
Loop
End If
End Sub