JV-Link 質問箱 |
タイトル | : Re^2: DIFFをDIFNに変更したがUMのフォーマット画が不明 |
投稿日 | : 2023/08/15(Tue) 17:39 |
投稿者 | : がる |
|
標準モジュールのこちらの変更ということですね。
'****** 11.競走馬マスタ *********************************** *****
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 |
|
|
- 関連一覧ツリー(● をクリックするとツリー全体を一括表示します)
|
|
|
|
|
|
返信フォーム
(この記事に返信する場合は下記フォームから投稿して下さい) |
|
|
|
copyright ©2007 JRA SYSTEM SERVICE CO.,LTD. All Rights Reserved.
|
|
|