在VB.NET中将UTF-8转换为ASCII

Imports System.Text

Module Module1
    Sub Main()
        Dim utf8Str As String = "这是一个UTF-8字符串"
        Dim asciiStr As String = ConvertUtf8ToAscii(utf8Str)
        Console.WriteLine("原始UTF-8字符串：" & utf8Str)
        Console.WriteLine("转换后的ASCII字符串：" & asciiStr)
    End Sub

    Function ConvertUtf8ToAscii(utf8Str As String) As String
        Dim utf8 As Encoding = Encoding.UTF8
        Dim ascii As Encoding = Encoding.ASCII
        Dim asciiBytes As Byte() = Encoding.Convert(utf8, ascii, Encoding.UTF8.GetBytes(utf8Str))
        Return ascii.GetString(asciiBytes)
    End Function
End Module