vb.net openfile 修改编码 完整举例

在VB.NET中，如果你需要读取非UTF-8编码的文件内容并修改其编码，你可以使用`StreamReader`配合`Encoding`类。下面是一个完整的示例：

Imports System.IO
Imports System.Text

Module Module1
    Sub Main()
        Dim filePath As String = "C:\path\to\your\file.txt" ' 替换为你要处理的文件路径
        Dim originalEncoding As Encoding = New UTF8Encoding(False) ' 假设原始编码是UTF-8，如果不是，请替换为你实际的编码类型
        Dim targetEncoding As Encoding = New ASCIIEncoding() ' 这里我们假设目标编码是ASCII，也可以换成其他

        Try
            Using reader As StreamReader = New StreamReader(filePath, originalEncoding)
                Dim content As String = reader.ReadToEnd()

                ' 将内容转换为目标编码
                Dim convertedContent As String = ConvertToTargetEncoding(content, targetEncoding)

                ' 现在可以对convertedContent进行操作，例如修改后再写入文件
                ' ...

                ' 写回文件，这里仅做示例，未实际写入
                Using writer As StreamWriter = New StreamWriter(filePath, False, targetEncoding) '第二个False表示追加模式，如果不需要追加则去掉
                    writer.WriteLine(convertedContent)
                End Using
            End Using
        Catch ex As Exception
            Console.WriteLine("Error reading or writing file: " & ex.Message)
        End Try

        Console.ReadLine()
    End Sub

    Private Function ConvertToTargetEncoding(input As String, encoding As Encoding) As String
        Return encoding.GetString(encoding.GetBytes(input))
    End Function
End Module