Mega Code Archive

 

Categories / VB.Net / Data Types

 

Is each of the following characters a low surrogate

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("B1) cLow?  - {0}", [Char].IsLowSurrogate(cLow))       Console.WriteLine("B2) cHigh? - {0}", [Char].IsLowSurrogate(cHigh))       Console.WriteLine("B3) s1(0)? - {0}", [Char].IsLowSurrogate(s1, 0))       Console.WriteLine("B4) s1(2)? - {0}", [Char].IsLowSurrogate(s1, 2))    End Sub 'Main End Class 'Sample