.AtEndOfStream を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは.AtEndOfStream です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>.AtEndOfStream でファイルの終端をチェックする</title>
</head>
<body>
<h2>.AtEndOfStream でファイルの終端をチェックする</h2>
test010-2.asp<br>
<hr>
<%
' FileSystemObjectを生成します、、って英文、そのままジャン。
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
' test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
Do While ts.AtEndOfStream = False '*6ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
Response.Write strDATA '読み込んだデータを表示
Response.Write "<BR>" '改行のタグを入れる
Loop
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>
| 最近発売の雑誌を紹介する
たまには、パズルなとで頭を柔らかくしておくと、プログラミングのひらめきもUPするかなぁ・・・
- オールクロスワード 2008年 06月号
- スケルトンくらぶ 2008年 06月号
- アロー & スケルトンパル 2008年 06月号
- お絵かきメイト 2008年 06月号
- デラックスクロスワード 2008年 06月号
- まちがいさがしミュージアム 2008年 06月号
- まちがいさがしメイト 2008年 06月号
- クロスワード in (イン) 2008年 06月号
- 漢字ナンパラ DX (デラックス) 2008年 06月号
|