| 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で指定したデータを１レコードずつ取り込み
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.
|
|
|
