如何在VB.Net中替换字符串中的上标字符

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()
        Dim inputString As String = "H₂O is a chemical formula."
        Dim pattern As String = "\u207x" ' 匹配上标字符的正则表达式

        ' 使用正则表达式替换函数进行替换
        Dim outputString As String = Regex.Replace(inputString, pattern, Function(match) GetSuperscript(match.Value))

        Console.WriteLine("替换前的字符串: " & inputString)
        Console.WriteLine("替换后的字符串: " & outputString)
        Console.ReadLine()
    End Sub

    ' 将上标字符转换为对应的普通字符
    Function GetSuperscript(superscript As String) As String
        Select Case superscript
            Case "⁰"
                Return "0"
            Case "¹"
                Return "1"
            Case "²"
                Return "2"
            Case "³"
                Return "3"
            Case "⁴"
                Return "4"
            Case "⁵"
                Return "5"
            Case "⁶"
                Return "6"
            Case "⁷"
                Return "7"
            Case "⁸"
                Return "8"
            Case "⁹"
                Return "9"
            Case Else
                Return superscript
        End Select
    End Function
End Module