三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

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

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

04/05 OPTIONタグから レースを探し .Selected = True VBA IE操作 単勝表取込み

www.youtube.com

2R を 選択する OPTIONタグから レースを探し .Selected = True

単勝の表、オッズがとれたので、
あとは、繰り返し処理なんだけど、
その前に、調べ事が。

流れとしては、
1Rの表を表示
1Rのオッズをシートに取り込む。
2Rの表を表示 ←※1
2Rのオッズをシートに取り込む。
3Rの表を表示
3Rのオッズをシートに取り込む。

   ・

って、感じなんだろうけど。
オッズをシートに取り込む は できたので(つなげてないけど、)
※1の2Rの切り替えを先にテストしてみます。

Private Sub CommandButton1_Click()
Debug.Print Me.WebBrowser1.Document.URL
Debug.Print Me.WebBrowser1.Document.Title

Dim n As Integer
Dim strRACE As String
strRACE = InputBox("どのレース?に切り替える?", "TEST", "2R")

'OPTION タグからレースを 選択
Dim tagOPTION As Object 'タグ保存用
Dim nOPTION As Integer '見つけたOPTIONタグを保存する変数。

Set tagOPTION = Me.WebBrowser1.Document.all.tags("OPTION") 'OPTIONのタグを抜き出す

nOPTION = -1 'エラーの-1で初期化する
For n = 0 To tagOPTION.Length - 1 'OPTIONのタグを頭から探る
If tagOPTION(n).InnerText = strRACE Then 'レース番号を探す、OPTIONのテキストで比較する
nOPTION = n '見つけた番号をセットする。
Exit For '見つけたのでループを抜ける。
End If
Next n

'エラーの判断
If nOPTION = -1 Then '-1のまま、見つからなかったら、エラーにする。
MsgBox strRACE & "レースが見つかりません、システム管理者に連絡してください"
Exit Sub '関数を抜ける
End If

'OPTIONをセレクト、選択する。
tagOPTION(nOPTION).Selected = True '見つけたオブション(レース)を選択状態にする

'上の階層、Formを探して、.Submitする。
Dim objOYA_TAG As Object '親のオブジェクトを入れる
Set objOYA_TAG = tagOPTION(nOPTION).parentElement '見つけたOPTIONの親を代入
While objOYA_TAG.tagname <> "FORM" 'タグの名前がFORMになるまで(FORM以外の間まわる)
Set objOYA_TAG = objOYA_TAG.parentElement 'さらに、一つ上の親タグを代入
Wend
objOYA_TAG.Submit '上へ行き、見つけたフォームを.Submit 送信処理


'Stop 'とめる
End Sub

↑ポイントは
Set tagOPTION = Me.WebBrowser1.Document.all.tags("OPTION")
で、OPTIONのタグを抜き出し
For n = 0 To tagOPTION.Length - 1 'OPTIONのタグを頭から探る
If tagOPTION(n).InnerText = strRACE Then
でレース番号を探します(OPTIONのテキストで比較する)

無事見つけたら、
tagOPTION(nOPTION).Selected = True
で、オブションを選択状態にする

あとは、親のタグがFORMになるまで上に行き、
.Submitで送信、無事レースが切り替わります。

こんな感じです。

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)