トークン クラス

これまでC# で作成してきた「SourceToHTML」を、VB.NET に焼きなおしてみます。

Token.vb

'*******************************************************************************************************

'  トークン情報クラス

'*******************************************************************************************************

Public Class Token

    Public tokenString  As  String  ' トークンの文字列

    Public tokenKind    As  String  ' トークンの種類

    Public IsFixed      As  Boolean ' 確定済みか

    '---------------------------------------------------------------------------------------------------

    '   初期化

    '---------------------------------------------------------------------------------------------------

    Public Sub New(ByVal argString As String, ByVal argKind As String)

        tokenString =   argString

        tokenKind   =   argKind

        IsFixed     =   False

    End Sub

    '---------------------------------------------------------------------------------------------------

    ' "<", ">", "&", "(", "), "|" を変換

    '---------------------------------------------------------------------------------------------------

    Public ReadOnly Property tokenHtml As String

        Get

            Dim htmlString As String = ""

            For i As Integer = 0 To tokenString.Length - 1

                Dim c As Char = tokenString.Chars(i)
                Select Case c

                    Case "<"c : htmlString += "&#x3C;"

                    Case ">"c : htmlString += "&#x3E;"

                    Case "&"c : htmlString += "&#x26;"

                    Case "("c : htmlString += "&#x28;" 'はてな用

                    Case ")"c : htmlString += "&#x29;" 'はてな用

                    Case "|"c : htmlString += "&#x7C;" 'はてな用

                    Case Else : htmlString += c

                End Select

            Next
            Return htmlString

        End Get

    End Property

End Class