' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Public Members Summary "
 
#Region " Functions "
 
' FlipTextVertically(String, VerticalFlipTextMode, Opt: Char) As String
 
#End Region
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Linq
Imports System.Text
 
#End Region
 
#Region " String Util "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    Partial Public NotInheritable Class UtilString
 
#Region " Public Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Transforms the source string into vertical text.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <seealso href="https://onlinetexttools.com/flip-text-vertically"/>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input string to flip it vertically.
        ''' <para></para>
        ''' If this value is null, no changes are made to the string.
        ''' </param>
        ''' 
        ''' <param name="flipMode">
        ''' The vertical flip mode indicating how the text should be flipped.
        ''' </param>
        ''' 
        ''' <param name="separatorChar">
        ''' Optional. The character used to separate columns. Default is "|".
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The resulting vertically flipped text.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function FlipTextVertically(input As String, flipMode As VerticalFlipTextMode,
                                                  Optional separatorChar As Char = "|"c) As String
 
            If String.IsNullOrEmpty(input) Then
                Return input
            End If
 
            If separatorChar.Equals(Nothing) Then
                Throw New ArgumentNullException(paramName:=NameOf(separatorChar))
            End If
 
            Select Case flipMode
 
                Case VerticalFlipTextMode.CharByChar
                    Dim lines As String() = input.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                    Dim maxLength As Integer = lines.Max(Function(line) line.Length)
                    Dim verticalText As New StringBuilder()
                    For i As Integer = 0 To maxLength - 1
                        For j As Integer = 0 To lines.Length - 1
                            If i < lines(j).Length Then
                                verticalText.Append(lines(j)(i))
                            Else
                                verticalText.Append(" "c)
                            End If
                            If j < lines.Length - 1 Then
                                verticalText.Append($" {separatorChar} ")
                            End If
                        Next
                        verticalText.AppendLine()
                    Next
                    Return verticalText.ToString()
 
                Case VerticalFlipTextMode.WordByWord
                    Dim lines As String() = input.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                    Dim wordsPerLine As New List(Of List(Of String))()
                    For Each line As String In lines
                        Dim words As String() = line.Split({" "c}, StringSplitOptions.RemoveEmptyEntries)
                        wordsPerLine.Add(words.ToList())
                    Next
                    Dim maxLength As Integer = wordsPerLine.Max(Function(words) words.Count)
                    Dim verticalText As New StringBuilder()
                    For i As Integer = 0 To maxLength - 1
                        For j As Integer = 0 To wordsPerLine.Count - 1
                            Dim words As List(Of String) = wordsPerLine(j)
                            If i < words.Count Then
                                verticalText.Append(words(i).PadRight(words.Max(Function(word) word.Length)))
                            Else
                                verticalText.Append(" ".PadRight(words.Max(Function(word) word.Length)))
                            End If
                            If j < wordsPerLine.Count - 1 Then
                                verticalText.Append($" {separatorChar} ")
                            End If
                        Next
                        verticalText.AppendLine()
                    Next
                    Return verticalText.ToString()
 
                Case VerticalFlipTextMode.SentenceBySentence
                    Dim GetMaxSentences As Func(Of String(), Integer) =
                    Function(_lines As String()) As Integer
                        Dim _maxSentences As Integer = 0
                        For Each line As String In _lines
                            Dim sentences As String() = line.Split({"."c}, StringSplitOptions.RemoveEmptyEntries)
                            _maxSentences = System.Math.Max(_maxSentences, sentences.Length)
                        Next
                        Return _maxSentences
                    End Function
 
                    Dim GetColumnWidths As Func(Of String(), Integer, Integer()) =
                    Function(_lines As String(), _maxSentences As Integer) As Integer()
                        Dim _columnWidths As Integer() = New Integer(_lines.Length - 1) {}
                        For i As Integer = 0 To _lines.Length - 1
                            Dim line As String = _lines(i)
                            Dim sentences As String() = line.Split({"."c}, StringSplitOptions.RemoveEmptyEntries)
                            Dim maxWidth As Integer = 0
                            For j As Integer = 0 To System.Math.Min(_maxSentences, sentences.Length) - 1
                                maxWidth = System.Math.Max(maxWidth, sentences(j).Trim().Length)
                            Next
                            _columnWidths(i) = maxWidth
                        Next
                        Return _columnWidths
                    End Function
 
                    Dim lines As String() = input.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                    Dim maxSentences As Integer = GetMaxSentences(lines)
                    Dim columnWidths As Integer() = GetColumnWidths(lines, maxSentences)
                    Dim output As New StringBuilder()
 
                    For i As Integer = 0 To maxSentences - 1
                        For j As Integer = 0 To lines.Length - 1
                            Dim line As String = lines(j)
                            Dim sentences As String() = line.Split({"."c}, StringSplitOptions.RemoveEmptyEntries)
                            Dim sentence As String = ""
                            If i < sentences.Length Then
                                sentence = sentences(i).Trim() & "."
                            End If
                            Dim column As String = sentence.PadRight(columnWidths(j) + 1)
                            output.Append(column)
                            If j < lines.Length - 1 Then
                                output.Append($" {separatorChar} ")
                            End If
                        Next
                        output.AppendLine()
                    Next
                    Return output.ToString()
 
                Case Else
                    Throw New InvalidEnumArgumentException(argumentName:=NameOf(flipMode), invalidValue:=flipMode, enumClass:=GetType(VerticalFlipTextMode))
 
            End Select
 
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict Off
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
#End Region
 
