番号	フォーマット名	データ構造体名	データセット関数名	備考
1	特別登録馬	JV_TK_TOKUUMA	SetData_TK
2	レース詳細	JV_RA_RACE	SetData_RA
3	馬毎レース情報	JV_SE_RACE_UMA	SetData_SE
4	払戻	JV_HR_PAY	SetData_HR
5	票数1	JV_H1_HYOSU_ZENKAKE	SetData_H1	三連単以外
6	票数6	JV_H6_HYOSU_SANRENTAN	SetData_H6	三連単のみ
7	オッズ1	JV_O1_ODDS_TANFUKUWAKU	SetData_O1	単複枠連オッズ
8	オッズ2	JV_O2_ODDS_UMAREN	SetData_O2	馬連オッズ
9	オッズ3	JV_O3_ODDS_WIDE	SetData_O3	ワイドオッズ
10	オッズ4	JV_O4_ODDS_UMATAN	SetData_O4	馬単オッズ
11	オッズ5	JV_O5_ODDS_SANREN	SetData_O5	三連複オッズ
12	オッズ6	JV_O6_ODDS_SANRENTAN	SetData_O6	三連単オッズ
13	競走馬マスタ	JV_UM_UMA	SetData_UM
14	騎手マスタ	JV_KS_KISYU	SetData_KS
15	調教師マスタ	JV_CH_CHOKYOSI	SetData_CH
16	生産者マスタ	JV_BR_BREEDER	SetData_BR
17	馬主マスタ	JV_BN_BANUSI	SetData_BN
18	繁殖馬マスタ	JV_HN_HANSYOKU	SetData_HN
19	産駒マスタ	JV_SK_SANKU	SetData_SK
20	レコードマスタ	JV_RC_RECORD	SetData_RC
21	坂路調教	JV_HC_HANRO	SetData_HC
22	馬体重	JV_WH_BATAIJYU	SetData_WH
23	天候馬場状態	JV_WE_WEATHER	SetData_WE
24	出走取消・競走除外	JV_AV_INFO	SetData_AV
25	騎手変更	JV_JC_INFO	SetData_JC
26	発走時刻変更	JV_TC_INFO	SetData_TC
27	コース変更	JV_CC_INFO	SetData_CC
28	データマイニング予想	JV_DM_INFO	SetData_DM
29	開催スケジュール	JV_YS_SCHEDULE	SetData_YS

サンプルプログラムの標準モジュール（JVLink_Stluct)には他にも共通のデータ構造体やバイト長データを切り出す重要な関数などが定義されています。

＊＊ 馬主マスタ”BN”を例にしたダウンロード ＊＊
（１）JVLinkでダウンロードしたデータを表示する場合（サンプルソフトと同じ）
　　�@追加する定義
    Dim mBnData As JV_BN_BANUSI  ‘(サンプルソフトの馬主マスタの定義参照)
    Dim j As Integer, k As Integer

　�A参考コード
    Dim i As Integer
    i = 0
    retVal = 1
    While retVal <> 0
        'JVOpenで指定したデータを１レコードずつ取り込み
        retVal = JVLink1.JVRead(buff, 40000, filename)

        If Left(buff, 2) = "BN" Then         ‘馬主マスタの場合
            'JVData構造体にBNのレコードをセットする
            Call SetData_BN(buff, mBnData)        ‘←データセット関数利用

            'Sheet1の表示箇所に表示
            Sheet1.Cells(4 + i, 2) = mBnData.BanusiCode      ‘馬主コード
            Sheet1.Cells(4 + i, 3) = mBnData.BanusiName     ‘馬主名(法人格無)
            Sheet1.Cells(4 + i, 4) = mBnData.Fukushoku      ‘服色標示

            ‘繰り返し表示(本年・累計賞金、着回数データ)
            For j= 0 To 1
               Sheet1.Cells(4 + i, 5 + 9 * j) = mBnData.HonRuikei(j).SetYear
               Sheet1.Cells(4 + i, 6 + 9 * j) = mBnData.HonRuikei(j).HonSyokinTotal
               Sheet1.Cells(4 + i, 7 + 9 * j) = mBnData.HonRuikei(j).Fukasyokin

               For k= 0 To 5
                  Sheet1.Cells(4+i,8+9*j + k) = mBnData.HonRuikei(j).Chakukaisu(k)
               Next k

            Next j

            i = i + 1

            　　　‘(2)のいったん配列に読み込む場合はここに追加（後述）

        　　　End If

        　　　Label1.Caption = buff
        　　　DoEvents
    　　　Wend

    　　　JVLink.JVClose

