三流君(TOP)
/ASPで遊ぶ
/記事一覧
.ReadAll で ファイルを全て読む
test010-3.asp
' test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
strDATA = ts.ReadAll '*7 .ReadAllでファイルを全て変数へ
2008/04/22 10:01:13 , 不満
2008/04/22 10:22:22 , 普通
2008/04/22 10:23:00 , 満足
2008/04/22 10:27:20 , 不正なパラメーターです
2008/04/22 10:31:27 , 不満
2008/04/22 10:51:42 , 普通
2008/04/22 10:52:54 , 満足
2008/04/22 10:56:48 , 不正なパラメーターです
2008/04/22 11:00:42 , 不満
2008/04/22 11:21:35 , 普通
2008/05/09 15:57:19 , 不正なパラメーターです
2008/05/09 21:29:22 , 普通
2008/05/10 9:31:33 , 不満
2008/05/10 11:40:58 , 満足
2008/05/10 16:08:10 , 不正なパラメーターです
2008/05/10 21:46:37 , 普通
2008/05/11 9:37:27 , 不満
2008/05/11 11:45:59 , 満足
2008/05/11 14:04:20 , 普通
2008/05/11 15:22:15 , 普通
2008/05/11 15:43:29 , 満足
2008/05/11 15:55:44 , 不満
2008/05/11 16:11:25 , 不正なパラメーターです
2008/05/11 17:55:10 , 不正なパラメーターです
2008/05/11 21:49:51 , 普通
2008/05/12 1:13:36 , 満足
2008/05/12 1:13:39 , 普通
2008/05/12 1:13:41 , 不満
2008/05/12 5:37:18 , 不満
2008/05/12 8:22:31 , 不正なパラメーターです
2008/05/12 9:41:44 , 不満
2008/05/12 13:15:24 , 満足
2008/05/12 16:16:27 , 不正なパラメーターです
2008/05/12 23:52:06 , 普通
2008/05/13 9:36:00 , 不正なパラメーターです
2008/05/13 9:44:18 , 不満
2008/05/13 10:16:23 , 不正なパラメーターです
2008/05/13 13:27:09 , 満足
2008/05/13 16:24:39 , 不正なパラメーターです
2008/05/13 20:47:01 , 不正なパラメーターです
終了です
元データtest008.txtを見る
解説ページ→
[No.10 テキストファイルからデータを読む]
[ＡＳＰ系メニューへ]
[質問・感想掲示板]
[バックナンバー目次]
コーヒーブレイク たまには寄り道、休憩も(↓広告です):
広告:[Blogで商品紹介] ← 足跡から人気を判断？
[本日発売の商品] ← 発売日が当日の商品を紹介、、、するが効果が無いので →
[先週発売の商品] ← を作成して、先走らないで、少し落ち着いてみます(笑)
.ReadAllを使用したサンプル(ソースの紹介)
詳細解説は[http:/asp/backno/asp010.html]を見てください
下記、/cgi-bin/test/test010-3.aspのソース（中身）です
.ReadAll を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは.ReadAll です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>.ReadAll で ファイルを全て読む</title>
</head>
<body>
<h2>.ReadAll で ファイルを全て読む</h2>
test010-3.asp<br>
' test008.txt を読取専用モードで開く<br>
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)<br>
strDATA = ts.ReadAll '*7 .ReadAllでファイルを全て変数へ<br>
<hr>
<%
' FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
' test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
strDATA = ts.ReadAll '*7 .ReadAllでファイルを全て変数へ
Response.Write "<PRE>" '<PRE>のタグでそのまま表示する
Response.Write strDATA '読み込んだ全てのデータを表示
Response.Write "</PRE>" '<PRE>タグ終了
ts.close '使ったファイルは閉じようよ
%>
<hr>
終了です<br>
<A HREF="test008.txt">元データtest008.txtを見る</A><br>
<br>
<HR>
解説ページ→
<A HREF="http://www.ken3.org/backno/backno_asp03.html#10">
[<b>No.10 テキストファイルからデータを読む</b>]</A><br>
<Font Size=-1>
<br>
<a Href="http://www.ken3.org/asp/" TARGET="_top">[ＡＳＰ系メニューへ]</a>
<a href="http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi" target="F_RIGHT">[質問・感想掲示板]</A>
<a href="http://www.ken3.org/backno/backno_asp_mokuji.html" target="F_RIGHT">[バックナンバー目次]</a><br>
<br>
</Font>
<hr>
</body>
</html>
| 最近発売の雑誌を紹介する
科学や技術の雑誌です。
- 農業と経済 2008年 06月号
- 省エネルギー 2008年 05月号
- 設備と管理 2008年 06月号
- 電気計算 2008年 06月号
- 電気店 2008年 06月号
- 電気評論 2008年 05月号
- 電気と工事 2008年 06月号
- 電設技術 2008年 05月号
- 固体物理 2008年 04月号
|
SQL総合の書籍を紹介します
Googleで関連項目を検索する
LANGUAGE=VBScript + [キーワード:.ReadAll] Sub|Function プログラム|プログラミング
↓で検索するとプログラムの例 Sub/Function でまとまったＨＰ
あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））
三流解説とリンクページを紹介
ＡＳＰ系の解説を項目ごとにまとめてみました
[ASP Form等を使用したデータのやり取り]
[ASP その他処理サンプル]
[ASP テキストファイル処理]
[ASP VBScript関数関係の説明]
[ASP ADOでMdbファイルを使う]
[ASP ADOでExcelと接続してみた]
その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます
現在時刻は、2008/05/13 22:26:37です。
[Topへ戻る]
−−＞[ASP系へ戻る]
−−＞[バックナンバーを見る]