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

JV-Link 質問箱

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

標準モジュールのこちらの変更ということですね。

'****** １１．競走馬マスタ ***********************************
*****

Public Sub SetData_UM(ByVal lBuf As String, ByRef mBuf As JV_UM_UMA
)
Dim bytBuf() As Byte '' Byte列
で処理するためのバッファ

Dim i As Integer '' ループ
カウンタ
Dim j As Integer '' ループ
カウンタ
Dim k As Integer '' ループ
カウンタ
Dim p As Long '' 切り分
け開始位置

bytBuf = StrConv(lBuf, vbFromUnicode)

p = 1
With mBuf
With .head
.RecordSpec = IncMid(bytBuf, p, 2) '' レコー
ド種別
.DataKubun = IncMid(bytBuf, p, 1) '' データ
区分
With .MakeDate
.Year = IncMid(bytBuf, p, 4) '' 年
.Month = IncMid(bytBuf, p, 2) '' 月
.Day = IncMid(bytBuf, p, 2) '' 日
End With ' MakeDate
End With ' head
.KettoNum = IncMid(bytBuf, p, 10) '' 血統登
録番号
.DelKubun = IncMid(bytBuf, p, 1) '' 競走馬
抹消区分
With .RegDate
.Year = IncMid(bytBuf, p, 4) '' 年
.Month = IncMid(bytBuf, p, 2) '' 月
.Day = IncMid(bytBuf, p, 2) '' 日
End With ' RegDate
With .DelDate
.Year = IncMid(bytBuf, p, 4) '' 年
.Month = IncMid(bytBuf, p, 2) '' 月
.Day = IncMid(bytBuf, p, 2) '' 日
End With ' DelDate
With .BirthDate
.Year = IncMid(bytBuf, p, 4) '' 年
.Month = IncMid(bytBuf, p, 2) '' 月
.Day = IncMid(bytBuf, p, 2) '' 日
End With ' BirthDate
.Bamei = IncMid(bytBuf, p, 36) '' 馬名
.BameiKana = IncMid(bytBuf, p, 36) '' 馬名半
角カナ
.BameiEng = IncMid(bytBuf, p, 80) '' 馬名欧
字
.UmaKigoCD = IncMid(bytBuf, p, 2) '' 馬記号
コード
.SexCD = IncMid(bytBuf, p, 1) '' 性別コ
ード
.HinsyuCD = IncMid(bytBuf, p, 1) '' 品種コ
ード
.KeiroCD = IncMid(bytBuf, p, 2) '' 毛色コ
ード
For i = 0 To 13
With .Ketto3Info(i)
.HansyokuNum = IncMid(bytBuf, p, 8) '' 繁殖登
録番号
.Bamei = IncMid(bytBuf, p, 36) '' 馬名
End With ' Ketto3Info
Next i
.TozaiCD = IncMid(bytBuf, p, 1) '' 東西所
属コード
.ChokyosiCode = IncMid(bytBuf, p, 5) '' 調教師
コード
.ChokyosiRyakusyo = IncMid(bytBuf, p, 8) '' 調教師
名略称
.Syotai = IncMid(bytBuf, p, 20) '' 招待地
域名
.BreederCode = IncMid(bytBuf, p, 6) '' 生産者
コード
.BreederName = IncMid(bytBuf, p, 70) '' 生産者
名
.SanchiName = IncMid(bytBuf, p, 20) '' 産地名
.BanusiCode = IncMid(bytBuf, p, 6) '' 馬主コ
ード
.BanusiName = IncMid(bytBuf, p, 64) '' 馬主名
.RuikeiHonsyoHeiti = IncMid(bytBuf, p, 9) '' 平地本
賞金累計
.RuikeiHonsyoSyogai = IncMid(bytBuf, p, 9) '' 障害本
賞金累計
.RuikeiFukaHeichi = IncMid(bytBuf, p, 9) '' 平地付
加賞金累計
.RuikeiFukaSyogai = IncMid(bytBuf, p, 9) '' 障害付
加賞金累計
.RuikeiSyutokuHeichi = IncMid(bytBuf, p, 9) '' 平地収
得賞金累計
.RuikeiSyutokuSyogai = IncMid(bytBuf, p, 9) '' 障害収
得賞金累計
With .ChakuSogo
For j = 0 To 5
.Chakukaisu(j) = IncMid(bytBuf, p, 3)
Next j
End With ' ChakuSogo
With .ChakuChuo
For j = 0 To 5
.Chakukaisu(j) = IncMid(bytBuf, p, 3)
Next j
End With ' ChakuChuo
For i = 0 To 6
With .ChakuKaisuBa(i)
For j = 0 To 5
.Chakukaisu(j) = IncMid(bytBuf, p, 3)
Next j
End With ' ChakuKaisuBa
Next i
For i = 0 To 11
With .ChakuKaisuJyotai(i)
For j = 0 To 5
.Chakukaisu(j) = IncMid(bytBuf, p, 3)
Next j
End With ' ChakuKaisuJyotai
Next i
For i = 0 To 5
With .ChakuKaisuKyori(i)
For j = 0 To 5
.Chakukaisu(j) = IncMid(bytBuf, p, 3)
Next j
End With ' ChakuKaisuKyoriu
Next i
For i = 0 To 3
.Kyakusitu(i) = IncMid(bytBuf, p, 3) '' 脚質傾
向
Next i
.RaceCount = IncMid(bytBuf, p, 3) '' 登録レ
ース数
.crlf = IncMid(bytBuf, p, 2) '' レコー
ド区切り
End With