　上記でSheet1にデータセット関数で読み込んだデータが表示されると思います。馬主は法人格のものは表示していないので歯抜けになるかも、また繰り返し表示の部分はセル位置がずれてるかもしれませんので、適当にj,k列位置を計算してください。

（２）JVLinkでダウンロードしたデータをいったん配列に読み込む場合

　以下を追加
�@ 標準モジュール内（NENGAPPIの定義と同じモジュール）
　　Public BnData( ) As String             ‘馬主マスタ配列

�A （１）と同じプロシージャ内
        Dim FileData(1) As String             ‘ファイル名保存
        ReDim BnData(1 To 1296) As String   ‘仮馬主マスタ配列
�B 上記の（後述）の部分に下記コードを挿入
　　BnData(i)= Left(buff, Len(buff) -2 )    ‘バッファデータを配列に読み込む
�C上記のJVLink.JVClose の後に追加（BnData配列のセーブとロード）
　‘セーブ
    '----- ファイルへの代入 -----
    If retVal = -1 Then             'データの区切り           
        If Left(filename, 2) = "BN" Then        '馬主マスタデータ
            FileData(1) = Left(filename, Len(filename) - 4) & ".dat"
        End If
    End If
　　
　　 CopyFile$ = COPY_DIR & NENGAPPI & "\" & FileData(1)         '馬主マスタ
    FileNo = FreeFile
    Open CopyFile$ For Output As #FileNo
    For q = 1 To i
        Print #FileNo, BnData(q)
    Next q
    Close #FileNo

　‘ロード
    CopyFile$ = COPY_DIR & NENGAPPI & "\BN*.dat"           '馬主マスター
    If Dir(CopyFile$) <> "" Then
        filename = Dir(CopyFile$)
        FileData(1) = filename
        CopyFile$ = COPY_DIR & NENGAPPI & "\" & filename
        FileNo = FreeFile
        Open CopyFile$ For Input As #FileNo
　　　'データ数(k)を求める
　　　　k = FileLen(CopyFile$) / 477　　　　　　'477は馬主データのサイズ（バイト）
        ReDim BnData(1 to k) As String
        For i = 1 To k
            Line Input #FileNo, BnData(i)
        Next i
        Close #FileNo
    End If

ReDim BnData(1 To 1296)のデータサイズ1296は「土日分」で最大1296頭の馬主がすべて違う場合の想定のため。実際には600くらいで十分？　1296というのは仮のサイズで、最初は馬主数が分からないので、最大に設定しておき、読みながらカウントI=I+1していけば最後のIが馬主数になります。セーブするときにI分だけセーブします。ロードするときはファイル長を477バイトで割ったサイズｋが馬主数なので、最大ｋ分のデータを読み込みます。

以上でコードは終わりです。うまくいった場合にはディレクトリ内にBNxxxx.datファイルができているはずです。ロード部分はセーブしたものを読み出すためのサンプルなので、なくても構いませんが、これを使ってデータセット関数でCall SetData_BN(buff, mBnData)のbuff部分をBnData(i)に置き換えれば、iを変化して配列の中身を次々にmBnDataにセットすることができます。BnData(i)の形にしてしまえば別にSetData_BNを使う必要もないのですが、半角・全角の処理をやってくれるのは楽かなと思います。

以上は”BN”のデータで説明しましたが、他のデータでも基本的には同じです。FileData(1)というのは他のデータも同様にセーブするときにこのサイズを増やせば類似の方法でセーブできという便宜上のものなので、”BN”しかセーブしない場合は、A$とかでも構いません。