元の三流解説は、
三流君ASP:苦肉の策、配列をリングみたく使ってみた
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・
ソースコード
<%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>配列をリング状に使う</title> </head> <body> <h2>配列をリング状に使う</h2> test023-1.asp<br> 配列をリング状に使って、最新の10件を表示した<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文字列のバッファを10個取る Dim nSETIndex '*2セット位置 nSETIndex = 0 'セット位置を初期化 'ファイルからデータを読む Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ '*3ファイルからデータを一行を読みバッファにセット strBOX(nSETIndex) = ts.ReadLine '*4バッファのセット位置を調整する nSETIndex = nSETIndex + 1 'セット位置を+1する(次に移動) If nSETIndex = 10 Then '10になったら0に戻す nSetIndex = 0 End If Loop ts.close '使ったファイルは閉じようよ(もうファイルは使わないので) 'データの表示 For i = 1 To 10 '10回まわるよ '表示位置の調整 nSETIndex = nSETIndex - 1 'ポインタを1つ前にする If nSETIndex < 0 Then '0以下になったら9にする nSETIndex = 9 End If 'データの表示 Response.Write strBOX(nSETIndex) '配列のデータを表示 Response.Write "<BR>" '改行のタグを入れる Next End Sub %>
↑をテストで実行する→ http://www.ken3.org/cgi-bin/test/test023-1.asp
コードの三流解説は、
三流君ASP:苦肉の策、配列をリングみたく使ってみた
↑を見て、笑ってやってください。