Mod を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはMod です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>MOD で 余りを計算する 解説</title>
</head>
<body>
<h2>MOD で 余りを計算する 解説</h2>
test018-1.asp<br>
動作仕様:test008.txtを読み込み、５行単位で線を引く(＜ＨＲ＞タグを入れる)<br>
If nLINE Mod 5 = 0 Then で、÷５の余りが０の時＜HR＞タグを使ってます<br>
※表示後のソースをみて下さい。<br>
<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 '*6ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
nLINE = nline + 1 '*2行カウンタを＋１する
Response.Write nLINE & "行目 " '行番号の表示
Response.Write strDATA '読み込んだデータを表示
Response.Write "<BR>" '改行のタグを入れる
'*3行カウンタが５、１０、１５、、５で／って余りが０なら
'＜ＨＲ＞タグを挿入する
If nLINE Mod 5 = 0 Then
Response.Write "<HR>" 'タグを入れる
End If
Loop
ts.close '使ったファイルは閉じようよ
%>
<hr>
<A HREF="test008.txt">使用した元データのtest008.txtを見る</A><br>
<br>
</body>
</html>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- DTP WORLD (ディーティーピー ワールド) 2008年 06月号
- Windows 100% 2008年 06月号
- 日経 PC (ピーシー) ビギナーズ 2008年 06月号
- PC Japan (ジャパン) 2008年 06月号
- Software Design (ソフトウエア デザイン) 2008年 06月号
- Web Designing (ウェブデザイニング) 2008年 06月号
- I/O (アイオー) 2008年 06月号
- 月刊 COMPUTERWORLD (コンピュータワールド) 2008年 07月号
|