JRA-VAN DataLab.｜競馬ソフト開発コーナー

JV-Link 質問箱

タイトル	： DIFFをDIFNに変更したがUMのフォーマット画が不明
投稿日	： 2023/08/15(Tue) 00:55
投稿者	：がる

4.9.0にアップデートし、DIFFが8/7のデータまでしか提供していないため、新し
いDIFNに変更しましたが、そこで落ちてくるUMのフォーマットに変更があり、
これまでサンプル提供されていたものをもとにしたスクリプト
retval = JVLink1.JVRead(buff, 400000, filename)
If Left(buff, 2) = "UM" Then
Call SetData_UM(buff, mUmData)

On Error GoTo Err_Exist
rs.AddNew
rs.Fields("KettoNo") = mUmData.KettoNum
rs.Fields("DelKubun") = mUmData.DelKubun
rs.Fields("Bamei") = mUmData.Bamei
rs.Fields("SEXCD") = mUmData.SexCD
rs.Fields("KeiroCD") = mUmData.KeiroCD
rs.Fields("Sire") = mUmData.Ketto3Info(0).Bamei
rs.Fields("Dam") = mUmData.Ketto3Info(1).Bamei
rs.Fields("BMS") = mUmData.Ketto3Info(4).Bamei
rs.Fields("EW") = mUmData.TozaiCD
rs.Fields("Stable") = mUmData.ChokyosiRyakusyo
rs.Fields("chaku_1") = mUmData.ChakuSogo.Chakukai
su(0)
rs.Fields("chaku_2") = mUmData.ChakuSogo.Chakukai
su(1)
rs.Fields("chaku_3") = mUmData.ChakuSogo.Chakukai
su(2)
rs.Fields("chaku_4") = mUmData.ChakuSogo.Chakukai
su(3)
rs.Fields("chaku_5") = mUmData.ChakuSogo.Chakukai
su(4)
rs.Fields("chaku_out") = mUmData.ChakuSogo.Chakuk
aisu(5)
rs.Fields("Prize") = mUmData.RuikeiHonsyoHeiti
rs.Fields("MKDateY") = mUmData.head.MakeDate.Year
rs.Fields("MKDateM") = mUmData.head.MakeDate.Mont
h
rs.Fields("MKDateD") = mUmData.head.MakeDate.Day
rs.Update
Err_Exist:
では、新しいUMのデータが思ったとおりに落ちてきません。
13.競走馬マスタの項目を見ても、たとえば父馬の名前を従前では、mUmData.Ke
tto3Info(0).Bameiでは引っ張ってこれますが、新UMでは「72ステイゴールド」
のようになってしまいます。従前どおりデータを引っ張るためにデータフィール
ド名はどこに記述されていますでしょうか？
SDKに付属のドキュメントではわかりませんでした。
ご教示いただけませんでしょうか。

- 関連一覧ツリー（● をクリックするとツリー全体を一括表示します)

● - DIFFをDIFNに変更したがUMのフォ.. - がる 08/15-00:55 No.7314 Re: DIFFをDIFNに変更したがUMの.. - JRA-VANソフトサポート 08/15-15:38 No.7315 Re^2: DIFFをDIFNに変更したがUM.. - がる 08/15-16:11 No.7316 Re^3: DIFFをDIFNに変更したがUM.. - がる 08/15-17:34 No.7317 Re^2: DIFFをDIFNに変更したがUM.. - がる 08/15-17:39 No.7318 Re^3: DIFFをDIFNに変更したがUM.. - サメの餌 08/15-18:48 No.7319

返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

おなまえ
Ｅメール
タイトル
メッセージ文字モード図表モード > 4.9.0にアップデートし、DIFFが8/7のデータまでしか提供していないため、新し > いDIFNに変更しましたが、そこで落ちてくるUMのフォーマットに変更があり、 > これまでサンプル提供されていたものをもとにしたスクリプト > retval = JVLink1.JVRead(buff, 400000, filename) > If Left(buff, 2) = "UM" Then > Call SetData_UM(buff, mUmData) > > On Error GoTo Err_Exist > rs.AddNew > rs.Fields("KettoNo") = mUmData.KettoNum > rs.Fields("DelKubun") = mUmData.DelKubun > rs.Fields("Bamei") = mUmData.Bamei > rs.Fields("SEXCD") = mUmData.SexCD > rs.Fields("KeiroCD") = mUmData.KeiroCD > rs.Fields("Sire") = mUmData.Ketto3Info(0).Bamei > rs.Fields("Dam") = mUmData.Ketto3Info(1).Bamei > rs.Fields("BMS") = mUmData.Ketto3Info(4).Bamei > rs.Fields("EW") = mUmData.TozaiCD > rs.Fields("Stable") = mUmData.ChokyosiRyakusyo > rs.Fields("chaku_1") = mUmData.ChakuSogo.Chakukai > su(0) > rs.Fields("chaku_2") = mUmData.ChakuSogo.Chakukai > su(1) > rs.Fields("chaku_3") = mUmData.ChakuSogo.Chakukai > su(2) > rs.Fields("chaku_4") = mUmData.ChakuSogo.Chakukai > su(3) > rs.Fields("chaku_5") = mUmData.ChakuSogo.Chakukai > su(4) > rs.Fields("chaku_out") = mUmData.ChakuSogo.Chakuk > aisu(5) > rs.Fields("Prize") = mUmData.RuikeiHonsyoHeiti > rs.Fields("MKDateY") = mUmData.head.MakeDate.Year > rs.Fields("MKDateM") = mUmData.head.MakeDate.Mont > h > rs.Fields("MKDateD") = mUmData.head.MakeDate.Day > rs.Update > Err_Exist: > では、新しいUMのデータが思ったとおりに落ちてきません。 > 13.競走馬マスタの項目を見ても、たとえば父馬の名前を従前では、mUmData.Ke > tto3Info(0).Bameiでは引っ張ってこれますが、新UMでは「72ステイゴールド」 > のようになってしまいます。従前どおりデータを引っ張るためにデータフィール > ド名はどこに記述されていますでしょうか？ > SDKに付属のドキュメントではわかりませんでした。 > ご教示いただけませんでしょうか。
ＵＲＬ
パスワード	(英数字で8文字以内)
	プレビュー

ウィンドウを閉じる