トークン クラス
これまで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 += "<"
Case ">"c : htmlString += ">"
Case "&"c : htmlString += "&"
Case "("c : htmlString += "(" 'はてな用
Case ")"c : htmlString += ")" 'はてな用
Case "|"c : htmlString += "|" 'はてな用
Case Else : htmlString += c
End Select
NextReturn htmlString
End Get
End Property
End Class