#Region " VerticalFlipTextMode "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Specifies how the text should be flipped when using <see cref="UtilString.FlipTextVertically"/> function.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Public Enum VerticalFlipTextMode As Integer
 
        ''' <summary>
        ''' Divides the text into characters.        
        ''' That is, all the characters from every text row get rearranged in columns.
        ''' </summary>
        CharByChar
 
        ''' <summary>
        ''' Divides the text into words. 
        ''' <para></para>
        ''' That is, all the words from every text row get rearranged in columns.
        ''' </summary>
        WordByWord
 
        ''' <summary>
        ''' Divides the text into sentences.
        ''' <para></para>
        ''' That is, if you have several sentences in one line, 
        ''' then after rewriting them vertically, they will appear in a single column. 
        ''' </summary>
        SentenceBySentence
 
    End Enum
 
End Namespace
 
#End Region
 

Dim input As String =
"About 20% of oxygen is produced by the Amazon rainforest. The Earth's atmosphere is about 78 percent nitrogen, 21 percent oxygen, and about 1 percent other gases. 
 
 For the existence of most organisms on the planet, oxygen is a necessary element, it provides the body with energy and removes carbon dioxide. Fortunately, plants constantly replenish the oxygen level of our planet thanks to photosynthesis. During this process, carbon dioxide and water are converted into energy, releasing oxygen as a byproduct. 
 
 The Amazon rainforest covers 5.5 million square kilometers (2.1 million square miles), recycling much of the Earth's oxygen while absorbing large amounts of carbon dioxide."
 
Dim lineLength As Integer = 50
 
Dim result As String = UtilString.JustifyText(input, lineLength, justifyLastLine:=True)
 
Console.WriteLine(result)

About  20%  of  oxygen  is  produced by the Amazon
rainforest.  The  Earth's  atmosphere  is about 78
percent  nitrogen,  21 percent oxygen, and about 1
percent                other                gases.

For   the   existence   of   most   organisms   on
the  planet,  oxygen  is  a  necessary element, it
provides  the  body with energy and removes carbon
dioxide.  Fortunately, plants constantly replenish
the   oxygen   level   of  our  planet  thanks  to
photosynthesis.   During   this   process,  carbon
dioxide  and  water  are  converted  into  energy,
releasing      oxygen      as     a     byproduct.

The   Amazon   rainforest   covers   5.5   million
square  kilometers  (2.1  million  square  miles),
recycling   much   of  the  Earth's  oxygen  while
absorbing   large   amounts   of  carbon  dioxide.

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 13-July-2023
' ***********************************************************************
 
#Region " Public Members Summary "
 
#Region " Functions "
 
' JustifyText(String, Integer, Opt: Boolean) As String
 
#End Region
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.ObjectModel
Imports System.Text
 
#End Region
 
#Region " String Util "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    Partial Public NotInheritable Class UtilString
 
#Region " Public Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Justifies the input text by adjusting the line width and spacing between words.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code language="VB.NET">
        ''' Dim input As String = 
        ''' "About 20% of oxygen is produced by the Amazon rainforest. The Earth's atmosphere is about 78 percent nitrogen, 21 percent oxygen, and about 1 percent other gases. 
        ''' 
        ''' For the existence of most organisms on the planet, oxygen is a necessary element, it provides the body with energy and removes carbon dioxide. Fortunately, plants constantly replenish the oxygen level of our planet thanks to photosynthesis. During this process, carbon dioxide and water are converted into energy, releasing oxygen as a byproduct. 
        ''' 
        ''' The Amazon rainforest covers 5.5 million square kilometers (2.1 million square miles), recycling much of the Earth's oxygen while absorbing large amounts of carbon dioxide."
        ''' 
        ''' Dim lineLength As Integer = 50
        ''' 
        ''' Dim result As String = JustifyText(input, lineLength, justifyLastLine:=True)
        ''' 
        ''' Console.WriteLine(result)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input text.
        ''' </param>
        ''' 
        ''' <param name="length">
        ''' The desired length for each text line.
        ''' </param>
        ''' 
        ''' <param name="justifyLastLine">
        ''' Optional. Indicates whether to justify the last line of the paragraphs.
        ''' <para></para>
        ''' Default value is: False.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The resulting justified text.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function JustifyText(input As String, length As Integer,
                                           Optional justifyLastLine As Boolean = False) As String
 
 
            Dim paragraphs As String() = input.Split({Environment.NewLine}, StringSplitOptions.None)
            Dim paragraphsCount As Integer = paragraphs.Length
 
            Dim justifiedLines As New Collection(Of String)()
 
            For paragraphIdx As Integer = 0 To paragraphsCount - 1
 
                Dim words As String() = paragraphs(paragraphIdx).Split(" "c)
                Dim lines As New Collection(Of String)()
 
                Dim currentLine As New StringBuilder()
                Dim currentLineLength As Integer = 0
 
                For Each word As String In words
                    Dim wordLength As Integer = word.Length
 
                    If currentLineLength + wordLength <= length Then
                        currentLine.Append(word & " ")
                        currentLineLength += wordLength + 1
 
                    Else
                        lines.Add(currentLine.ToString().Trim())
                        currentLine = New StringBuilder(word & " ")
                        currentLineLength = wordLength + 1
                    End If
 
                    If wordLength > length Then
                        Dim remainingWord As String = word
                        While remainingWord.Length > length
                            lines.Add(remainingWord.Substring(0, length))
                            remainingWord = remainingWord.Substring(length)
                        End While
 
                        If remainingWord.Length > 0 Then
                            lines.Add(remainingWord)
                        End If
                    End If
 
                Next
 
                lines.Add(currentLine.ToString().Trim())
 
                For i As Integer = 0 To lines.Count - 1
                    Dim line As String = lines(i)
 
                    If (i = lines.Count - 1) AndAlso Not justifyLastLine Then
                        justifiedLines.Add(line)
                        Continue For
                    End If
 
                    Dim lineLength As Integer = line.Length
                    Dim wordsInLine As String() = line.Split(" "c)
                    Dim wordsCount As Integer = wordsInLine.Length
 
                    If wordsCount > 1 Then
                        Dim remainingSpaces As Integer = length - line.Replace(" "c, "").Length
                        Dim spacesPerGap As Integer = remainingSpaces \ (wordsCount - 1)
                        Dim extraSpaces As Integer = remainingSpaces Mod (wordsCount - 1)
 
                        Dim justifiedLine As New StringBuilder(wordsInLine(0))
                        For j As Integer = 1 To wordsCount - 1
                            justifiedLine.Append(" "c, spacesPerGap)
                            If j <= extraSpaces Then
                                justifiedLine.Append(" "c)
                            End If
                            justifiedLine.Append(wordsInLine(j))
                        Next
 
                        line = justifiedLine.ToString()
                    End If
 
                    justifiedLines.Add(line)
                Next
 
                If Not justifyLastLine AndAlso justifiedLines.Count > 1 Then
                    justifiedLines(justifiedLines.Count - 1) = justifiedLines(justifiedLines.Count - 1).TrimEnd()
                End If
 
            Next
 
            Return String.Join(Environment.NewLine, justifiedLines)
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 

Dim input As String = "The ideal temperature for sleeping is 18.3 degrees Celsius (65 degrees Fahrenheit)"
Dim result As String =  ConvertToSuperscript(input)

Dim input As String = "ᵀʰᵉ ⁱᵈᵉᵃˡ ᵗᵉᵐᵖᵉʳᵃᵗᵘʳᵉ ᶠᵒʳ ˢˡᵉᵉᵖⁱⁿᵍ ⁱˢ ¹⁸⋅³ ᵈᵉᵍʳᵉᵉˢ ᑦᵉˡˢⁱᵘˢ ⁽⁶⁵ ᵈᵉᵍʳᵉᵉˢ ⸁ᵃʰʳᵉⁿʰᵉⁱᵗ⁾"
Dim result As String =  ConvertFromSuperscript(input)

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Public Members Summary "
 
#Region " Functions "
 
' ConvertToSuperscript(String) As String
' ConvertFromSuperscript(String) As String
 
#End Region
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
 
#End Region
 
#Region " String Util "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    Partial Public NotInheritable Class UtilString
 
#Region " Private Fields "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Character map used by functions that converts ASCII characters to its Superscript forms.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Private Shared charMapAsciiToSuperscript As Dictionary(Of Char, Char)
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Character map used by functions that converts Superscript characters to its ASCII forms.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Private Shared charMapSuperscriptToAscii As List(Of KeyValuePair(Of Char, Char))
 
#End Region
 
#Region " Public Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Converts the characters in the input string to their corresponding superscript forms.
        ''' <para></para>
        ''' Letters in a superscript text are half the normal letter size and are placed above the middle of a text line. 
        ''' For example, the word "Sunshine" in superscript looks like this: "&#5382;&#7512;&#8319;&#738;&#688;&#8305;&#8319;&#7497;".
        ''' <para></para>
        ''' Superscripts are often used in mathematics to denote powers of a number, such as "x²" or "y&#7504;". 
        ''' They are also often used to write ordinal numbers, for example, 1&#738;&#7511;, 2&#8319;&#7496;, 3&#691;&#7496;, 4&#7511;&#688;, and so on.
        ''' <para></para>
        ''' Superscript (Wikipedia): <see href="https://en.wikipedia.org/wiki/Subscript_and_superscript"/>
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code language="VB.NET">
        ''' Dim input As String = "The ideal temperature for sleeping is 18.3 degrees Celsius (65 degrees Fahrenheit)"
        ''' Dim result As String =  ConvertToSuperscript(input)
        ''' Console.WriteLine(result)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input string to convert to superscript.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The input string converted to their corresponding superscript forms.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function ConvertToSuperscript(input As String) As String
 
            If String.IsNullOrWhiteSpace(input) Then
                Throw New ArgumentNullException(paramName:=NameOf(input))
            End If
 
            If UtilString.charMapAsciiToSuperscript Is Nothing Then
                UtilString.charMapAsciiToSuperscript =
                    New Dictionary(Of Char, Char)(EqualityComparer(Of Char).Default) From {
                        {"0"c, "&#8304;"c}, {"1"c, "¹"c}, {"2"c, "²"c}, {"3"c, "³"c}, {"4"c, "&#8308;"c},
                        {"5"c, "&#8309;"c}, {"6"c, "&#8310;"c}, {"7"c, "&#8311;"c}, {"8"c, "&#8312;"c}, {"9"c, "&#8313;"c},
                        {"+"c, "&#8314;"c}, {"-"c, "&#8315;"c}, {"="c, "&#8316;"c}, {"("c, "&#8317;"c}, {")"c, "&#8318;"c},
                        {"."c, "&#8901;"c}, {"·"c, "&#729;"c},
                        {"a"c, "&#7491;"c}, {"b"c, "&#7495;"c}, {"c"c, "&#7580;"c}, {"d"c, "&#7496;"c}, {"e"c, "&#7497;"c},
                        {"f"c, "&#7584;"c}, {"g"c, "&#7501;"c}, {"h"c, "&#688;"c}, {"i"c, "&#8305;"c}, {"j"c, "&#690;"c},
                        {"k"c, "&#7503;"c}, {"l"c, "&#737;"c}, {"m"c, "&#7504;"c}, {"n"c, "&#8319;"c}, {"o"c, "&#7506;"c},
                        {"p"c, "&#7510;"c}, {"q"c, "&#1785;"c}, {"r"c, "&#691;"c}, {"s"c, "&#738;"c}, {"t"c, "&#7511;"c},
                        {"u"c, "&#7512;"c}, {"v"c, "&#7515;"c}, {"w"c, "&#695;"c}, {"x"c, "&#739;"c}, {"y"c, "&#696;"c},
                        {"z"c, "&#7611;"c},
                        {"A"c, "&#7468;"c}, {"B"c, "&#7470;"c}, {"C"c, "&#5222;"c}, {"D"c, "&#7472;"c}, {"E"c, "&#7473;"c},
                        {"F"c, "&#11777;"c}, {"G"c, "&#7475;"c}, {"H"c, "&#7476;"c}, {"I"c, "&#7477;"c}, {"J"c, "&#7478;"c},
                        {"K"c, "&#7479;"c}, {"L"c, "&#7480;"c}, {"M"c, "&#7481;"c}, {"N"c, "&#7482;"c}, {"O"c, "&#7484;"c},
                        {"P"c, "&#7486;"c}, {"Q"c, "&#5227;"c}, {"R"c, "&#7487;"c}, {"S"c, "&#5382;"c}, {"T"c, "&#7488;"c},
                        {"U"c, "&#7489;"c}, {"V"c, "&#11389;"c}, {"W"c, "&#7490;"c}, {"X"c, "&#5501;"c}, {"Y"c, "&#696;"c},
                        {"Z"c, "&#5702;"c}
                    }
            End If
 
            Dim sb As New StringBuilder(input.Length)
            For Each c As Char In input
                Dim value As Char = Nothing
                If UtilString.charMapAsciiToSuperscript.TryGetValue(c, value) Then
                    sb.Append(value)
                Else
                    sb.Append(c)
                End If
            Next
            Return sb.ToString()
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Converts the characters in the input string to their corresponding superscript forms.
        ''' <para></para>
        ''' Letters in a superscript text are half the normal letter size and are placed above the middle of a text line. 
        ''' For example, the word "Sunshine" in superscript looks like this: "&#5382;&#7512;&#8319;&#738;&#688;&#8305;&#8319;&#7497;".
        ''' <para></para>
        ''' Superscripts are often used in mathematics to denote powers of a number, such as "x²" or "y&#7504;". 
        ''' They are also often used to write ordinal numbers, for example, 1&#738;&#7511;, 2&#8319;&#7496;, 3&#691;&#7496;, 4&#7511;&#688;, and so on.
        ''' <para></para>
        ''' Superscript (Wikipedia): <see href="https://en.wikipedia.org/wiki/Subscript_and_superscript"/>
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code language="VB.NET">
        ''' Dim input As String = "&#7488;&#688;&#7497; &#8305;&#7496;&#7497;&#7491;&#737; &#7511;&#7497;&#7504;&#7510;&#7497;&#691;&#7491;&#7511;&#7512;&#691;&#7497; &#7584;&#7506;&#691; &#738;&#737;&#7497;&#7497;&#7510;&#8305;&#8319;&#7501; &#8305;&#738; ¹&#8312;&#8901;³ &#7496;&#7497;&#7501;&#691;&#7497;&#7497;&#738; &#5222;&#7497;&#737;&#738;&#8305;&#7512;&#738; &#8317;&#8310;&#8309; &#7496;&#7497;&#7501;&#691;&#7497;&#7497;&#738; &#11777;&#7491;&#688;&#691;&#7497;&#8319;&#688;&#7497;&#8305;&#7511;&#8318;"
        ''' Dim result As String =  ConvertFromSuperscript(input)
        ''' Console.WriteLine(result)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input string to convert to superscript.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The input string converted to their corresponding superscript forms.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function ConvertFromSuperscript(input As String) As String
 
            If String.IsNullOrWhiteSpace(input) Then
                Throw New ArgumentNullException(paramName:=NameOf(input))
            End If
 
            If UtilString.charMapSuperscriptToAscii Is Nothing Then
                UtilString.charMapSuperscriptToAscii =
                    New List(Of KeyValuePair(Of Char, Char)) From {
                        {New KeyValuePair(Of Char, Char)("&#8304;"c, "0"c)},
                        {New KeyValuePair(Of Char, Char)("¹"c, "1"c)},
                        {New KeyValuePair(Of Char, Char)("²"c, "2"c)},
                        {New KeyValuePair(Of Char, Char)("³"c, "3"c)},
                        {New KeyValuePair(Of Char, Char)("&#8308;"c, "4"c)},
                        {New KeyValuePair(Of Char, Char)("&#8309;"c, "5"c)},
                        {New KeyValuePair(Of Char, Char)("&#8310;"c, "6"c)},
                        {New KeyValuePair(Of Char, Char)("&#8311;"c, "7"c)},
                        {New KeyValuePair(Of Char, Char)("&#8312;"c, "8"c)},
                        {New KeyValuePair(Of Char, Char)("&#8313;"c, "9"c)},
                        {New KeyValuePair(Of Char, Char)("&#8314;"c, "+"c)},
                        {New KeyValuePair(Of Char, Char)("&#8315;"c, "-"c)},
                        {New KeyValuePair(Of Char, Char)("&#8316;"c, "="c)},
                        {New KeyValuePair(Of Char, Char)("&#8317;"c, "("c)},
                        {New KeyValuePair(Of Char, Char)("&#8318;"c, ")"c)},
                        {New KeyValuePair(Of Char, Char)("&#8901;"c, "."c)},
                        {New KeyValuePair(Of Char, Char)("&#729;"c, "·"c)},
                        {New KeyValuePair(Of Char, Char)("&#7491;"c, "a"c)},
                        {New KeyValuePair(Of Char, Char)("&#7495;"c, "b"c)},
                        {New KeyValuePair(Of Char, Char)("&#7580;"c, "c"c)},
                        {New KeyValuePair(Of Char, Char)("&#7496;"c, "d"c)},
                        {New KeyValuePair(Of Char, Char)("&#7497;"c, "e"c)},
                        {New KeyValuePair(Of Char, Char)("&#7584;"c, "f"c)},
                        {New KeyValuePair(Of Char, Char)("&#7501;"c, "g"c)},
                        {New KeyValuePair(Of Char, Char)("&#688;"c, "h"c)},
                        {New KeyValuePair(Of Char, Char)("&#8305;"c, "i"c)},
                        {New KeyValuePair(Of Char, Char)("&#690;"c, "j"c)},
                        {New KeyValuePair(Of Char, Char)("&#7503;"c, "k"c)},
                        {New KeyValuePair(Of Char, Char)("&#737;"c, "l"c)},
                        {New KeyValuePair(Of Char, Char)("&#7504;"c, "m"c)},
                        {New KeyValuePair(Of Char, Char)("&#8319;"c, "n"c)},
                        {New KeyValuePair(Of Char, Char)("&#7506;"c, "o"c)},
                        {New KeyValuePair(Of Char, Char)("&#7510;"c, "p"c)},
                        {New KeyValuePair(Of Char, Char)("&#1785;"c, "q"c)},
                        {New KeyValuePair(Of Char, Char)("&#691;"c, "r"c)},
                        {New KeyValuePair(Of Char, Char)("&#738;"c, "s"c)},
                        {New KeyValuePair(Of Char, Char)("&#7511;"c, "t"c)},
                        {New KeyValuePair(Of Char, Char)("&#7512;"c, "u"c)},
                        {New KeyValuePair(Of Char, Char)("&#7515;"c, "v"c)},
                        {New KeyValuePair(Of Char, Char)("&#695;"c, "w"c)},
                        {New KeyValuePair(Of Char, Char)("&#739;"c, "x"c)},
                        {New KeyValuePair(Of Char, Char)("&#696;"c, "y"c)},
                        {New KeyValuePair(Of Char, Char)("&#7611;"c, "z"c)},
                        {New KeyValuePair(Of Char, Char)("&#7468;"c, "A"c)},
                        {New KeyValuePair(Of Char, Char)("&#7470;"c, "B"c)},
                        {New KeyValuePair(Of Char, Char)("&#5222;"c, "C"c)},
                        {New KeyValuePair(Of Char, Char)("&#7472;"c, "D"c)},
                        {New KeyValuePair(Of Char, Char)("&#7473;"c, "E"c)},
                        {New KeyValuePair(Of Char, Char)("&#11777;"c, "F"c)},
                        {New KeyValuePair(Of Char, Char)("&#7475;"c, "G"c)},
                        {New KeyValuePair(Of Char, Char)("&#7476;"c, "H"c)},
                        {New KeyValuePair(Of Char, Char)("&#7477;"c, "I"c)},
                        {New KeyValuePair(Of Char, Char)("&#7478;"c, "J"c)},
                        {New KeyValuePair(Of Char, Char)("&#7479;"c, "K"c)},
                        {New KeyValuePair(Of Char, Char)("&#7480;"c, "L"c)},
                        {New KeyValuePair(Of Char, Char)("&#7481;"c, "M"c)},
                        {New KeyValuePair(Of Char, Char)("&#7482;"c, "N"c)},
                        {New KeyValuePair(Of Char, Char)("&#7484;"c, "O"c)},
                        {New KeyValuePair(Of Char, Char)("&#7486;"c, "P"c)},
                        {New KeyValuePair(Of Char, Char)("&#5227;"c, "Q"c)},
                        {New KeyValuePair(Of Char, Char)("&#7487;"c, "R"c)},
                        {New KeyValuePair(Of Char, Char)("&#5382;"c, "S"c)},
                        {New KeyValuePair(Of Char, Char)("&#7488;"c, "T"c)},
                        {New KeyValuePair(Of Char, Char)("&#7489;"c, "U"c)},
                        {New KeyValuePair(Of Char, Char)("&#11389;"c, "V"c)},
                        {New KeyValuePair(Of Char, Char)("&#7490;"c, "W"c)},
                        {New KeyValuePair(Of Char, Char)("&#5501;"c, "X"c)},
                        {New KeyValuePair(Of Char, Char)("&#696;"c, "Y"c)},
                        {New KeyValuePair(Of Char, Char)("&#5702;"c, "Z"c)}
                    }
            End If
 
            Dim defaultPair As New KeyValuePair(Of Char, Char)
            Dim sb As New StringBuilder(input.Length)
            For Each c As Char In input
                Dim pair As KeyValuePair(Of Char, Char) = charMapSuperscriptToAscii.Find(Function(kv) kv.Key = c)
                If Not pair.Equals(defaultPair) Then
                    sb.Append(pair.Value)
                Else
                    sb.Append(c)
                End If
            Next
            Return sb.ToString()
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " UnicodeAlphabeticCharacterSets "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Specifies a Unicode alphabetic character set.
    ''' <para></para>
    ''' This enum is used by <see cref="UtilString.ConvertToUnicodeLetters"/> function.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' The Unicode character sets are standardized sets of characters that cover 
    ''' various scripts and symbols used in written languages worldwide.
    ''' <para></para>
    ''' Unicode provides a unique code point for each character, ensuring interoperability and 
    ''' compatibility across different platforms and systems.
    ''' <para></para>
    ''' The alphabetic character sets defined in this enumeration represent 
    ''' specific stylistic variations of alphabetic characters used in mathematics and typography.
    ''' <para></para>
    ''' These character sets are commonly used in scientific and mathematical contexts, 
    ''' as well as in typography and font design.
    ''' <para></para>
    ''' They allow for precise representation of stylized alphabetic characters 
    ''' in various mathematical equations, formulas, and text layouts.
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Public Enum UnicodeAlphabeticCharacterSets
 
        ''' <summary>
        ''' Unicode symbols from the 'Mathematical Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D468 to U+1D49B), 
        ''' representing the alphabet letters from 'a' to 'Z'.
        ''' <para></para>
        ''' e.g., 'A': '&#119912;', 'a': '&#119938;'.
        ''' </summary>
        MathematicalBoldItalic
 
        ''' <summary>
        ''' Unicode symbols from the 'Mathematical Bold Script' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D4D0 to U+1D503), 
        ''' representing the alphabet letters from 'a' to 'Z'.
        ''' <para></para>
        ''' e.g., 'A': '&#120016;', 'a': '&#120042;'.
        ''' </summary>
        MathematicalBoldScript
 
        ''' <summary>
        ''' Unicode symbols from the 'Mathematical Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D434 to U+1D467), 
        ''' representing the alphabet letters from 'a' to 'Z'.
        ''' <para></para>
        ''' e.g., 'A': '&#119860;', 'a': '&#119886;'.
        ''' </summary>
        MathematicalItalic
 
        ''' <summary>
        ''' Unicode symbols from the 'Sans-Serif Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D63C to U+1D66F), 
        ''' representing the alphabet letters from 'a' to 'Z'.
        ''' <para></para>
        ''' e.g., 'A': '&#120380;', 'a': '&#120406;'.
        ''' </summary>
        SansSerifBoldItalic
 
        ''' <summary>
        ''' Unicode symbols from the 'Sans-Serif Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D608 to U+1D63B), 
        ''' representing the alphabet letters from 'a' to 'Z'.
        ''' <para></para>
        ''' e.g., 'A': '&#120328;', 'a': '&#120354;'.
        ''' </summary>
        SansSerifItalic
 
    End Enum
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " UnicodeAlphanumericCharacterSets "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Specifies a Unicode alphanumeric character set.
    ''' <para></para>
    ''' This enum is used by <see cref="UtilString.ConvertToUnicodeLetters"/> function.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' The Unicode character sets are standardized sets of characters that cover 
    ''' various scripts and symbols used in written languages worldwide.
    ''' <para></para>
    ''' Unicode provides a unique code point for each character, ensuring interoperability and 
    ''' compatibility across different platforms and systems.
    ''' <para></para>
    ''' The alphanumeric character sets defined in this enumeration represent 
    ''' specific stylistic variations of alphabetic characters used in mathematics and typography.
    ''' <para></para>
    ''' These character sets are commonly used in scientific and mathematical contexts, 
    ''' as well as in typography and font design.
    ''' <para></para>
    ''' They allow for precise representation of stylized alphabetic characters 
    ''' in various mathematical equations, formulas, and text layouts.
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Public Enum UnicodeAlphanumericCharacterSets
 
        ''' <summary>
        ''' Unicode symbols from the 'Mathematical Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D400 to U+1D433), 
        ''' representing the alphabet letters from 'a' to 'Z' and numbers from '0' to '9'.
        ''' <para></para>
        ''' e.g., 'A': '&#119808;', 'a': '&#119834;'.
        ''' </summary>
        MathematicalBold
 
        ''' <summary>
        ''' Unicode symbols from the 'Monospace' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D670 to U+1D6A3), 
        ''' representing the alphabet letters from 'a' to 'Z' and numbers from '0' to '9'.
        ''' <para></para>
        ''' e.g., 'A': '&#120432;', 'a': '&#120458;'.
        ''' </summary>
        MonoSpace
 
        ''' <summary>
        ''' Unicode symbols from the 'Sans-Serif' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5A0 to U+1D5D3), 
        ''' representing the alphabet letters from 'a' to 'Z' and numbers from '0' to '9'.
        ''' <para></para>
        ''' e.g., 'A': '&#120224;', 'a': '&#120250;'.
        ''' </summary>
        SansSerif
 
        ''' <summary>
        ''' Unicode symbols from the 'Sans-Serif Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5D4 to U+1D607), 
        ''' representing the alphabet letters from 'a' to 'Z' and numbers from '0' to '9'.
        ''' <para></para>
        ''' e.g., 'A': '&#120276;', 'a': '&#120302;'.
        ''' </summary>
        SansSerifBold
 
    End Enum
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Public Members Summary "
 
#Region " Functions "
 
' ConvertToUnicodeLetters(String, UnicodeAlphabeticCharacterSets) As String
' ConvertToUnicodeLetters(String, UnicodeAlphanumericCharacterSets) As String
 
#End Region
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
 
#End Region
 
#Region " String Util "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    Partial Public NotInheritable Class UtilString
 
#Region " Public Methods "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Converts the alphabetic characters in the input string to their corresponding 
        ''' Unicode representations based on the specified character set.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input string to convert.
        ''' </param>
        ''' 
        ''' <param name="charSet">
        ''' The Unicode character set to use for the character conversion.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The input string with alphabetic characters replaced by their Unicode counterparts.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function ConvertToUnicodeLetters(input As String, charSet As UnicodeAlphabeticCharacterSets) As String
 
            If String.IsNullOrWhiteSpace(input) Then
                Return input
            End If
 
            Dim charMap As Dictionary(Of Char, String)
            Select Case charSet
 
                Case UnicodeAlphabeticCharacterSets.MathematicalBoldItalic
                    charMap = UnicodeCharacterMaps.MathematicalBoldItalic
 
                Case UnicodeAlphabeticCharacterSets.MathematicalBoldScript
                    charMap = UnicodeCharacterMaps.MathematicalBoldScript
 
                Case UnicodeAlphabeticCharacterSets.MathematicalItalic
                    charMap = UnicodeCharacterMaps.MathematicalItalic
 
                Case UnicodeAlphabeticCharacterSets.SansSerifBoldItalic
                    charMap = UnicodeCharacterMaps.SansSerifBoldItalic
 
                Case UnicodeAlphabeticCharacterSets.SansSerifItalic
                    charMap = UnicodeCharacterMaps.SansSerifItalic
 
                Case Else
                    Throw New InvalidEnumArgumentException(argumentName:=NameOf(charSet),
                                                       invalidValue:=charSet,
                                                       enumClass:=GetType(UnicodeAlphabeticCharacterSets))
            End Select
 
            Dim sb As New StringBuilder(input.Length)
            For Each c As Char In input
                Dim value As String = Nothing
                If charMap.TryGetValue(c, value) Then
                    sb.Append(value)
                Else
                    sb.Append(c)
                End If
            Next
 
            Return sb.ToString()
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Converts the alphanumeric characters in the input string to their corresponding 
        ''' Unicode representations based on the specified character set.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="input">
        ''' The input string to convert.
        ''' </param>
        ''' 
        ''' <param name="charSet">
        ''' The Unicode character set to use for the character conversion.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The input string with alphanumeric characters replaced by their Unicode counterparts.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Function ConvertToUnicodeLetters(input As String, charSet As UnicodeAlphanumericCharacterSets) As String
 
            If String.IsNullOrWhiteSpace(input) Then
                Return input
            End If
 
            Dim charMap As Dictionary(Of Char, String)
            Select Case charSet
 
                Case UnicodeAlphanumericCharacterSets.MathematicalBold
                    charMap = UnicodeCharacterMaps.MathematicalBold
 
                Case UnicodeAlphanumericCharacterSets.MonoSpace
                    charMap = UnicodeCharacterMaps.MonoSpace
 
                Case UnicodeAlphanumericCharacterSets.SansSerif
                    charMap = UnicodeCharacterMaps.SansSerif
 
                Case UnicodeAlphanumericCharacterSets.SansSerifBold
                    charMap = UnicodeCharacterMaps.SansSerifBold
 
                Case Else
                    Throw New InvalidEnumArgumentException(argumentName:=NameOf(charSet),
                                                       invalidValue:=charSet,
                                                       enumClass:=GetType(UnicodeAlphanumericCharacterSets))
            End Select
 
            Dim sb As New StringBuilder(input.Length)
            For Each c As Char In input
                Dim value As String = Nothing
                If charMap.TryGetValue(c, value) Then
                    sb.Append(value)
                Else
                    sb.Append(c)
                End If
            Next
            Return sb.ToString()
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
#End Region
 

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 11-July-2023
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict Off
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Public Members Summary "
 
