変換処理 呼び出し用クラス

Convert.vb

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

'   HTML変換処理 呼び出しクラス

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

Public Class Convert

    Private Const EOF As Char = ControlChars.NullChar

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

    '  ファイルの終わりまで、１文字ずつ読んで、１文字ずつ書く

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

    Public Sub charcopy(ByVal textReader As Reader, ByVal textWriter As Writer)

        Do

            'ファイルの終わりまで、１文字ずつ読んで

            Dim c As Char = textReader.getChar()

            If (c = EOF) Then Exit Do
            '１文字ずつ書く

            textWriter.putChar(c)

        Loop

    End Sub    

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

    '  HTML に書式化して出力

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

    Public Sub tohtml(ByVal textReader As Reader, ByVal textWriter As Writer, ByVal langType As String)

        Dim tokenReader As TokenReader = TokenReader.Create(textReader, langType)

        Dim tokenWriter As TokenWriter = New TokenWriter(textWriter)
        Do

            'ファイルの終わりまで、１区切りずつ読んで

            Dim myToken As Token = tokenReader.getToken()

            If (myToken Is Nothing) Then Exit Do
            '文字列の種類に応じた色指定タグで挟んで出力する

            tokenWriter.putToken(myToken)

        Loop
        tokenReader = Nothing

        tokenWriter = Nothing

    End Sub    

End Class