JRA公式競馬データ配信サービス JRA-VAN Data Lab.

JRA-VAN DataLab.

競馬ソフト開発コーナー

JV-Link 質問箱

記事リスト  |  新着記事  |  ワード検索  |  過去ログ
タイトルレース当日発送時刻を求めたい
投稿日: 2018/02/06(Tue) 00:04
投稿者竜馬
レース当日の発送時刻を求めるには、速報レース情報(OB12レース詳報(RA))だと思うのですが、以下のコードで行ってもエラーにはなりませんが、bufがnothingとなり、当然ファイルへの書き込みもできません。どこに問題があるのでしょうか。(JVReadは1行読みなので1行だけは読むと思うのですが)

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs)Handles MyBase.Load
'***************
'JVLink初期化
Dim ReturnCode As Integer = AxJVLink1.JVIni("UNKNOWN")
'エラー判定
If ReturnCode <> 0 Then ''エラー
txtOut.AppendText("JVInitエラー:" & ReturnCod
e & ControlChars.CrLf)
End If
'**************************************

Dim Ret As Integer
Ret = AxJVLink1.JVRTOpen("0B12", "2018020305")
Dim buf As String = New String(vbNullChar, 200000)
Dim filename As String = ""
Dim fsize As Integer
'書込み用ファイルfName
Dim fName As String
fsize = AxJVLink1.JVRead(buf, 200000, filename)
fName = "C:\Users\ik\Documents\TEST練習\ztest1" &
"開催情報.txt"
Using sw As New System.IO.StreamWriter(fName, True, System.Text
.Encoding.Default)
sw.Write(buf)
End Using

Call AxJVLink1.JVClose()

End Sub
- 関連一覧ツリー(● をクリックするとツリー全体を一括表示します)
返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ
Eメール
タイトル
メッセージ   文字モード 図表モード
URL
パスワード (英数字で8文字以内)
  プレビュー
- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード
ウィンドウを閉じる