#Region " Properties "
 
' MathematicalBold As Dictionary(Of Char, String)
' MathematicalBoldItalic As Dictionary(Of Char, String)
' MathematicalBoldScript As Dictionary(Of Char, String)
' MathematicalItalic As Dictionary(Of Char, String)
' MonoSpace As Dictionary(Of Char, String)
' SansSerif As Dictionary(Of Char, String)
' SansSerifBold As Dictionary(Of Char, String)
' SansSerifBoldItalic As Dictionary(Of Char, String)
' SansSerifItalic As Dictionary(Of Char, String)
 
#End Region
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Generic
 
#End Region
 
#Region " UnicodeCharacterMaps "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Core.DataProcessing.Common
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Provides access to predefined alphabetic and alphanumeric character maps for a range of Unicode character sets.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <remarks>
    ''' The Unicode character sets are standardized sets of characters that cover 
    ''' various scripts and symbols used in written languages worldwide.
    ''' <para></para>
    ''' Unicode provides a unique code point for each character, ensuring interoperability and 
    ''' compatibility across different platforms and systems.
    ''' <para></para>
    ''' The character sets defined in this class represent specific stylistic variations 
    ''' of alphabetic characters used in mathematics and typography.
    ''' <para></para>
    ''' These character sets are commonly used in scientific and mathematical contexts, 
    ''' as well as in typography and font design.
    ''' <para></para>
    ''' They allow for precise representation of stylized alphabetic characters 
    ''' in various mathematical equations, formulas, and text layouts.
    ''' </remarks>
    ''' ----------------------------------------------------------------------------------------------------
    Public Class UnicodeCharacterMaps
 
