[三流君] −−＞ [ＡＳＰで遊ぶ、失敗する] −−＞ [バックナンバー一覧]
−−＞ No.023 苦肉の策、配列をリングみたく使ってみた

苦肉の策、配列をリングみたく使ってみた

本文(発行内容)

＜苦肉の策、配列をリングみたく使ってみた＞

こんにちは、Ｋｅｎ３です。

今回は、
テキストファイルのデータを逆順に読んでみたくって、
チャレンジしたけど、うまく行かなかった話です。

おい三流プログラマー、うまく行かない話をメルマガにするの？
ええ、笑ってもらおうと思って。
（ホンネは、途中まで書いてて、出来ないことに気が付いて方向転換です（笑））

たいした話じゃないので、あまり期待しないでね。

/*
 * １．やりたいこと
*/

キミは今日、何？やりたいの？
（まず、要望をヒアリングかな）

test008.txt ( http://www.ken3.org/cgi-bin/test/test008.txt )
に時刻と評価が下記のように書かれています。
2002/12/05 8:11:04 , 満足
2002/12/05 8:14:12 , 普通
2002/12/05 15:53:28 , 満足
　・
　・
　・
2002/12/07 15:36:54 , 満足
2002/12/07 15:56:49 , 満足
2002/12/07 15:57:22 , 不正なパラメーターです

とテキストファイルがあって、
これを表示するプログラム、をいろいろと作ってました。

そのまま表示
http://www.ken3.org/cgi-bin/test/test010-2.asp

５個単位で区切る
http://www.ken3.org/cgi-bin/test/test018-1.asp

行番号を付ける
http://www.ken3.org/cgi-bin/test/test019-1.asp

この処理で共通しているのが、
頭からファイルを１行読んで、
行番号を付けたり、５個単位を判断して線を引いたりと、
登録順（ファイルの上から順）の処理でした。

よくある話で、最近の１０件を知りたい、、、
なんて話がありますよね。

今回の要望は、最近の（最新の）１０件を表示してみたい。

そんなの後ろから１行単位で読んで戻ればいいんだろ、簡単ジャン。

ほんと、サスガ三流と言ってもプログラマーさんだね、よろしくです。

/*
 * ２．ウソだろ？テキストファイルにランダムアクセスできない？（戻れないの？）
*/

一般的な考え方として、
ファイルポインタを一行戻しながら読み、
（一行戻してから読み、２行戻すと１つ前に行くのかなぁ）
を
繰り返せばいいのかなぁと安易に考える。

ファイルポインタを移動させるような命令を探してみる。
えっ、無いのもしかして？

SkipLineメソッドってのあるから、
.SkipLine -2とかできないのかなぁ。
残念、できないみたいだ。

ファイルへランダムにアクセス可能か、調べないと。
もしかして、テキストストリームじゃダメだけど、
ほかの方法があるかもしれない。

今回は、プログラムでかわす方法を考えるか、、、

/*
 * ３．配列をリング的に使う
*/

リングって映画、怖いらしいねぇ。
私も知ってればいろいろと例を出せるけど知らないからなぁ、
じゃなくって、配列にデータをリング上に入れるイメージで処理してみます。

ソースを見る前に、イメージはリング（円）です。
円だったらサークルじゃないの？
って思うけど、どうなんだろう。
まぁイイヤ。

で、下記が小手先技で最新１０件を表示したソースです。

-- test023-1.asp
<%@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
%>
----

なんか複雑なことやってるよね。
そんなこと無いですよ。

ファイルアクセスの準備
^^^^^^^^^^^^^^^^^^^^^^
  'FileSystemObjectを生成します
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  'test008.txt を読取専用モードで開く
  Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True)
いつもの、
FileSystemObjectを生成とテキストストリームをオープンしてます。
私は前回のソースをコピーで作成してます。

バッファを１０個用意した
^^^^^^^^^^^^^^^^^^^^^^^^
  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
