だりー source鍛冶屋 - R-KのはてなD

HTMLタグ書くとぶっ飛び
スーパープレにしたら意味無い
Imports System.io
Imports System.Text.Encoding
Imports System.Text.RegularExpressions

Public Class RogToHtml

    Dim Rog() As String
    Dim mDay() As Day

    Friend Sub convert(ByVal inPath As String, ByVal outPath As String)

        read(inPath)

        days()

        Write(outPath)

    End Sub

    Private Sub read(ByVal path As String)

        ReDim Rog(0)
        Dim i As Integer = 0
        Dim sr As New StreamReader(path, GetEncoding("Shift_JIS"))
        Dim st As String = sr.ReadLine()

        Do While Not st Is Nothing
            ReDim Preserve Rog(i)
            Rog(i) = st
            i += 1
            st = sr.ReadLine()
        Loop

        sr.Close()

    End Sub

    Private Sub write(ByVal path As String)

        Dim sw As New StreamWriter(path, False, GetEncoding("Shift_JIS"))
        Dim st As String

        st = "<html>" & vbNewLine
        st &= "<head>" & vbNewLine
        st &= "<title>test</title>" & vbNewLine
        st &= "</head>" & vbNewLine
        st &= "<body><div>" & vbNewLine

        For index As Integer = 0 To mDay.Length - 1
            st &= "<h2>" & mDay(index).Title & "</h2>" & vbNewLine & "<p>"
            If Not mDay(index).Text Is Nothing Then
                For index1 As Integer = 0 To mDay(index).Text.Length - 1
                    st &= mDay(index).Text(index1) & "<br>" & vbNewLine
                Next
            End If

            st &= "</p>" & vbNewLine

        Next

        st &= "</div></body>" & vbNewLine
        st &= "</html>" & vbNewLine

        sw.Write(st)
        sw.Close()

    End Sub

    Private Sub days()

        Dim title As String = ""
        Dim dayIndex As Integer = -1
        Dim dayTextIndex As Integer = 0

        For index As Integer = 0 To Rog.Length - 1

            If Regex.IsMatch(Rog(index), "^#") Then
                dayIndex += 1

                ReDim Preserve mDay(dayIndex)
                mDay(dayIndex) = New Day
                mDay(dayIndex).Title = Rog(index)
                dayTextIndex = 0
            Else
                ReDim Preserve mDay(dayIndex).Text(dayTextIndex)
                mDay(dayIndex).Text(dayTextIndex) = Rog(index)
                dayTextIndex += 1
            End If

        Next

    End Sub

End Class
ウンココード
dayクラスに自分でアレさせねば