🐦🔥⑦オッズDataのTXT保存・読込
Sub TxtOz保存()
StTxt = ""
For A = 1 To 3 'その他
StTxt = StTxt & StOz(A)
Next
For A = 4 To 6 'その他 1b
If StOz(A) = "" Then StTxt = StTxt & "0" Else StTxt = StTxt & StOz(A)
Next
For A = 7 To 14 '票数合計 11b
St1 = CStr(StOz(A))
If St1 = " " Then St1 = String(11, "0")
St1 = String(11 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
For U1 = 1 To 18 '単勝 \\\\
St1 = CStr(Bt(U1, 1))
St1 = String(4 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
For U1 = 1 To 18 '複勝
St1 = CStr(Bf(U1, 1))
St1 = String(4 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
For U1 = 1 To 18 '複勝2
St1 = CStr(Bf2(U1, 1))
St1 = String(4 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
For U1 = 1 To 8 '枠連
For U2 = U1 To 8
St1 = CStr(Bw(U1, U2, 1))
St1 = String(5 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
Next
For U1 = 1 To 18 '馬連
For U2 = U1 + 1 To 18
St1 = CStr(Bu(U1, U2, 1))
St1 = String(6 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
Next
For U1 = 1 To 18 'ワイド
For U2 = U1 + 1 To 18
St1 = CStr(By(U1, U2, 1))
St1 = String(5 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
Next
For U1 = 1 To 18 'ワイド2
For U2 = U1 + 1 To 18
St1 = CStr(By2(U1, U2, 1))
St1 = String(5 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
Next
For U1 = 1 To 18 '馬単
For U2 = 1 To 18
If U1 <> U2 Then
St1 = CStr(Be(U1, U2, 1))
St1 = String(6 - Len(St1), "0") & St1
StTxt = StTxt & St1
End If
Next
Next
For U1 = 1 To 18 '３連複
For U2 = U1 + 1 To 18
For U3 = U2 + 1 To 18
St1 = CStr(B3f(U1, U2, U3, 1))
St1 = String(6 - Len(St1), "0") & St1
StTxt = StTxt & St1
Next
Next
Next
For U1 = 1 To 18
For U2 = 1 To 18
For U3 = 1 To 18
If U1 <> U2 And U1 <> U3 And U2 <> U3 Then
St1 = CStr(B3t(U1, U2, U3, 1))
St1 = String(7 - Len(St1), "0") & St1
StTxt = StTxt & St1
End If
Next
Next
Next
'************************************************************************保存
OSドライブ
出馬表開催日
TxtName = MyDay & Mid(JvJo, 1, 2) & Format(CStr(R), "00") '----年月日場Ｒ
TxtName = OsDC & "TxtOz\" & TxtName & ".txt"
Open TxtName For Output As #1
Print #1, StTxt
Close #1
Beep
End Sub
Sub TxtOz読込()
Erase Bt '変数初期化
Erase Bf '変数初期化
Erase Bf2 '変数初期化
Erase Bw '変数初期化
Erase Bu '変数初期化
Erase By '変数初期化
Erase By2 '変数初期化
Erase Be '変数初期化
Erase B3f '変数初期化
Erase B3t '変数初期化
StTxt = ""
'************************************************************************読込
OSドライブ
出馬表開催日
TxtName = MyDay & Mid(JvJo, 1, 2) & Format(CStr(R), "00") '----年月日場Ｒ
TxtName = OsDC & "TxtOz\" & TxtName & ".txt"
If TxtName = "" Then
MsgBox ("TxtOz読込ファイルがありません")
End
End If
Open TxtName For Input As #1
Input #1, StTxt
Close #1
'***********************************************************************買い目条件in
StOz(1) = Mid$(StTxt, 1, 12) '----年月日場Ｒ 12b
StOz(2) = Mid$(StTxt, 13, 2) '----登録頭数(枠頭数)2b
StOz(3) = Mid$(StTxt, 15, 2) '----出走頭数(出走頭数）2b
StOz(4) = Mid$(StTxt, 17, 1) '----発売フラグ 1b
StOz(5) = Mid$(StTxt, 18, 1) '----発売フラグ 枠連 1b
StOz(6) = Mid$(StTxt, 19, 1) '----複勝着払キー 1b
StOz(7) = Mid$(StTxt, 20, 11) '---単勝合計票数
StOz(8) = Mid$(StTxt, 31, 11) '---複勝合計票数
StOz(9) = Mid$(StTxt, 42, 11) '---枠連合計票数
StOz(10) = Mid$(StTxt, 53, 11) '--馬連合計票数
StOz(11) = Mid$(StTxt, 64, 11) '--ワイド合計票数
StOz(12) = Mid$(StTxt, 75, 11) '--馬単合計票数
StOz(13) = Mid$(StTxt, 86, 11) '-３連複合計票数
StOz(14) = Mid$(StTxt, 97, 11) '-３連単合計票数
'***********************************************************************単勝ＯＺＩＮ
For U1 = 1 To 18
St1 = Mid$(StTxt, 108 + (U1 - 1) * 4, 4)
If St1 = "0000" Then
Bt(U1, 1) = 0
Else
Bt(U1, 1) = CDbl(St1) * 0.1
End If
Next
'*************************************************************************複勝
For U1 = 1 To 18
'----------------------------------------------------------------複勝Lo
St1 = Mid$(StTxt, 180 + (U1 - 1) * 4, 4)
If St1 = "0000" Then
Bf(U1, 1) = 0
Else
Bf(U1, 1) = CDbl(St1) * 0.1
End If
Next
For U1 = 1 To 18
'----------------------------------------------------------------複勝HI
St1 = Mid$(StTxt, 252 + (U1 - 1) * 4, 4)
If St1 = "0000" Then
Bf2(U1, 1) = 0
Else
Bf2(U1, 1) = CDbl(St1) * 0.1
End If
Next
'**********************************************************************枠連ＯＺＩＮ
A = 0
For U1 = 1 To 8
For U2 = U1 To 8
A = A + 1
St1 = Mid$(StTxt, 324 + (A - 1) * 5, 5) '5b*36
If St1 = "00000" Then
Bw(U1, U2, 1) = 0
Else
Bw(U1, U2, 1) = CDbl(St1) * 0.1
End If
Next
Next
'***********************************************************************馬ＯＺＩＮ
A = 0
For U1 = 1 To 18
For U2 = U1 + 1 To 18
A = A + 1
St1 = Mid$(StTxt, 504 + (A - 1) * 6, 6) '6b*153
If St1 = "000000" Then
Bu(U1, U2, 1) = 0
Else
Bu(U1, U2, 1) = CDbl(St1) * 0.1
End If
Next
Next
'**********************************************************************ワイドＯＺＩＮ '------------------------------------------------------------ワイドLo
A = 0
For U1 = 1 To 18
For U2 = U1 + 1 To 18
A = A + 1
St1 = Mid$(StTxt, 1422 + (A - 1) * 5, 5) '5b*153
If St1 = "00000" Then
By(U1, U2, 1) = 0
Else
By(U1, U2, 1) = CDbl(St1) * 0.1
End If
Next
Next
'------------------------------------------------------------ワイドHi
A = 0
For U1 = 1 To 18
For U2 = U1 + 1 To 18
A = A + 1
St1 = Mid$(StTxt, 2187 + (A - 1) * 5, 5) '5b*153
If St1 = "00000" Then
By2(U1, U2, 1) = 0
Else
By2(U1, U2, 1) = CDbl(St1) * 0.1
End If
Next
Next
'**********************************************************************馬単ＯＺＩＮ
A = 0
For U1 = 1 To 18
For U2 = 1 To 18
If U1 <> U2 Then
A = A + 1
St1 = Mid$(StTxt, 2952 + (A - 1) * 6, 6) '6b*306
If St1 = "000000" Then
Be(U1, U2, 1) = 0
Else
Be(U1, U2, 1) = CDbl(St1) * 0.1
End If
End If
Next
Next
'**********************************************************************３連複ＯＺＩＮ
A = 0
For U1 = 1 To 18
For U2 = U1 + 1 To 18
For U3 = U2 + 1 To 18
A = A + 1
St1 = Mid$(StTxt, 4788 + (A - 1) * 6, 6) '6b*816
If St1 = "000000" Then
B3f(U1, U2, U3, 1) = 0
Else
B3f(U1, U2, U3, 1) = CDbl(St1) * 0.1
End If
Next
Next
Next
'**********************************************************************３連単ＯＺＩＮ
A = 0
For U1 = 1 To 18
For U2 = 1 To 18
For U3 = 1 To 18
If U1 <> U2 And U1 <> U3 And U2 <> U3 Then
A = A + 1
St1 = Mid$(StTxt, 9684 + (A - 1) * 7, 7) '7b*4896
If St1 = "000000" Or St1 = "" Then
B3t(U1, U2, U3, 1) = 0
Else
B3t(U1, U2, U3, 1) = CDbl(St1) * 0.1
End If
End If
Next
Next
Next
End Sub
競馬でプログラムの作成
お疲れ様でした😎
いいなと思ったら応援しよう！