'バッファ領域解放
Erase bytBuf

End Sub

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

● - 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

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

おなまえ
Ｅメール
タイトル
メッセージ文字モード図表モード > 標準モジュールのこちらの変更ということですね。 > > '**** １１．競走馬マスタ ******************************* > *** > > Public Sub SetData_UM(ByVal lBuf As String, ByRef mBuf As JV_UM_UMA > ) > Dim bytBuf() As Byte '' Byte列 > で処理するためのバッファ > > Dim i As Integer '' ループ > カウンタ > Dim j As Integer '' ループ > カウンタ > Dim k As Integer '' ループ > カウンタ > Dim p As Long '' 切り分 > け開始位置 > > bytBuf = StrConv(lBuf, vbFromUnicode) > > p = 1 > With mBuf > With .head > .RecordSpec = IncMid(bytBuf, p, 2) '' レコー > ド種別 > .DataKubun = IncMid(bytBuf, p, 1) '' データ > 区分 > With .MakeDate > .Year = IncMid(bytBuf, p, 4) '' 年 > .Month = IncMid(bytBuf, p, 2) '' 月 > .Day = IncMid(bytBuf, p, 2) '' 日 > End With ' MakeDate > End With ' head > .KettoNum = IncMid(bytBuf, p, 10) '' 血統登 > 録番号 > .DelKubun = IncMid(bytBuf, p, 1) '' 競走馬 > 抹消区分 > With .RegDate > .Year = IncMid(bytBuf, p, 4) '' 年 > .Month = IncMid(bytBuf, p, 2) '' 月 > .Day = IncMid(bytBuf, p, 2) '' 日 > End With ' RegDate > With .DelDate > .Year = IncMid(bytBuf, p, 4) '' 年 > .Month = IncMid(bytBuf, p, 2) '' 月 > .Day = IncMid(bytBuf, p, 2) '' 日 > End With ' DelDate > With .BirthDate > .Year = IncMid(bytBuf, p, 4) '' 年 > .Month = IncMid(bytBuf, p, 2) '' 月 > .Day = IncMid(bytBuf, p, 2) '' 日 > End With ' BirthDate > .Bamei = IncMid(bytBuf, p, 36) '' 馬名 > .BameiKana = IncMid(bytBuf, p, 36) '' 馬名半 > 角カナ > .BameiEng = IncMid(bytBuf, p, 80) '' 馬名欧 > 字 > .UmaKigoCD = IncMid(bytBuf, p, 2) '' 馬記号 > コード > .SexCD = IncMid(bytBuf, p, 1) '' 性別コ > ード > .HinsyuCD = IncMid(bytBuf, p, 1) '' 品種コ > ード > .KeiroCD = IncMid(bytBuf, p, 2) '' 毛色コ > ード > For i = 0 To 13 > With .Ketto3Info(i) > .HansyokuNum = IncMid(bytBuf, p, 8) '' 繁殖登 > 録番号 > .Bamei = IncMid(bytBuf, p, 36) '' 馬名 > End With ' Ketto3Info > Next i > .TozaiCD = IncMid(bytBuf, p, 1) '' 東西所 > 属コード > .ChokyosiCode = IncMid(bytBuf, p, 5) '' 調教師 > コード > .ChokyosiRyakusyo = IncMid(bytBuf, p, 8) '' 調教師 > 名略称 > .Syotai = IncMid(bytBuf, p, 20) '' 招待地 > 域名 > .BreederCode = IncMid(bytBuf, p, 6) '' 生産者 > コード > .BreederName = IncMid(bytBuf, p, 70) '' 生産者 > 名 > .SanchiName = IncMid(bytBuf, p, 20) '' 産地名 > .BanusiCode = IncMid(bytBuf, p, 6) '' 馬主コ > ード > .BanusiName = IncMid(bytBuf, p, 64) '' 馬主名 > .RuikeiHonsyoHeiti = IncMid(bytBuf, p, 9) '' 平地本 > 賞金累計 > .RuikeiHonsyoSyogai = IncMid(bytBuf, p, 9) '' 障害本 > 賞金累計 > .RuikeiFukaHeichi = IncMid(bytBuf, p, 9) '' 平地付 > 加賞金累計 > .RuikeiFukaSyogai = IncMid(bytBuf, p, 9) '' 障害付 > 加賞金累計 > .RuikeiSyutokuHeichi = IncMid(bytBuf, p, 9) '' 平地収 > 得賞金累計 > .RuikeiSyutokuSyogai = IncMid(bytBuf, p, 9) '' 障害収 > 得賞金累計 > With .ChakuSogo > For j = 0 To 5 > .Chakukaisu(j) = IncMid(bytBuf, p, 3) > Next j > End With ' ChakuSogo > With .ChakuChuo > For j = 0 To 5 > .Chakukaisu(j) = IncMid(bytBuf, p, 3) > Next j > End With ' ChakuChuo > For i = 0 To 6 > With .ChakuKaisuBa(i) > For j = 0 To 5 > .Chakukaisu(j) = IncMid(bytBuf, p, 3) > Next j > End With ' ChakuKaisuBa > Next i > For i = 0 To 11 > With .ChakuKaisuJyotai(i) > For j = 0 To 5 > .Chakukaisu(j) = IncMid(bytBuf, p, 3) > Next j > End With ' ChakuKaisuJyotai > Next i > For i = 0 To 5 > With .ChakuKaisuKyori(i) > For j = 0 To 5 > .Chakukaisu(j) = IncMid(bytBuf, p, 3) > Next j > End With ' ChakuKaisuKyoriu > Next i > For i = 0 To 3 > .Kyakusitu(i) = IncMid(bytBuf, p, 3) '' 脚質傾 > 向 > Next i > .RaceCount = IncMid(bytBuf, p, 3) '' 登録レ > ース数 > .crlf = IncMid(bytBuf, p, 2) '' レコー > ド区切り > End With > > 'バッファ領域解放 > Erase bytBuf > > End Sub
ＵＲＬ
パスワード	(英数字で8文字以内)
	プレビュー

ウィンドウを閉じる