JV-Dataの使い方あれこれ |
タイトル | : RCOVデーター種類 |
記事No | : 5021 |
投稿日 | : 2020/01/30(Thu) 11:01 |
投稿者 | : MIRUKU |
|
お世話になります 資料が見つからず 教えて下さい
下記のようにDLさせていただいてますが レース距離 走破タイム 2項目を足したいのですが 呼び出しコード教えていただけないでしょうか
Private Sub CommandButton6_Click() Dim ReturnCode As Long 'JVLinkからの戻り値 Dim Data_Spec As String 'JVOpen データ種別 Dim From_Time As String 'JVOpen From時刻 Dim Option_Flag As Integer 'JVOpen オプション Dim ReadCount As Long 'データファイルの総読み込み数 Dim DownloadCount As Long 'データファイルのダウンロード数 Dim LastTime As String 'データファイルの最終時刻 Dim buff As String Dim FileName As String Dim sht1 As String
ListBox1.Clear
Sheets("SE_RCOV").Range("SERCOV").Value = Clear
'Dim DownloadDialog As Form2 'ダウンロードダイアログ '************ ' JVInit処理 '************ ReturnCode = JVLink1.JVInit("UNKNOWN")
If ReturnCode <> 0 Then MsgBox ("JVInitエラー。RC=" & CStr(ReturnCode)) End If '******************** ' JVOpen処理 '********************
Data_Spec = "RCOV" 'データ種別に「レース情報」を設定
From_Time = "20101021000000" 'Fromタイムに
Option_Flag = 2 'オプションに「今週データ」を設定 ReturnCode = JVLink1.JVOpen(Data_Spec, From_Time, Option_Flag, ReadCoun t, DownloadCount, LastTime)
If (ReturnCode < 0) Then MsgBox ("JVOpenエラー。RC=" & CStr(ReturnCode)) Exit Sub End If ' 該当データ無し If (ReadCount = 0) Then MsgBox ("該当するデータがありません。") Exit Sub End If
Dim mRaData As JV_SE_RACE_UMA status = 0 DLflg = True CommandButton3.Caption = "キャンセル" Do While status <> dlcount 'キャンセルボタンチェック If Cancelflg = True Then Exit Do status = JVLink1.JVStatus Label1.Caption = dlcount & "ファイル中 " & st atus & " ファイルダウンロード完了" DoEvents Sleep (120) Loop
Dim i As Integer i = 0 'キャンセル用フラグ初期化 Cancelflg = False ReturnCode = 1 While ReturnCode <> 0 'キャンセルボタンチェック If Cancelflg = True Then GoTo CommandButton1_END 'JVOpenで指定したデータを1レコードずつ取り込み ReturnCode = JVLink1.JVRead(buff, 40000, FileName) ' JVReadエラー処理 If (ReturnCode < -1) Then MsgBox ("JVReadエラー。RC=" & ReturnCode) GoTo CommandButton1_END End If If Left(buff, 2) = "SE" Then 'JVData構造体にRAのレコードをセットする Call SetData_SE(buff, mRaData) 'Sheet1の表示箇所に表示 sht1 = "SE_RCOV" Sheets(sht1).Cells(5 + i, 2) = mRaData.ID.Year Sheets(sht1).Cells(5 + i, 3) = mRaData.ID.MonthDay Sheets(sht1).Cells(5 + i, 4) = mRaData.ID.JyoCD Sheets(sht1).Cells(5 + i, 5) = mRaData.ID.Kaiji Sheets(sht1).Cells(5 + i, 6) = mRaData.ID.Nichiji Sheets(sht1).Cells(5 + i, 7) = mRaData.ID.RaceNum Sheets(sht1).Cells(5 + i, 8) = mRaData.Wakuban Sheets(sht1).Cells(5 + i, 9) = mRaData.Umaban Sheets(sht1).Cells(5 + i, 10) = mRaData.KettoNum Sheets(sht1).Cells(5 + i, 11) = mRaData.Bamei Sheets(sht1).Cells(5 + i, 12) = mRaData.UmaKigoCD Sheets(sht1).Cells(5 + i, 13) = mRaData.SexCD Sheets(sht1).Cells(5 + i, 14) = mRaData.HinsyuCD Sheets(sht1).Cells(5 + i, 15) = mRaData.KeiroCD Sheets(sht1).Cells(5 + i, 16) = mRaData.Barei Sheets(sht1).Cells(5 + i, 17) = mRaData.TozaiCD Sheets(sht1).Cells(5 + i, 18) = mRaData.ChokyosiCode Sheets(sht1).Cells(5 + i, 19) = mRaData.ChokyosiRyakusyo Sheets(sht1).Cells(5 + i, 20) = mRaData.BanusiCode Sheets(sht1).Cells(5 + i, 21) = mRaData.BanusiName Sheets(sht1).Cells(5 + i, 22) = mRaData.Fukusyoku Sheets(sht1).Cells(5 + i, 23) = mRaData.Futan ' Sheets(sht1).Cells(5 + i, 24) = mRaData.FutanBefore Sheets(sht1).Cells(5 + i, 24) = mRaData.Blinker ' Sheets(sht1).Cells(5 + i, 26) = mRaData.reserved2 Sheets(sht1).Cells(5 + i, 25) = mRaData.KisyuCode Sheets(sht1).Cells(5 + i, 26) = mRaData.KisyuCodeBefore Sheets(sht1).Cells(5 + i, 27) = mRaData.KisyuRyakusyo Sheets(sht1).Cells(5 + i, 28) = mRaData.MinaraiCD Sheets(sht1).Cells(5 + i, 29) = mRaData.BaTaijyu Sheets(sht1).Cells(5 + i, 30) = mRaData.ZogenFugo Sheets(sht1).Cells(5 + i, 31) = mRaData.ZogenSa Sheets(sht1).Cells(5 + i, 32) = mRaData.NyusenJyuni Sheets(sht1).Cells(5 + i, 33) = mRaData.KakuteiJyuni Sheets(sht1).Cells(5 + i, 34) = mRaData.DMJyuni Sheets(sht1).Cells(5 + i, 35) = mRaData.KyakusituKubun ' Sheets(sht1).Cells(5 + i, 35) = mRaData.DochakuKubun
i = i + 1 Else JVLink1.JVSkip End If Label1.Caption = buff ListBox1.AddItem Left(FileName, 30) DoEvents Wend
CommandButton1_END:
'一通り読み込みが終わった後はJVCloseを行う JVLink1.JVClose If Cancelflg = True Then MsgBox "キャンセルされました。" Else MsgBox "読み込みが終了しました。" End If CommandButton3.Caption = "Exit" DLflg = False
CommandButton1.Enabled = True ' Sheets(sht1).Activate
End Sub |
|
タイトル | : Re: RCOVデーター種類 |
記事No | : 5023 |
投稿日 | : 2020/02/05(Wed) 09:46 |
投稿者 | : JRA-VANソフトサポート |
|
JRA-VANソフトサポート 石倉です。 DataLab.サービスをご利用頂きまして誠にありがとうございます。
> 下記のようにDLさせていただいてますが > レース距離 走破タイム 2項目を足したいのですが > 呼び出しコード教えていただけないでしょうか
走破タイムは「馬毎レース情報」から取得可能でございます。 ご提示いただいたソースでいいますと JV_SE_RACE_UMA型の変数mRaDataからmRaData.Timeとして 取得可能と存じます。
レース距離は「レース詳細」に含まれます。 ご提示いただいたソースにはありませんが、 どこかで「レース詳細」を取得し、JV_RA_RACE型の変数に 設定していないでしょうか。 メンバーKyoriがレース距離でございます。
取得可能なデータの詳細につきましては 下記仕様書にて提供しておりますので ご参照ください。
https://jra-van.jp/dlb/sdv/sdk.html JV-Data 仕様書
以上、宜しくお願い致します。 |
|
|
|
copyright ©2007 JRA SYSTEM SERVICE CO.,LTD. All Rights Reserved.
|
|
|