3．投稿内容をファイルに書き込む＠ASP.Netで掲示板を作成しよう

3．投稿内容をファイルに書き込む＠ASP.Netで掲示板を作成しよう

次に、投稿内容をファイルに書き込みましょう。
投稿ボタン処理において、投稿内容のファイル書き込み処理を書きます。

aspxの変更はありません。
vb側のボタンの処理を変更します。

StreamWriterを使用してファイルの作成を行います。
ファイル名は、bbs.txtです。
投稿内容を加工してファイルに書き込みます。

下記では、今までの投稿内容を繋げてますが、
まだ、投稿ファイルの内容の表示をしていないので、
現状では意味がないです。

実行して、bbs.txtの内容を確認します。
bbs.txt→bbs.htmlにして実行するのがいいと思います。

Imports System.IOが必要です。

●vb

Protected Sub tkuBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tkuBtn.Click

Dim bbsStr As String
Dim writer As StreamWriter

'投稿内容の加工
bbsStr = "<div
style='padding:5px;border-color:#cccccc;border-width:1px;border-style:solid;width:500px;background:#F7F7F7;'>"
bbsStr += "<b>" + Me.titleTxt.Text + "</b>"
bbsStr += "　" + Me.nameTxt.Text + "(" + System.DateTime.Now +
")<BR><BR>"
bbsStr += Me.commentTxt.Text.Replace(ControlChars.CrLf, "<BR>")
bbsStr += "</div><br />"

'今までの投稿内容を繋げる
bbsStr += Me.bbsLbl.Text

'StreamWriter生成
writer = New StreamWriter(Server.MapPath("./") + "\bbs.txt")

'投稿内容を書き込む
writer.Write(bbsStr)

'StreamWriterを閉じる
writer.Close()

End Sub