今回は、”速報系データ[0BXX]”(５種類）のデータをワークシートに展開するサブルーチンを作ります。
コードは特に断りがない限り、”Top”シートのコードウィンドウに記述します。 |
１．”レース速報（０B12）”を展開するサブルーチン[Display0B12DataOnWorksheet]
"0B"は”ゼロ・ビー”です。（オッズの”O1”は”オー・ワン（イチ）”と読みます。紛らわしいですね。）
このサブルーチンはすでに作ったものを利用するので、呼び出すだけです。
実際に競馬開催日に使うとレースの確定後にデータが徐々に増加し、また配布されるデータの並び方も刻々変化する様子が分かると思います。表示するワークシートは"RA_RACE","SE_RACE","HR_RACE"です。
（注意：実際の使用に当たっては、先に対応する開催日の"RA_RACE","SE_RACE","HR_RACE"を実行しておいてください。対応するデータ日付が異なると正常に解析できない場合があります。） |
２．”馬体重（０B11）”を展開するサブルーチン[Display0B11DataOnWorksheet]
これは独自のサブルーチンです。
このデータもレース当日の発走時刻の１時間前に発表されるので、時間とともに徐々にデータが増加します。 |
３．”データマイニング予想（０B13）”を展開するサブルーチン[Display0B13DataOnWorksheet]
このデータは、１日分が一括で提供されますが、前日・当日・レース直前でデータが変わります。（”SE”データに含まれるのはレース直前の分です） |
４．”開催変更情報（０B14）”を展開するサブルーチン
0B14データにはいわゆる開催変更情報が含まれます。この中には５種類のデータがあるので、１つづつ作ります（後で、まとめて表示するサブルーチンも作ります）。
（１）”取消・除外（AV）”データを展開するサブルーチン[DisplayAvDataOnWorksheet]
このデータの性格上、何も取消・除外がなければ１日何もデータがない場合もあります。また最初から取消が分かっている場合もあれば、直前に除外ということもあるので、データの並び方は不ぞろいです。実際に検索する場合は全データを見る必要があります。（０B14）のデータは基本的には全部チェックする必要があります） |
（２）”騎手変更（Jc）”データを展開するサブルーチン[DiplayJcDataOnWorksheet]
このデータも１日何もデータがない日もあれば、めったやたらと出る場合もあります。このデータのややこしいのは、”騎手変更”が出た時点でまずデータが提供されますが、乗り替わる騎手が”未定”というデータもあります。決まるとまたデータが増えますが、”未定”というデータは残ったままです。最新データは一番後ろにあるので、データを取り出すときは後ろから読むといいと思います。ここで作るサブルーチンには１つだけを取り出す機能はありません。ひたすらすべてを表示するのみです。 |
（３）”発走時刻変更（Tc）”データを展開するサブルーチン[DisplayTcDataOnWorksheet]
|
（４）”コース変更（Cc）”データを展開するサブルーチン[DisplayCcDataOnWorkshee]
|
（５）”天候馬場状態（We）”データを展開するサブルーチン[DisplayCcDataOnWorksheet]
このデータの使い方はちょっとややこしいので、よくわかりません。イメージとしては、現在の天候・馬場状態が発表されるという感じです。つまり馬場状態が変わるたびに発表されるようです。いわばレース前の情報です。
私の場合は、結果の情報さえ分かればいいので、この”We”情報は使わず、”RA”の中の馬場状態の確定情報を利用しています。 |
（６）”開催情報（0B14）”データは上記の（１）〜（５）のデータが合成されています（WE以外はない場合もあり）。これらをまとめて扱うサブルーチンを作ります。[Dislplay0B14DataOnWorksheet] （Topシートに追加）
中身は先に作成したサブルーチンをそれぞれ呼び出すだけです。
|
５．”速報総合オッズ（0B30）”データを展開するサブルーチン[Display0B30DataOnWorksheet]
これも合成されたデータですが、中身はすでに作った各オッズ用のプログラムを利用します。
このデータは”レース”単位で提供されるため、１日で最大３６レース分があります。速報なのでレースが確定するまで時々刻々と変化しますが、取得できるデータはその時点で取得できる分です。ワークシートに展開すると”O1”〜”O６（あれば）”のデータが１つづつ表示されます。 |
６．”時系列オッズ（0B41/B42）”データを展開するサブルーチン
時系列オッズも”レース単位”の提供ですが、0B41が”O1”（単複枠）、0B42が”O２”（馬連）と中身は同じ種類のデータが時間的に連続しているだけです。したがって発走時刻によりデータ数が変わります。表示サブルーチンはすでに作ったものを利用しますので、ここで作るものはありません。 |
７．次に前回同様にサブルーチンに追加するサブルーチンを作ります。
下記のコードを前回のサブルーチンWorksheet_BeforeDoubleClickの中のサブルーチンに追加します（”Top”）。
追加するのは２種類あります。
（１）内部サブルーチン"OpenFileData"の中に追加するコード
追加する場所は前回の Case "RC" のブロックの下と End Select の間です。
|
（２）内部サブルーチン"JVDataSetAndDisplay"の中に追加するコード
追加する場所は前回の
Case "RC"
Call DisplayRCDataOnWorksheet(FileID, RcDataSu)
とend Select の間です。
|
８．さらに下記のサブルーチンを標準モジュール(mMod3)に追加してください。
これらは前項目の７-（１）で作成したサブルーチンの中で使われます。
（１）”開催情報（レース速報）(0B12)”を読み込むサブルーチン[ReadJVRT_0B12]
|
（２）”開催変更情報（0B14）”を読み込むサブルーチン[ReadJVRT_0B14]
|
（３）”速報オッズ(0B30)”を読み込むサブルーチン[ReadJVRT_0B30_Single]
以上で、”速報系データ”用のサブルーチンは終了です。
上書き保存してください。 |
９．プログラムの実行
”Top”シートのファイル名をダブルクリックするとデータが表示されると思います。速報系データは少し"RACE/RCOV”とちょっと違った感じです。
いかがですか。これで「New JVData Explorer基礎編」のうち、最新開催週のデータ取得のプログラムは一応終了です。うまくいきましたか。
作るマクロは結構たくさんありますが、１つ１つは似たようなものですので、最初に作るものを理解すればそのコピーと若干の変更で作成することができます。
次回は基礎編の最終回として、「過去に取得したデータ」を表示するプログラムを作ります。この機能は以前作成の[JVData Explorer]にはなかった機能です。
あと一息で基礎編は完成です。 |
ページトップへ |
