将一个UTF8编码的txt文件转为ANSI编码的txt文件，采用最基本的streamreader和streamwriter实现。

 

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()

————————————————

版权声明：本文为CSDN博主「西伯利亚二贼狼」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/weixin_47394240/article/details/124223437