三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)


広告:


[記事一覧、バックナンバーを見る]

テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す

動画で三流解説

動画の簡単な説明

ソースコードと解説は
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までのオッズを出力します。

動画解説やテスト結果


動画元: テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す - YouTube

動画区分でURL:ken3内のリンクを探す