#Region " Private Fields "
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D400 to U+1D433).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119808;', and dictionary key: 'a' gets value: '&#119834;'.
        ''' </summary>
        Private Shared _mathematicalBold As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D434 to U+1D467).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119860;', and dictionary key: 'a' gets value: '&#119886;'.
        ''' </summary>
        Private Shared _mathematicalItalic As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D468 to U+1D49B).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119912;', and dictionary key: 'a' gets value: '&#119938;'.
        ''' </summary>
        Private Shared _mathematicalBoldItalic As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold Script' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D4D0 to U+1D503).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120016;', and dictionary key: 'a' gets value: '&#120042;'.
        ''' </summary>
        Private Shared _mathematicalBoldScript As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5A0 to U+1D5D3).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120224;', and dictionary key: 'a' gets value: '&#120250;'.
        ''' </summary>
        Private Shared _sansSerif As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5D4 to U+1D607).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120276;', and dictionary key: 'a' gets value: '&#120302;'.
        ''' </summary>
        Private Shared _sansSerifBold As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D608 to U+1D63B).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120328;', and dictionary key: 'a' gets value: '&#120354;'.
        ''' </summary>
        Private Shared _sansSerifItalic As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D63C to U+1D66F).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120380;', and dictionary key: 'a' gets value: '&#120406;'.
        ''' </summary>
        Private Shared _sansSerifBoldItalic As Dictionary(Of Char, String)
 
        ''' <summary>
        ''' (Backing Field)
        ''' <para></para>
        ''' A dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Monospace' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D670 to U+1D6A3).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120432;', and dictionary key: 'a' gets value: '&#120458;'.
        ''' </summary>
        Private Shared _monoSpace As Dictionary(Of Char, String)
 
#End Region
 
#Region " Properties "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D400 to U+1D433).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119808;', and dictionary key: 'a' gets value: '&#119834;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property MathematicalBold As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._mathematicalBold Is Nothing Then
                    UnicodeCharacterMaps._mathematicalBold = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#119808;"}, {"B"c, "&#119809;"}, {"C"c, "&#119810;"}, {"D"c, "&#119811;"}, {"E"c, "&#119812;"},
                           {"F"c, "&#119813;"}, {"G"c, "&#119814;"}, {"H"c, "&#119815;"}, {"I"c, "&#119816;"}, {"J"c, "&#119817;"},
                           {"K"c, "&#119818;"}, {"L"c, "&#119819;"}, {"M"c, "&#119820;"}, {"N"c, "&#119821;"}, {"O"c, "&#119822;"},
                           {"P"c, "&#119823;"}, {"Q"c, "&#119824;"}, {"R"c, "&#119825;"}, {"S"c, "&#119826;"}, {"T"c, "&#119827;"},
                           {"U"c, "&#119828;"}, {"V"c, "&#119829;"}, {"W"c, "&#119830;"}, {"X"c, "&#119831;"}, {"Y"c, "&#119832;"},
                           {"Z"c, "&#119833;"},
                           {"a"c, "&#119834;"}, {"b"c, "&#119835;"}, {"c"c, "&#119836;"}, {"d"c, "&#119837;"}, {"e"c, "&#119838;"},
                           {"f"c, "&#119839;"}, {"g"c, "&#119840;"}, {"h"c, "&#119841;"}, {"i"c, "&#119842;"}, {"j"c, "&#119843;"},
                           {"k"c, "&#119844;"}, {"l"c, "&#119845;"}, {"m"c, "&#119846;"}, {"n"c, "&#119847;"}, {"o"c, "&#119848;"},
                           {"p"c, "&#119849;"}, {"q"c, "&#119850;"}, {"r"c, "&#119851;"}, {"s"c, "&#119852;"}, {"t"c, "&#119853;"},
                           {"u"c, "&#119854;"}, {"v"c, "&#119855;"}, {"w"c, "&#119856;"}, {"x"c, "&#119857;"}, {"y"c, "&#119858;"},
                           {"z"c, "&#119859;"},
                           {"0"c, "&#120782;"}, {"1"c, "&#120783;"}, {"2"c, "&#120784;"}, {"3"c, "&#120785;"}, {"4"c, "&#120786;"},
                           {"5"c, "&#120787;"}, {"6"c, "&#120788;"}, {"7"c, "&#120789;"}, {"8"c, "&#120790;"}, {"9"c, "&#120791;"}
                       }
                End If
                Return UnicodeCharacterMaps._mathematicalBold
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D434 to U+1D467).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119860;', and dictionary key: 'a' gets value: '&#119886;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property MathematicalItalic As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._mathematicalItalic Is Nothing Then
                    UnicodeCharacterMaps._mathematicalItalic = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#119860;"}, {"B"c, "&#119861;"}, {"C"c, "&#119862;"}, {"D"c, "&#119863;"}, {"E"c, "&#119864;"},
                           {"F"c, "&#119865;"}, {"G"c, "&#119866;"}, {"H"c, "&#119867;"}, {"I"c, "&#119868;"}, {"J"c, "&#119869;"},
                           {"K"c, "&#119870;"}, {"L"c, "&#119871;"}, {"M"c, "&#119872;"}, {"N"c, "&#119873;"}, {"O"c, "&#119874;"},
                           {"P"c, "&#119875;"}, {"Q"c, "&#119876;"}, {"R"c, "&#119877;"}, {"S"c, "&#119878;"}, {"T"c, "&#119879;"},
                           {"U"c, "&#119880;"}, {"V"c, "&#119881;"}, {"W"c, "&#119882;"}, {"X"c, "&#119883;"}, {"Y"c, "&#119884;"},
                           {"Z"c, "&#119885;"},
                           {"a"c, "&#119886;"}, {"b"c, "&#119887;"}, {"c"c, "&#119888;"}, {"d"c, "&#119889;"}, {"e"c, "&#119890;"},
                           {"f"c, "&#119891;"}, {"g"c, "&#119892;"}, {"h"c, "&#120361;"}, {"i"c, "&#119894;"}, {"j"c, "&#119895;"},
                           {"k"c, "&#119896;"}, {"l"c, "&#119897;"}, {"m"c, "&#119898;"}, {"n"c, "&#119899;"}, {"o"c, "&#119900;"},
                           {"p"c, "&#119901;"}, {"q"c, "&#119902;"}, {"r"c, "&#119903;"}, {"s"c, "&#119904;"}, {"t"c, "&#119905;"},
                           {"u"c, "&#119906;"}, {"v"c, "&#119907;"}, {"w"c, "&#119908;"}, {"x"c, "&#119909;"}, {"y"c, "&#119910;"},
                           {"z"c, "&#119911;"}
                       }
                End If
                Return UnicodeCharacterMaps._mathematicalItalic
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D468 to U+1D49B).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#119912;', and dictionary key: 'a' gets value: '&#119938;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property MathematicalBoldItalic As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._mathematicalBoldItalic Is Nothing Then
                    UnicodeCharacterMaps._mathematicalBoldItalic = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#119912;"}, {"B"c, "&#119913;"}, {"C"c, "&#119914;"}, {"D"c, "&#119915;"}, {"E"c, "&#119916;"},
                           {"F"c, "&#119917;"}, {"G"c, "&#119918;"}, {"H"c, "&#119919;"}, {"I"c, "&#119920;"}, {"J"c, "&#119921;"},
                           {"K"c, "&#119922;"}, {"L"c, "&#119923;"}, {"M"c, "&#119924;"}, {"N"c, "&#119925;"}, {"O"c, "&#119926;"},
                           {"P"c, "&#119927;"}, {"Q"c, "&#119928;"}, {"R"c, "&#119929;"}, {"S"c, "&#119930;"}, {"T"c, "&#119931;"},
                           {"U"c, "&#119932;"}, {"V"c, "&#119933;"}, {"W"c, "&#119934;"}, {"X"c, "&#119935;"}, {"Y"c, "&#119936;"},
                           {"Z"c, "&#119937;"},
                           {"a"c, "&#119938;"}, {"b"c, "&#119939;"}, {"c"c, "&#119940;"}, {"d"c, "&#119941;"}, {"e"c, "&#119942;"},
                           {"f"c, "&#119943;"}, {"g"c, "&#119944;"}, {"h"c, "&#119945;"}, {"i"c, "&#119946;"}, {"j"c, "&#119947;"},
                           {"k"c, "&#119948;"}, {"l"c, "&#119949;"}, {"m"c, "&#119950;"}, {"n"c, "&#119951;"}, {"o"c, "&#119952;"},
                           {"p"c, "&#119953;"}, {"q"c, "&#119954;"}, {"r"c, "&#119955;"}, {"s"c, "&#119956;"}, {"t"c, "&#119957;"},
                           {"u"c, "&#119958;"}, {"v"c, "&#119959;"}, {"w"c, "&#119960;"}, {"x"c, "&#119961;"}, {"y"c, "&#119962;"},
                           {"z"c, "&#119963;"}
                       }
                End If
                Return UnicodeCharacterMaps._mathematicalBoldItalic
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Mathematical Bold Script' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D4D0 to U+1D503).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120016;', and dictionary key: 'a' gets value: '&#120042;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property MathematicalBoldScript As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._mathematicalBoldScript Is Nothing Then
                    UnicodeCharacterMaps._mathematicalBoldScript = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120016;"}, {"B"c, "&#120017;"}, {"C"c, "&#120018;"}, {"D"c, "&#120019;"}, {"E"c, "&#120020;"},
                           {"F"c, "&#120021;"}, {"G"c, "&#120022;"}, {"H"c, "&#120023;"}, {"I"c, "&#120024;"}, {"J"c, "&#120025;"},
                           {"K"c, "&#120026;"}, {"L"c, "&#120027;"}, {"M"c, "&#120028;"}, {"N"c, "&#120029;"}, {"O"c, "&#120030;"},
                           {"P"c, "&#120031;"}, {"Q"c, "&#120032;"}, {"R"c, "&#120033;"}, {"S"c, "&#120034;"}, {"T"c, "&#120035;"},
                           {"U"c, "&#120036;"}, {"V"c, "&#120037;"}, {"W"c, "&#120038;"}, {"X"c, "&#120039;"}, {"Y"c, "&#120040;"},
                           {"Z"c, "&#120041;"},
                           {"a"c, "&#120042;"}, {"b"c, "&#120043;"}, {"c"c, "&#120044;"}, {"d"c, "&#120045;"}, {"e"c, "&#120046;"},
                           {"f"c, "&#120047;"}, {"g"c, "&#120048;"}, {"h"c, "&#120049;"}, {"i"c, "&#120050;"}, {"j"c, "&#120051;"},
                           {"k"c, "&#120052;"}, {"l"c, "&#120053;"}, {"m"c, "&#120054;"}, {"n"c, "&#120055;"}, {"o"c, "&#120056;"},
                           {"p"c, "&#120057;"}, {"q"c, "&#120058;"}, {"r"c, "&#120059;"}, {"s"c, "&#120060;"}, {"t"c, "&#120061;"},
                           {"u"c, "&#120062;"}, {"v"c, "&#120063;"}, {"w"c, "&#120064;"}, {"x"c, "&#120065;"}, {"y"c, "&#120066;"},
                           {"z"c, "&#120067;"}
                       }
                End If
                Return UnicodeCharacterMaps._mathematicalBoldScript
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5A0 to U+1D5D3).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120224;', and dictionary key: 'a' gets value: '&#120250;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property SansSerif As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._sansSerif Is Nothing Then
                    UnicodeCharacterMaps._sansSerif = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120224;"}, {"B"c, "&#120225;"}, {"C"c, "&#120226;"}, {"D"c, "&#120227;"}, {"E"c, "&#120228;"},
                           {"F"c, "&#120229;"}, {"G"c, "&#120230;"}, {"H"c, "&#120231;"}, {"I"c, "&#120232;"}, {"J"c, "&#120233;"},
                           {"K"c, "&#120234;"}, {"L"c, "&#120235;"}, {"M"c, "&#120236;"}, {"N"c, "&#120237;"}, {"O"c, "&#120238;"},
                           {"P"c, "&#120239;"}, {"Q"c, "&#120240;"}, {"R"c, "&#120241;"}, {"S"c, "&#120242;"}, {"T"c, "&#120243;"},
                           {"U"c, "&#120244;"}, {"V"c, "&#120245;"}, {"W"c, "&#120246;"}, {"X"c, "&#120247;"}, {"Y"c, "&#120248;"},
                           {"Z"c, "&#120249;"},
                           {"a"c, "&#120250;"}, {"b"c, "&#120251;"}, {"c"c, "&#120252;"}, {"d"c, "&#120253;"}, {"e"c, "&#120254;"},
                           {"f"c, "&#120255;"}, {"g"c, "&#120256;"}, {"h"c, "&#120257;"}, {"i"c, "&#120258;"}, {"j"c, "&#120259;"},
                           {"k"c, "&#120260;"}, {"l"c, "&#120261;"}, {"m"c, "&#120262;"}, {"n"c, "&#120263;"}, {"o"c, "&#120264;"},
                           {"p"c, "&#120265;"}, {"q"c, "&#120266;"}, {"r"c, "&#120267;"}, {"s"c, "&#120268;"}, {"t"c, "&#120269;"},
                           {"u"c, "&#120270;"}, {"v"c, "&#120271;"}, {"w"c, "&#120272;"}, {"x"c, "&#120273;"}, {"y"c, "&#120274;"},
                           {"z"c, "&#120275;"},
                           {"0"c, "&#120802;"}, {"1"c, "&#120803;"}, {"2"c, "&#120804;"}, {"3"c, "&#120805;"}, {"4"c, "&#120806;"},
                           {"5"c, "&#120807;"}, {"6"c, "&#120808;"}, {"7"c, "&#120809;"}, {"8"c, "&#120810;"}, {"9"c, "&#120811;"}
                       }
                End If
                Return UnicodeCharacterMaps._sansSerif
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Bold' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D5D4 to U+1D607).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120276;', and dictionary key: 'a' gets value: '&#120302;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property SansSerifBold As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._sansSerifBold Is Nothing Then
                    UnicodeCharacterMaps._sansSerifBold = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120276;"}, {"B"c, "&#120277;"}, {"C"c, "&#120278;"}, {"D"c, "&#120279;"}, {"E"c, "&#120280;"},
                           {"F"c, "&#120281;"}, {"G"c, "&#120282;"}, {"H"c, "&#120283;"}, {"I"c, "&#120284;"}, {"J"c, "&#120285;"},
                           {"K"c, "&#120286;"}, {"L"c, "&#120287;"}, {"M"c, "&#120288;"}, {"N"c, "&#120289;"}, {"O"c, "&#120290;"},
                           {"P"c, "&#120291;"}, {"Q"c, "&#120292;"}, {"R"c, "&#120293;"}, {"S"c, "&#120294;"}, {"T"c, "&#120295;"},
                           {"U"c, "&#120296;"}, {"V"c, "&#120297;"}, {"W"c, "&#120298;"}, {"X"c, "&#120299;"}, {"Y"c, "&#120300;"},
                           {"Z"c, "&#120301;"},
                           {"a"c, "&#120302;"}, {"b"c, "&#120303;"}, {"c"c, "&#120304;"}, {"d"c, "&#120305;"}, {"e"c, "&#120306;"},
                           {"f"c, "&#120307;"}, {"g"c, "&#120308;"}, {"h"c, "&#120309;"}, {"i"c, "&#120310;"}, {"j"c, "&#120311;"},
                           {"k"c, "&#120312;"}, {"l"c, "&#120313;"}, {"m"c, "&#120314;"}, {"n"c, "&#120315;"}, {"o"c, "&#120316;"},
                           {"p"c, "&#120317;"}, {"q"c, "&#120318;"}, {"r"c, "&#120319;"}, {"s"c, "&#120320;"}, {"t"c, "&#120321;"},
                           {"u"c, "&#120322;"}, {"v"c, "&#120323;"}, {"w"c, "&#120324;"}, {"x"c, "&#120325;"}, {"y"c, "&#120326;"},
                           {"z"c, "&#120327;"},
                           {"0"c, "&#120812;"}, {"1"c, "&#120813;"}, {"2"c, "&#120814;"}, {"3"c, "&#120815;"}, {"4"c, "&#120816;"},
                           {"5"c, "&#120817;"}, {"6"c, "&#120818;"}, {"7"c, "&#120819;"}, {"8"c, "&#120820;"}, {"9"c, "&#120821;"}
                       }
                End If
                Return UnicodeCharacterMaps._sansSerifBold
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D608 to U+1D63B).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120328;', and dictionary key: 'a' gets value: '&#120354;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property SansSerifItalic As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._sansSerifItalic Is Nothing Then
                    UnicodeCharacterMaps._sansSerifItalic = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120328;"}, {"B"c, "&#120329;"}, {"C"c, "&#120330;"}, {"D"c, "&#120331;"}, {"E"c, "&#120332;"},
                           {"F"c, "&#120333;"}, {"G"c, "&#120334;"}, {"H"c, "&#120335;"}, {"I"c, "&#120336;"}, {"J"c, "&#120337;"},
                           {"K"c, "&#120338;"}, {"L"c, "&#120339;"}, {"M"c, "&#120340;"}, {"N"c, "&#120341;"}, {"O"c, "&#120342;"},
                           {"P"c, "&#120343;"}, {"Q"c, "&#120344;"}, {"R"c, "&#120345;"}, {"S"c, "&#120346;"}, {"T"c, "&#120347;"},
                           {"U"c, "&#120348;"}, {"V"c, "&#120349;"}, {"W"c, "&#120350;"}, {"X"c, "&#120351;"}, {"Y"c, "&#120352;"},
                           {"Z"c, "&#120353;"},
                           {"a"c, "&#120354;"}, {"b"c, "&#120355;"}, {"c"c, "&#120356;"}, {"d"c, "&#120357;"}, {"e"c, "&#120358;"},
                           {"f"c, "&#120359;"}, {"g"c, "&#120360;"}, {"h"c, "&#120361;"}, {"i"c, "&#120362;"}, {"j"c, "&#120363;"},
                           {"k"c, "&#120364;"}, {"l"c, "&#120365;"}, {"m"c, "&#120366;"}, {"n"c, "&#120367;"}, {"o"c, "&#120368;"},
                           {"p"c, "&#120369;"}, {"q"c, "&#120370;"}, {"r"c, "&#120371;"}, {"s"c, "&#120372;"}, {"t"c, "&#120373;"},
                           {"u"c, "&#120374;"}, {"v"c, "&#120375;"}, {"w"c, "&#120376;"}, {"x"c, "&#120377;"}, {"y"c, "&#120378;"},
                           {"z"c, "&#120379;"}
                       }
                End If
                Return UnicodeCharacterMaps._sansSerifItalic
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z', 
        ''' and the values are their corresponding symbols from the 'Sans-Serif Bold Italic' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D63C to U+1D66F).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120380;', and dictionary key: 'a' gets value: '&#120406;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property SansSerifBoldItalic As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._sansSerifBoldItalic Is Nothing Then
                    UnicodeCharacterMaps._sansSerifBoldItalic = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120380;"}, {"B"c, "&#120381;"}, {"C"c, "&#120382;"}, {"D"c, "&#120383;"}, {"E"c, "&#120384;"},
                           {"F"c, "&#120385;"}, {"G"c, "&#120386;"}, {"H"c, "&#120387;"}, {"I"c, "&#120388;"}, {"J"c, "&#120389;"},
                           {"K"c, "&#120390;"}, {"L"c, "&#120391;"}, {"M"c, "&#120392;"}, {"N"c, "&#120393;"}, {"O"c, "&#120394;"},
                           {"P"c, "&#120395;"}, {"Q"c, "&#120396;"}, {"R"c, "&#120397;"}, {"S"c, "&#120398;"}, {"T"c, "&#120399;"},
                           {"U"c, "&#120400;"}, {"V"c, "&#120401;"}, {"W"c, "&#120402;"}, {"X"c, "&#120403;"}, {"Y"c, "&#120404;"},
                           {"Z"c, "&#120405;"},
                           {"a"c, "&#120406;"}, {"b"c, "&#120407;"}, {"c"c, "&#120408;"}, {"d"c, "&#120409;"}, {"e"c, "&#120410;"},
                           {"f"c, "&#120411;"}, {"g"c, "&#120412;"}, {"h"c, "&#120413;"}, {"i"c, "&#120414;"}, {"j"c, "&#120415;"},
                           {"k"c, "&#120416;"}, {"l"c, "&#120417;"}, {"m"c, "&#120418;"}, {"n"c, "&#120419;"}, {"o"c, "&#120420;"},
                           {"p"c, "&#120421;"}, {"q"c, "&#120422;"}, {"r"c, "&#120423;"}, {"s"c, "&#120424;"}, {"t"c, "&#120425;"},
                           {"u"c, "&#120426;"}, {"v"c, "&#120427;"}, {"w"c, "&#120428;"}, {"x"c, "&#120429;"}, {"y"c, "&#120430;"},
                           {"z"c, "&#120431;"}
                       }
                End If
                Return UnicodeCharacterMaps._sansSerifBoldItalic
            End Get
        End Property
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Gets a dictionary where the keys are the alphabet letters from 'a' to 'Z' and numbers from '0' to '9', 
        ''' and the values are their corresponding symbols from the 'Monospace' character set 
        ''' of the 'Mathematical Alphanumeric Symbols' unicode blocks (U+1D670 to U+1D6A3).
        ''' <para></para>
        ''' e.g., dictionary key: 'A' gets value: '&#120432;', and dictionary key: 'a' gets value: '&#120458;'.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        Public Shared ReadOnly Property MonoSpace As Dictionary(Of Char, String)
            Get
                If UnicodeCharacterMaps._monoSpace Is Nothing Then
                    UnicodeCharacterMaps._monoSpace = New Dictionary(Of Char, String)(EqualityComparer(Of Char).Default) From {
                           {"A"c, "&#120432;"}, {"B"c, "&#120433;"}, {"C"c, "&#120434;"}, {"D"c, "&#120435;"}, {"E"c, "&#120436;"},
                           {"F"c, "&#120437;"}, {"G"c, "&#120438;"}, {"H"c, "&#120439;"}, {"I"c, "&#120440;"}, {"J"c, "&#120441;"},
                           {"K"c, "&#120442;"}, {"L"c, "&#120443;"}, {"M"c, "&#120444;"}, {"N"c, "&#120445;"}, {"O"c, "&#120446;"},
                           {"P"c, "&#120447;"}, {"Q"c, "&#120448;"}, {"R"c, "&#120449;"}, {"S"c, "&#120450;"}, {"T"c, "&#120451;"},
                           {"U"c, "&#120452;"}, {"V"c, "&#120453;"}, {"W"c, "&#120454;"}, {"X"c, "&#120455;"}, {"Y"c, "&#120456;"},
                           {"Z"c, "&#120457;"},
                           {"a"c, "&#120458;"}, {"b"c, "&#120459;"}, {"c"c, "&#120460;"}, {"d"c, "&#120461;"}, {"e"c, "&#120462;"},
                           {"f"c, "&#120463;"}, {"g"c, "&#120464;"}, {"h"c, "&#120465;"}, {"i"c, "&#120466;"}, {"j"c, "&#120467;"},
                           {"k"c, "&#120468;"}, {"l"c, "&#120469;"}, {"m"c, "&#120470;"}, {"n"c, "&#120471;"}, {"o"c, "&#120472;"},
                           {"p"c, "&#120473;"}, {"q"c, "&#120474;"}, {"r"c, "&#120475;"}, {"s"c, "&#120476;"}, {"t"c, "&#120477;"},
                           {"u"c, "&#120478;"}, {"v"c, "&#120479;"}, {"w"c, "&#120480;"}, {"x"c, "&#120481;"}, {"y"c, "&#120482;"},
                           {"z"c, "&#120483;"},
                           {"0"c, "&#120822;"}, {"1"c, "&#120823;"}, {"2"c, "&#120824;"}, {"3"c, "&#120825;"}, {"4"c, "&#120826;"},
                           {"5"c, "&#120827;"}, {"6"c, "&#120828;"}, {"7"c, "&#120829;"}, {"8"c, "&#120830;"}, {"9"c, "&#120831;"}
                       }
                End If
                Return UnicodeCharacterMaps._monoSpace
            End Get
        End Property
 
#End Region
 
#Region " Constructors "
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Prevents a default instance of the <see cref="UnicodeCharacterMaps"/> class from being created.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerNonUserCode>
        Private Sub New()
        End Sub
 
#End Region
 
    End Class
 
End Namespace
 
#End Region