Mega Code Archive

 

Categories / VB.Net / Data Types

 

Char IsLowSurrogate() IsHighSurrogate() and IsSurrogatePair()

Imports System Imports Microsoft.VisualBasic Class Sample    Public Shared Sub Main()       Dim cHigh As Char = ChrW(&HD800)       Dim cLow  As Char = ChrW(&HDC00)       Dim s1 = New [String](New Char() {"a"c, ChrW(&HD800), ChrW(&HDC00), "z"c})       Console.WriteLine("{0:X4}", AscW(cHigh))       Console.WriteLine("{0:X4}", AscW(cLow))       Dim i As Integer       For i = 0 To s1.Length - 1          Console.WriteLine("s1({0}) = {1:X4} ", i, AscW(s1.Chars(i)))       Next i       Console.WriteLine([Char].IsHighSurrogate(cLow))       Console.WriteLine([Char].IsHighSurrogate(cHigh))       Console.WriteLine([Char].IsHighSurrogate(s1, 0))       Console.WriteLine([Char].IsHighSurrogate(s1, 1))       Console.WriteLine([Char].IsLowSurrogate(cLow))       Console.WriteLine([Char].IsLowSurrogate(cHigh))       Console.WriteLine([Char].IsLowSurrogate(s1, 0))       Console.WriteLine([Char].IsLowSurrogate(s1, 2))       Console.WriteLine([Char].IsSurrogatePair(cHigh, cLow))       Console.WriteLine([Char].IsSurrogatePair(s1, 0))       Console.WriteLine([Char].IsSurrogatePair(s1, 1))       Console.WriteLine([Char].IsSurrogatePair(s1, 2))    End Sub End Class