VB.NET UTF-8转ANSI

小爱

Imports System
Imports System.IO
Imports System.Text



Dim sr As StreamReader
Dim sw As StreamWriter
sr = New StreamReader(utf-8_file_path, System.Text.Encoding.UTF8)
sw = New StreamWriter(ansi_file_path, True, System.Text.Encoding.Default)
Dim linecontent As String
While Not sr.EndOfStream
    linecontent = sr.ReadLine
    sw.WriteLine(linecontent)
End While
sr.Close()
sw.Close()