じゃばのひまつぶし：ExcelVBAによる競馬ソフト自作教室とJRA-VAN登録ソフト（おずたんシリーズ）のサポートサイトです。

JRA-VAN Data Lab対応競馬ソフト自作教室

<New JVData Explorer> 基礎編：レース補てん情報取得(RCOV)

第５回

更新日
2012-01-14

基礎編ここから実際にJVDataをダウンロードするプログラムを作ります（ようやく）。
１．まず”レース補てん情報”(RCOV)をダウンロードするプログラムを作ります。レース補てん情報は、土日分のマスタデータを一括で取得します。内容は、”馬主マスタ(BN)”、”生産者マスタ(BR)”、”調教師マスタ(CH)”、”騎手マスタ(KS)”、”レース詳細(RA)”、”レコード情報(RC)”、”馬毎レース情報(SE)”、”競走馬マスタ(UM)”です。 ①”Top”シートにコマンドボタンを貼り付けます。デザインモードでコントロールツールボックスを表示して、コマンドボタンを貼り付け、Captionを”①レース補てん情報取得[RCOV]”としてください。下図参照。セル幅は適宜調整してください。頭の①はデータ取得の順番の目安ですので、なくても構いません。デザインモード・オン（ボタンの周囲に○がつく）で”①レース補てん情報取得[RCOV]”ボタンをダブルクリックするとCommandButton2のサブルーチンが表示されるので、コードウィンドウに下記コードを記述します。すでにSheet(Top)には先に作ったCommandButton1(初期設定シートへ）のコードがありますので、その下に出ているCommandButton2の中に記述するコードです。一番上のコメント部分は不要ですので特にコピーする必要はありません。（Sheet(Top)には前回作成した他のサブルーチンもあります）終わったらコントロールツールボックスのデザインモードを終了してコントロールツールボックスをクローズしてください（ボタン周囲の○が消えます）。 '*************** レース補てん情報ダウンロード(Top) *************** '[第５回] Private Sub CommandButton2_Click() Dim fromtime_RCOV As String Range("C5").Value = "レース補てん情報ダウンロード中" DoEvents 'FromTimeを取得 If Range("C7").Value = "" Then fromtime_RCOV = "00000000000000" Else fromtime_RCOV = Range("C7").Value End If Call レース補てん情報取得(fromtime_RCOV) End Sub プログラムのポイント ”C7”セルのFromTimeデータを読み込んで”レース補てん情報取得”というサブルーチンに渡すだけです。 ”レース補てん情報”をダウンロードするフローチャートの考え方は下図のイメージです。 ②標準モジュールを挿入し、"mMod2"と名前を付けてください。 mMod2に下記のコードを記述してください。これは、上記の[レース補てん情報取得]用のサブルーチンです。 '************* レース補てん情報取得(mMod2) *************** '[第５回] Sub レース補てん情報取得(ByVal fromtime_RCOV As String) '--------------------- 変数定義 ----------------------- Dim retVal As Long 'JVLink関数の返す戻り値を受ける変数 Dim Status As Long Dim A$ Dim DataSu As Long Dim NENGAPPI As String Dim readcount As Long Dim dlcount As Long Dim lasttime_RCOV As String 'ワークシートへJVLinkを設定 Call Set_JVLink_For_Worksheet '開いているJVLinkがあればいったんクローズ Call JVLink1.JVClose '初期ディレクトリ情報を取得 Call GetDirectoryData '* JVDataをダウンロードする dataspec = "RCOV" 'JVDataのデータ仕様を設定 'JVLink関数のデータを変数に代入 retVal = JVLink1.JVOpen(dataspec, fromtime_RCOV, 2, readcount, dlcount, lasttime_RCOV) '* エラー発生の場合 If retVal < 0 Then If retVal = -1 Then '該当データがないあるいは取得済みの場合 Worksheets("Top").Range("C5").Value = "[RCOV] 該当データなし" '* ワークシート上のデータを消去 Call WorksheetFileListClear(dataspec) '* 開催情報を取得 Call GetKaisaiDateInfo '* コンボボックスに開催日データをセット Call SetKaisaibiDateToComboBox(DateSu) '* セーブ済みのファイル名を読み出す NENGAPPI = DateFile(0) Call ExpandFileData(NENGAPPI, dataspec) Else MsgBox "JVOpenでエラー(" & retVal & ") が発生しました。" End If Call JVLink1.JVClose 'RCOV_FromTimeを表示 If lasttime_RCOV = "" Then Worksheets("Top").Range("C7").Value = "'" & fromtime_RCOV End If Exit Sub End If '* 正常にダウンロード終了の場合 Status = 0 While Status <> dlcount Status = JVLink1.JVStatus A$ = "レース補てん情報" Worksheets("Top").Range("C5").Value = "[" & A$ & "] " & dlcount & "ファイル中 " & Status & " ファイルダウンロード完了" DoEvents Sleep (120) Wend 'RCOV_LastTimeを表示 Worksheets("Top").Range("C7").Value = "'" & lasttime_RCOV If lasttime_RCOV = "" Then Worksheets("Top").Range("C7").Value = "'" & fromtime_RCOV End If '* ワークシート上のデータを消去 Call WorksheetFileListClear(dataspec) '* JV-Dataの解読 Call ReadJVData(dataspec) '* LastTime_RCOVのセーブ（次回のFromTime) lasttime_RCOV = Range("C7").Value Call SaveFromtime_RCOV(lasttime_RCOV) Worksheets("Top").Range("C5").Value = "レース補てん情報取得完了" DoEvents End Sub
③次いで標準モジュール”mMod2”に下記を記述します。これは上記のプログラムの中で使う”JVDataを解読”するサブルーチンです。[ReadJVData] ダウンロードしたデータはキャッシュメモリに保存されますが、それを読み出して解凍と解読をするのがJVLinkモジュールの”JVRead”です。このサブルーチンは、（ａ）読み込んだバッファの内容で”レコード種別ID”を判定し、データの区切りで前に作ったディレクトリの\CopyData2の「年月日+R」フォルダを作りセーブします。（ｂ）セーブと同時にワークシートにファイル名を表示します。（キャッシュの内容は消えてしまいますが、\CopyData2にセーブしたデータは後で読み出すことができます） '*************** JV-Dataの解読(mMod2) ******************** '[第５回] Private Sub ReadJVData(ByVal dataspec As String) Dim buf As String Dim filename As String Dim retVal As Long Dim p As Long Dim ID As String Dim NENGAPPI As String Dim A$ '* 仮の解読用配列を定義 DataCnt = 1 ReDim DmyData(1 To DataCnt) As String p = 0 retVal = 1 While retVal <> 0 '* キャッシュのJVDataを読み込む retVal = JVLink1.JVRead(buf, 200000, filename) '* データが有効ならバッファ内容を読み取る If retVal > 0 Then p = p + 1 '* バッファ内容を読み取る GoSub ReadBufferData '* データ区切りならセーブ ElseIf retVal = -1 Then '* データ種別ごとのセーブ(共通) Call SaveRaceInfoData(filename, p, dataspec) '* カウンタを戻す p = 0 DataCnt = 1 '* 読み込みエラーの場合は終了 ElseIf retVal < -1 Then MsgBox "読み込みエラー(" & retVal & ") が発生しました。" Call JVLink1.JVClose Exit Sub End If DoEvents Wend Call JVLink1.JVClose Exit Sub '----------------------------------------------------------------- '　　　　　　サブルーチン '----------------------------------------------------------------- ' バッファ内容を読み取る ReadBufferData: If p > DataCnt Then DataCnt = DataCnt + 1 ReDim Preserve DmyData(1 To DataCnt) As String End If '* データ種別IDを設定 ID = Left$(buf, 2) '* レース情報（"RACE"）の場合 If dataspec = "RACE" Then Select Case ID Case "RA" A$ = "レース詳細" Case "SE" A$ = "馬毎レース情報" Case "HR" A$ = "払戻" Case "O1" A$ = "単複枠オッズ" Case "O2" A$ = "馬連オッズ" Case "O3" A$ = "ワイドオッズ" Case "O4" A$ = "馬単オッズ" Case "O5" A$ = "三連複オッズ" Case "O6" A$ = "三連単オッズ" Case "H1" A$ = "票数1" Case "H6" A$ = "票数6" End Select '* レース情報補てん("RCOV")の場合 ElseIf dataspec = "RCOV" Then Select Case ID Case "RA" A$ = "レース詳細" Case "SE" A$ = "馬毎レース情報" Case "BN" A$ = "馬主情報" Case "BR" A$ = "生産者情報" Case "CH" A$ = "調教師情報" Case "KS" A$ = "騎手情報" Case "RC" A$ = "レコード情報" Case "UM" A$ = "競走馬マスタ情報" End Select End If '* 読み込み状況をワークシートに表示 NENGAPPI = Mid$(filename, 7, 6) 'データ種別により表示位置を変更 If dataspec = "RCOV" Then Worksheets("Top").Range("C5").Value = "[" & NENGAPPI & "] " & A$ & " データ読込 = " & p ElseIf dataspec = "RACE" Then Worksheets("Top").Range("I5").Value = "[" & NENGAPPI & "] " & A$ & " データ読込 = " & p End If DoEvents '* データ抽出 DmyData(p) = Left(buf, Len(buf) - 2) Return End Sub ④さらに続いて”mMod2”に下記コードを追加します。これは上記の中で実際にデータのセーブとワークシートへの表示を行うサブルーチンです。セーブは".dat"形式で行います。[SaveRaceInfoData] '***************** データ種別ごとのセーブ(共通)(mMod2) *************** '**** ファイルにデータを保存する("RACE"と"RCOV"に振り分ける） '[第５回] Private Sub SaveRaceInfoData(ByVal filename As String, ByVal p As Long, ByVal dataspec As String) Dim NENGAPPI As String Dim ID As String, i As Long Dim FN As Integer Dim A$ Dim q As Long NENGAPPI = Mid(filename, 7, 6) ID = Left$(filename, 2) '----- NENGAPPI フォルダを作成し、セーブ ----- Select Case dataspec Case "RACE" If Dir(COPY_DIR & "\" & NENGAPPI & "\.dat") = "" Then MkDir COPY_DIR & "\" & NENGAPPI End If CopyFile$ = COPY_DIR & "\" & NENGAPPI & "\" & _ Left(filename, Len(filename) - 4) & ".dat" Case "RCOV" 'RCOVデータはNENGAPPI + "R" のフォルダにセーブする。 If Dir(COPY_DIR & "\" & NENGAPPI & "R\.dat") = "" Then MkDir COPY_DIR & "\" & NENGAPPI & "R" End If CopyFile$ = COPY_DIR & "\" & NENGAPPI & "R\" & _ Left(filename, Len(filename) - 4) & ".dat" End Select '* 情報種別設定 GoSub SetDataString FN = FreeFile 'ファイル番号 Open CopyFile$ For Output As #FN ReDim Preserve DmyData(1 To p) As String 'ダミー配列を最適化 '* セーブ情報をワークシートに表示 For i = 1 To p Print #FN, DmyData(i) 'データ種別で表示位置を変える If dataspec = "RCOV" Then Worksheets("Top").Range("C5").Value = "[" & NENGAPPI & "] " & A$ & " データセーブ中= " & i & "/" & p ElseIf dataspec = "RACE" Then Worksheets("Top").Range("I5").Value = "[" & NENGAPPI & "] " & A$ & " データセーブ中= " & i & "/" & p End If DoEvents Next i Close #FN '* ワークシートにファイル情報を表示 GoSub DisplayFileInfo Exit Sub '---------------------------------------------------------------- ' サブルーチン '---------------------------------------------------------------- ' 情報種別設定 SetDataString: Select Case dataspec Case "RACE" Select Case ID Case "RA" A$ = "開催日：出馬表" Case "SE" A$ = "開催日：競走馬" Case "HR" A$ = "開催日：払戻" Case "O1" A$ = "開催日：単複枠連オッズ" Case "O2" A$ = "開催日：馬連オッズ" Case "O3" A$ = "開催日：ワイドオッズ" Case "O4" A$ = "開催日：馬単オッズ" Case "O5" A$ = "開催日：三連複オッズ" Case "O6" A$ = "開催日：三連単オッズ" Case "H1" A$ = "開催日: 票数1" Case "H6" A$ = "開催日：票数6" End Select Case "RCOV" Select Case ID Case "RA" A$ = "開催マスタ：過去レース" Case "SE" A$ = "開催マスタ：過去競走馬" Case "BN" A$ = "開催マスタ：馬主" Case "BR" A$ = "開催マスタ：生産者" Case "CH" A$ = "開催マスタ：調教師" Case "KS" A$ = "開催マスタ：騎手" Case "RC" A$ = "開催マスタ：レコード" Case "UM" A$ = "開催マスタ：登録馬" End Select End Select Return '* --------------------------------------------------------- '* ワークシートにファイル情報を表示 DisplayFileInfo: With Worksheets("Top") 'データ種別により表示列を変える If dataspec = "RCOV" Then q = .Range("C9").Value '初期値 '* ファイル情報 .Range("B" & 11 + q).Value = ID & "_" & dataspec '* ファイル名 .Range("C" & 11 + q).Value = Left(filename, Len(filename) - 4) & ".dat" '* 開催年月日 .Range("D" & 11 + q).Value = "'" & NENGAPPI '* データ区分 .Range("E" & 11 + q).Value = Mid(DmyData(1), 3, 1) '* データ数 .Range("F" & 11 + q).Value = p .Range("C9").Value = q + 1 'カウントアップした値を表示 ElseIf dataspec = "RACE" Then q = .Range("I9").Value '初期値 '* ファイル情報 .Range("H" & 11 + q).Value = ID & "_" & dataspec '* ファイル名 .Range("I" & 11 + q).Value = Left(filename, Len(filename) - 4) & ".dat" '* 開催年月日 .Range("J" & 11 + q).Value = "'" & NENGAPPI '* データ区分 .Range("K" & 11 + q).Value = Mid(DmyData(1), 3, 1) '* データ数 .Range("L" & 11 + q).Value = p .Range("I9").Value = q + 1 'カウントアップした値を表示 End If End With Return End Sub プログラムのポイントデータ種別ID（RACEかRCOV）によりデータを保存するフォルダ名を振り分ける点です。長いプログラムが続きますが、レコード種別により振り分けるためで、似たコードの繰り返しが多いので、１つを理解すればあとは簡単と思います。以上が終わったら、いったん上書き保存してください。
２．＜レース補てん情報取得[RCOV]＞ボタンをクリックしてプログラムを実行してください。 ”C5”セルにダウンロード状況を表示しながら、下の方にファイル名を表示していくのが分かると思います。各マスタデータには過去の通算成績などの情報があります。馬毎レース情報(SE)には土日に登録された競走馬マスタ(UM)の全馬の過去の全戦績が含まれます。レース詳細(RA)はSEに含まれる全馬の出走した過去の全レースの内容が含まれます。データ量としてはSE、RAの順に多く、ダウンロード後の読み込み処理にも時間がかかります。下図のようにセル”Ｃ９”にファイル数が表示され、１１行目以下に８つのファイル名が表示されれば正常です。 "C5"セルに「レース補てん情報取得完了」と表示されれば終了です。フォルダ(\CopyData2)の中を見るとダウンロード前にはなかった[YYMMDDR]（後ろに"R"がつく）形式のフォルダができており、さらにその中にワークシートに表示された".dat形式"のファイルが保存されているのが見えると思います。（上図と下図はデータ日付が異なるので、ファイル名やデータサイズは一致しません）続けて再度、ボタンを押すと今度は「該当データなし」と”C5”セルに出る場合がありますが、それでも正常です。つまりFromtimeに合ったデータをダウンロードしたので、それ以上新しいデータがないという意味です。ファイル名は表示されますが、これはセーブ済みのものを読み込むからです。次週にFromtimeが更新されればまた新しいデータが取得できます。注意：ファイル名欄をダブルクリックしてもまだ他のワークシートへ表示がされません。まだそのプログラムを作っていませんので。。。これは後で作ります。とりあえずはここでJVDataをダウンロードし、データを保存するプログラムを作ったと理解してください。以上で、レース補てん情報取得のプログラムは完成です。
次回は、”レース情報(RACE)”を取得するプログラムを作ります。方法は似ています。

ページトップへ