vb.net Char.IsSurrogate实例代码和带注释

以下是一个使用 Char.IsSurrogate 方法的 VB.NET 示例代码，并带有注释说明：

Dim str As String = "𠀋Hello World" ' 包含一个代理项对的字符串
Dim i As Integer = 0

While i < str.Length
    ' 检查当前字符是否为代理项对的高位字符
    If Char.IsHighSurrogate(str(i)) Then
        ' 检查下一个字符是否为代理项对的低位字符
        If i < str.Length - 1 AndAlso Char.IsLowSurrogate(str(i + 1)) Then
            ' 如果是代理项对，则输出该字符
            Console.Write(Char.ConvertToUtf32(str(i), str(i + 1)))
            i += 2 ' 让 i 跳过代理项对的低位字符
        Else
            ' 如果不是代理项对，则输出当前字符
            Console.Write(str(i))
            i += 1
        End If
    Else
        ' 如果不是代理项对，则输出当前字符
        Console.Write(str(i))
        i += 1
    End If
End While

在此示例中，我们定义了一个包含一个代理项对的字符串 `str`，并使用 `While` 循环遍历该字符串中的每个字符。

在循环体中，我们使用 `Char.IsHighSurrogate` 方法检查当前字符是否为代理项对的高位字符。如果是，则使用 `Char.IsLowSurrogate` 方法检查下一个字符是否为代理项对的低位字符。如果是，则使用 `Char.ConvertToUtf32` 方法将这两个字符转换为 Unicode 代码点，并输出该代码点表示的字符。注意，在输出代理项对时，我们需要让 `i` 的值加上 2，以跳过代理项对的低位字符。

如果当前字符不是代理项对的高位字符，或者下一个字符不是代理项对的低位字符，则直接输出当前字符，并让 `i` 的值加上 1。

通过这种方式，我们可以正确地处理包含代理项对的字符串，并输出其中的每个字符。