[三流君] −−＞
[ＡＳＰで遊ぶ、失敗する] −−＞
[バックナンバー一覧]
−−＞ No.006 データをテキストファイルに書き込む
データをテキストファイルに書き込む
本文(発行内容)
＜データをテキストファイルに書き込む＞
こんにちは、Ｋｅｎ３です。
今回は、
データをテキストファイルに書き込んでみたいと思います。
/*
* １．仕様
*/
aspの処理
呼び出だされたら、
test006.txtを追加モードで開き、
現在の時刻を書き込む。
結果を見るためにtest006.txtへのリンクを書く。
/*
* ２．データをテキストファイルに書き込む
*/
http://www.ken3.org/cgi-bin/test/test006-1.asp
でテストできるので、確認してください。
サンプルのソースを下記に載せます
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>test テキストファイルに書き込み</title>
</head>
<body>
<h2>データをテキストファイルに書き込む</h2>
test006-1.asp<br>
<hr>
<%
'*1 FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'*2 test006.txt を追加モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test006.txt"), 8, True)
'*3ファイルにデータを書き込む
ts.write "test006-1.asp アクセス時刻は、" & Now
ts.write chr(13) & chr(10)
'*4使ったファイルは閉じようよ
ts.close
%>
<hr>
書き込み終了です。<br>
<A HREF="test006.txt">test006.txtを見る</A><br>
</body>
</html>
ポイントは、
'*1 FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
ここで、まず、ファイルシステムのオブジェクトを作成します。
次に、ファイルを開くために、
.OpenTextFileを使用します。
'*2 test006.txt を追加モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test006.txt"), 8, True)
パラメーターは、
.OpenTextFile(ファイルの絶対パス, モード, ファイルの新規作成)
なので、
ファイルのサーバー上での絶対パスを知りたいので、
Server.MapPath("test006.txt")
で、ファイル名を渡すと、
フォルダー＋ファイル名のサーバー上の絶対パスを返してくれます。
モードは、お決まりで、
１ 読み取り専用
２ 書き込み専用
８ 追記（ファイルの末尾から追加書き込み）
'*3ファイルにデータを書き込む
ts.write "test006-1.asp アクセス時刻は、" & Now
ts.write chr(13) & chr(10)
ここも見たままで、
.writeで文字を書きこんでます。
変化が見たいので、& Nowで現在時刻を書き出してます。
'*4使ったファイルは閉じようよ
ts.close
これもお約束で、開けたら閉めるの
.close
です。
<A HREF="test006.txt">test006.txtを見る</A><br>
で
http://www.ken3.org/cgi-bin/test/test006.txt
にリンクを貼ってます。（テスト結果が見やすいように）
/*
* ３．Server.MapPath("test006.txt")のテスト
*/
実際にサーバーに格納されている絶対パスを表示させるために、
Server.MapPath("test006.txt")
を使いました。
http://www.ken3.org/cgi-bin/test/test006-2.asp
で
下記のテストプログラムを実行できます。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>Server.MapPath("test006.txt")のテスト</title>
</head>
<body>
<h2>Server.MapPath("test006.txt")のテスト</h2>
test006-2.asp<br>
<hr>
Server.MapPath("test006.txt")とやると<br>
<%=Server.MapPath("test006.txt")%>
<br>
を返します。<br>
<hr>
<br>
以上、簡単なテストでした。
</body>
</html>
簡単に、
<%=
でリターン値を表示してみました。
/*
* ４．終わりの挨拶
*/
今日やっと、サーバー上のファイルに書き込みを行いました。
まだまだ、道のりは遠いなぁ〜
またね（笑）
何か質問があったら、気軽に、
メール、掲示板に書き込んでくださいね。
三流プログラマーのＫｅｎ３でした。
フィードバック
ASP系の→[掲示板]←を覗く、質問を書き込む
評価・感想
三流君の主なリンク先
[アクセスランキング]
[サイトマップ]
[リンク先・相互リンク先など]
Ken3の日記(weblog) --
[広告・副収入系]
[プログラマー業務の愚痴]
[VBA系の話題]
[ASP系の話題]
[コンビニ系ネタ]
[その他]
その他 宣伝広告