如何读写中文文件?

[ghao0]

如何读写中文文件?
我做了一段程序：中文的原文件，不能写成中文
Sub Write(ByVal File_NameW As String, ByVal Encoding As System.Text.Encoding)
Dim Result As String
Dim File_NameR As String = "a.txt"
Dim sr As IO.StreamReader
sr = New IO.StreamReader(File_NameR, Encoding, True)
Dim line As String
Dim str As String
Do
line = sr.ReadLine()
str += line + Chr(13) + Chr(10)
Loop Until line Is Nothing
sr.Close()
Result = str

Dim sw As IO.StreamWriter = New IO.StreamWriter(File_NameW)
sw.Write(Result)
sw.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Write("UTF7Encoding", New System.Text.UTF7Encoding)
Write("ASCIIEncoding", New System.Text.ASCIIEncoding)
Write("UnicodeEncoding", New System.Text.UnicodeEncoding)
Write("UTF8Encoding", New System.Text.UTF8Encoding)
End Sub

加中断Line一直不对

[cancerser]

New IO.StreamWriter(fileName, Encoding.GetEncoding("gb2312"))
//Encoding.UTF8 应该也行

[Avoid]

Encoding.Defualt

[真相重于对错]

up

[happilygirl]

StreamWriter(fileName, Encoding.GetEncoding("gb2312"))

[beer1012]

编码的问题

[43720938]

StreamWriter(fileName, Encoding.GetEncoding("gb2312"))

[ghao0]

http://community.csdn.net/Expert/topic/5016/5016591.xml?temp=4.923648E-02
已经先回答了