VB.NETでテキストファイルからHTMLファイルを動的に生成する方法

質問

• VB.NETでテキストファイルからHTMLファイルを動的に生成する方法を教えてください。
• 特定のフォルダ内にあるテキストファイルの中身を解析し、日付順に並べ替えるアルゴリズムを考えたいです。
• また、並び変えたファイルを合成し、単一のHTMLファイルとして出力する方法も教えてください。

回答No.3

1050 円（@1050YEN）

前半

Imports System.IO
Imports System.IO.Path
Imports System.Text
Imports System.Web.UI.HtmlControls　'←要参照設定[System.Web]

Public Class Form1
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　'出力対象情報を取得([探す場所],[検索パターン])
　　　　Dim l_dtbData As DataTable = FindText("C:\testdata", "*AAA.txt")

　　　　'HTML出力([出力ファイル名],[出力対象情報])
　　　　Call OutPutHtml("C:\test.html", l_dtbData)
　　End Sub

　　Private Sub OutPutHtml(ByVal p_strHtm As String, ByVal p_dtbData As DataTable)

　　　　'エンコード
　　　　Dim l_enc As Encoding = Encoding.UTF8

　　　　Using l_htmHtml As New HtmlGenericControl("html")
　　　　　　'ヘッダ
　　　　　　Using l_htmHead As New HtmlGenericControl("Head")
　　　　　　　　l_htmHtml.Controls.Add(l_htmHead)
　　　　　　　　'エンコード情報の追加
　　　　　　　　Using l_htmMetaEnc As New HtmlMeta
　　　　　　　　　　l_htmHead.Controls.Add(l_htmMetaEnc)
　　　　　　　　　　With l_htmMetaEnc
　　　　　　　　　　　　.HttpEquiv = "Content-Type"
　　　　　　　　　　　　.Content = "text/html"
　　　　　　　　　　　　.Attributes("charset") = l_enc.WebName
　　　　　　　　　　End With
　　　　　　　　End Using
　　　　　　　　'タイトル追加
　　　　　　　　Using l_htmTitle As New HtmlTitle
　　　　　　　　　　l_htmHead.Controls.Add(l_htmTitle)
　　　　　　　　　　l_htmTitle.Text = "あうとぷっと"
　　　　　　　　End Using
　　　　　　End Using

　　　　　　'ぼでー
　　　　　　Using l_htmBody As New HtmlGenericControl("body")
　　　　　　　　l_htmHtml.Controls.Add(l_htmBody)

　　　　　　　　'日付順にソート取得
　　　　　　　　For Each l_drwWk As DataRow In p_dtbData.Select(Nothing, "date")
　　　　　　　　　　Dim l_fInf As New FileInfo(l_drwWk("path").ToString())

　　　　　　　　　　'DIV作成
　　　　　　　　　　Using l_htmDiv As New HtmlGenericControl("div")
　　　　　　　　　　　　l_htmBody.Controls.Add(l_htmDiv)

　　　　　　　　　　　　With l_htmDiv
　　　　　　　　　　　　　　.ID = "div" & l_fInf.Name
　　　　　　　　　　　　　　'そのままテキストを出力
　　　　　　　　　　　　　　.InnerText = ReadTextSJIS(l_fInf)
　　　　　　　　　　　　　　'改行を置き換える
　　　　　　　　　　　　　　.InnerHtml = .InnerHtml.Replace(vbCrLf, "<br />")
　　　　　　　　　　　　End With
　　　　　　　　　　End Using
　　　　　　　　Next
　　　　　　End Using

　　　　　　'HTML出力実行
　　　　　　Call OutPutHtmlExec(p_strHtm, l_htmHtml, l_enc)
　　　　End Using
　　End Sub

お礼

ありがとうございました