2012-04-14から1日間の記事一覧
次は、開催地、競馬場単位でループさせてみます。場名を覚えた後にループさせてみます。'競馬場・開催地でループする。 jのループ For j = 0 To nJYO - 1 '↑上で保存したnJYOの分だけ回る でループを作り、 'name=m の オプションのj番目を選択する objSELEC…
変数を2つ作成して、 レース番号 と オッズの種類を覚えます。 Dim nR 'レース数 Dim strR_NAME(13) 'レース 通常連番だからいらないんだけど・・・ 'SELECTのタグを集める .getElementsByTagName("SELECT")を使用 Set objSELECT = objIE.Document.getEleme…
目的のテーブルを If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then で探すことができたので、 中のデータ(テキスト)を取り出し、カンマ区切りで出力してみます。ポイントは、 .Rows.Length で 行数、 .Rows(y).Cells.Length で 列数 が取得できる…
テーブルの左上が枠番となっているテーブルを探したかったので、Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT みたいな感じて、 .Rows(0)で1行目、 .Cells(0)で1列目 の .InnerTEXTで中の文字を取得できるので、 If objTABLE(n).Rows(0).Cells(0)…
テーブルのソースを確認したかったので、 表示済みのIEを探し、 .getElementsByTagName("TABLE")を使用して、テーブルを集めて、 Set objTABLE = objIE.Document.getElementsByTagName("TABLE") .Lengthで個数のチェック、 中身(.OuterHTML)をWscript.ECHOで…