ここが１つのポイントで、
    '*3ファイルからデータを一行を読みバッファにセット
    strBOX(nSETIndex) = ts.ReadLine
何をしてるか？
命令見るとnSETIndex番目の配列にデータをセット。
初めは０だから０番目にセットされてます。
で、セット後に、
    '*4バッファのセット位置を調整する
    nSETIndex = nSETIndex + 1   'セット位置を＋１する（次に移動）
次の位置に移動してます。
    If nSETIndex = 10 Then      '１０になったら０に戻す
        nSetIndex = 0
    End If
ここがポイントで、１０になったら０にセット位置を戻してます。
０１２３４５６７８９０１２....
とセットする位置が循環します。
１３個データがある場合はループで、
０に１行目
１に２行目
　・
　・
８に９行目
９に１０行目のデータが入る、
カウンタnSETIndexが１０になったら、０に戻る
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
０に１１行目
１に１２行目
２に１３行目　カウンターnSETIndexは次の３になっている
でデータが終わる（３にセットする前でデータＥｎｄ）
データが連続で、１０個の配列を使いまわして代入されてるイメージ、
なんとなくわかりましたか？

ファイルは用済み
^^^^^^^^^^^^^^^^
  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
表示は１０個なので、１０回のループを作ってます。
配列の０から表示すると？ダメですよね、（11，12，13の並びになってしまう）
配列のカウンターを戻しながら表示したいので
    nSETIndex = nSETIndex - 1  'ポインタを１つ前にする
で、３だったカウンターが２に戻ります。
０に１１行目
１に１２行目
２に１３行目　カウンターnSETIndexは次の３になっている
でセットは、終わってましたね。
無事１３行目のデータが表示され、
次はカウンターが１となり１２行目、
次は０で１１行目、
−１となったところで、
    If nSETIndex < 0 Then '０以下になったら９にする
        nSETIndex = 9
    End If
のＩｆ文が活躍して、
nSETIndex = 9
１０行目のデータ表示になり、
また１つ減ってnSETIndex = 8で９行目のデータ。
こんな簡単な仕掛けだったんですね
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

なんて、強がって言ってる割には、苦労したけど。

テストの表示は、↓で試してください。
http://www.ken3.org/cgi-bin/test/test023-1.asp
元データTEST008.TXTと確認すると、なんとか逆順で表示されてます。

今思えば、１から１０までセットのほうが説明わかりやすかったかも、
循環でバッファ使ってるのは、
１、１１、２１...は（１）
２、１２、２２...は（２）
　・
　・
　・
10、２０、３０...は（１０）にセット
が、わかりやすかったかなぁ。まぁいいや。

＊書き直せよな、読者がわかりやすいように。

/*
 * ４．終わりの挨拶
*/

今回は、
・テキストストリームのポインタ前の行に戻せないの？（勘違いかも）
・配列をリング的に使う
でした。

テキストストリームのポインタ前の行に戻せない
と
思いこんで、深みにハマッタかもしれないし、
ホントに戻れないので、
今回みたいな小細工必要だったり、、、

そろそろＤＢかなぁやはり。

素朴な疑問あったら、気軽に、
メール、掲示板に書き込んでくださいね。

ＡＳＰ、ＶＢＳｃｒｉｐｔ勉強中の三流プログラマーのＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。目的の情報が見つかったか？少々心配しつつ、、、

三流君へ メッセージを送る

感想や質問・要望・苦情など 三流君へメッセージを送る。
返信例 XXXXさんへ
下記のフォームからメッセージを送ることができます。

あなたのお名前（ニックネーム）:さん
返信は？:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)

種類別のリンク や 広告など

[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

Blogとリンク:[三流君のMemo別館]/ [ASP 三流君のソースコード置き場]/ [Ken3Video YouTubeで動画解説]
広告:

気になった ジャンル ↓を選択してください。

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

広告:

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。１行読み込みなどを軽く

VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。


[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

広告: