カウンタ を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはカウンタ です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>カウンター初期化のタイミングを解説</title>
</head>
<body>
<h2>カウンター初期化のタイミングを解説</h2>
test018-2.asp<br>
動作仕様:test008.txtを読み込み、５行単位で線を引く(＜ＨＲ＞タグを入れる)
<hr>
<%
'FileSystemObjectを生成します
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
Dim nLINE '*1行数のカウンター
nLINE = 0 'カウンターを初期化
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
nLINE = nline + 1 '*2行カウンタを＋１する
Response.Write strDATA '読み込んだデータを表示
Response.Write "<BR>" '改行のタグを入れる
'*3行カウンタが５なら＜ＨＲ＞タグを挿入、カウンタクリア
If nLINE = 5 Then 'カウンタが５になったか？
Response.Write "<HR>" 'タグを入れる
nLINE = 0 'カウンターをクリアする
End If
Loop
ts.close '使ったファイルは閉じようよ
%>
<hr>
<A HREF="test008.txt">使用したtest008.txtを見る</A><br>
<br>
</body>
</html>
| 最近発売の雑誌を紹介する
プログラマーは漫画好き？仕事のじゃまにならない程度に・・・読んでみては？
- 少年ガンガン 2008年 06月号
- つりコミック 2008年 06月号
- 月刊 まんがライフオリジナル 2008年 06月号
- コミックビーム 2008年 06月号
- COMIC B's-LOG (コミックビーズログ) 2008年 06月号
- まんがタイムラブリー 2008年 06月号
- Mystery Sara (ミステリー・サラ) 2008年 06月号
- COMIC 乱 TWINS (ツウィンズ) 2008年 06月号
- 別冊 フレンド 2008年 06月号
|