動画で三流解説
動画の簡単な説明
ソースコードと解説は
http://d.hatena.ne.jp/ken3memo/20120414/1334362211
を見てください。
全体の流れは
http://ken3hitori.g.hatena.ne.jp/bbs/30
を見てください。
変数を2つ作成して、
レース番号 と オッズの種類を覚えます。
Dim nR 'レース数
Dim strR_NAME(13) 'レース 通常連番だからいらないんだけど・・・
'SELECTのタグを集める .getElementsByTagName("SELECT")を使用
Set objSELECT = objIE.Document.getElementsByTagName("SELECT")
nR = objSELECT.Item("s").OPTIONs.Length 'レース数を代入
For n = 0 To objSELECT.Item("s").OPTIONs.Length - 1 strR_NAME(n) = objSELECT.Item("s").OPTIONs(n).innerTEXT '名前を代入
Next
レースの数を取得したら、あとは、ループ処理で、
'ループ、頭から終わりのレースまでループさせる
For r = 0 To nR - 1 '上↑で保存したレース数分まわる
でまわし、
レースの選択、決定を繰り返しながら1R-12Rまでのオッズを出力します。
動画解説やテスト結果
www.youtube.com動画元: テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す - YouTube