XP记事本保存的ANSI编码的汉字的txt文件如何读取?

[uoyevoli]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If fileDlg.ShowDialog = DialogResult.OK Then
Dim fs As FileStream
fs = File.Open(fileDlg.FileName, FileMode.Open) '这个文件是用windows　xp的记事本保存的包含汉字的ANSI编码的txt文件

Dim ba(fs.Length) As Byte
fs.Read(ba, 0, fs.Length)

Dim ec As New ASCIIEncoding '这里不管用什么Encoding都不行的！！
TextBox1.Text = ec.GetString(ba)

End If
End Sub

TextBox中的内容为乱码!!

[NetDNASupport]

使用
StreamReader
====================================
Dim sr As StreamReader
Set sr = new StreamReader( 文件名 )

TextBox1.Text = sr.ReadToEnd()

[uoyevoli]

streamreader不行啊,读出来的是乱码啊!!
包含汉字的ANSI编码的txt文件!!!

[uoyevoli]

自己搞定了 :)


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If fileDlg.ShowDialog = DialogResult.OK Then
......
......
TextBox1.Text = Encoding.GetEncoding("GB2312").GetString(ba)

End If
End Sub