メニュー

1.どのような掲示板を作成するか

2.投稿フォームの作成
3.投稿内容をファイルに書き込む
4.投稿内容を表示

5.DBにテーブルを作成
6.DBに投稿内容を書き込む
7.DBの内容を表示
8.Repeaterコントロールの配置
9.Repeaterで投稿内容を表示

10.その他の処理(aspx側)
11.その他の処理(vb側)

12.足りない処理

13.削除ボタンの追加

トップ

xml

ASP.Netのお勉強
VB.Netのお勉強
Excel マクロ・VBAのお勉強
PHPのお勉強
AJAXのお勉強
Webデザインのお勉強
Javaのお勉強
連想書籍検索
世界の観光地検索
路線図
総合サイトCocoaLiz
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




Copyright (C) 2008 ASP.Netで掲示板を作成しよう. All Rights Reserved.