を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>配列をリング状に使う</title>
</head>
<body>
<h2>配列をリング状に使う</h2>
test023-1.asp<br>
配列をリング状に使って、最新の１０件を表示した<br>
<hr>
<% Call DATA_READ() '読みこみ表示関数をコール%>
<hr>
終了です。<br>
<A HREF="test008.txt" TARGET="_blank">元データtest008.txtを見る</A><br>
</body>
</html>
<% '気分で関数化して、外側に出してみた
Sub DATA_READ()
'FileSystemObjectを生成します
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test008.txt を読取専用モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
Dim strBOX(10) '*1文字列のバッファを１０個取る
Dim nSETIndex '*2セット位置
nSETIndex = 0 'セット位置を初期化
'ファイルからデータを読む
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ
'*3ファイルからデータを一行を読みバッファにセット
strBOX(nSETIndex) = ts.ReadLine
'*4バッファのセット位置を調整する
nSETIndex = nSETIndex + 1 'セット位置を＋１する（次に移動）
If nSETIndex = 10 Then '１０になったら０に戻す
nSetIndex = 0
End If
Loop
ts.close '使ったファイルは閉じようよ(もうファイルは使わないので)
'データの表示
For i = 1 To 10 '１０回まわるよ
'表示位置の調整
nSETIndex = nSETIndex - 1 'ポインタを１つ前にする
If nSETIndex < 0 Then '０以下になったら９にする
nSETIndex = 9
End If
'データの表示
Response.Write strBOX(nSETIndex) '配列のデータを表示
Response.Write "<BR>" '改行のタグを入れる
Next
End Sub
%>
| 最近発売の雑誌を紹介する
今週発売の男性誌です。プログラミング以外にも興味を持って？？？
- カジカジ 2008年 06月号
- BEST CLUB (ベストクラブ) 2008年 06月号
- SpyMaster (スパイマスター) 東海版 2008年 06月号
- KING (キング) 2008年 06月号
- men's egg (メンズエッグ) 2008年 06月号
- Ollie (オーリー) 2008年 06月号
- BRUTUS (ブルータス) 2008年 6/1号
- Pen (ペン) 2008年 6/1号
- おとなの週末 2008年 06月号
|