« ロトの当せんデータを自動取得する(2) | トップページ | ねずみの競馬予想 2007年7月28日(番外編) »

ロトの当せんデータを自動取得する(3)

今回は、HTMLタグ間のデータを抽出する処理についてです。
リンク先のページアドレスを検索して新しいページのHTMLデータを取得するときや、
HTMLタグ間の数値データを取得するときに必要になります。

例えば、メインページからロト6の最新当せんデータを取得するためには下記の行から
"/miniloto/lt6-new.html" の部分を取得します。

<LI class=loto><A title=ロト6 tabIndex=200 href="/miniloto/lt6-new.html">ロト6</A>

取得した後にGetHtmlWebBrowser("http://www.takarakuji.mizuhobank.co.jp/miniloto/lt6-new.html") を
実行すればロト6の最新当せんデータのページが取得できます。

'
' 【タグ間パラメータ取得処理】
'
' stSrc      --> 取得する元データ
' stStartTag --> 開始タグ
' stEndTag   --> 終了タグ
' stKey      --> キーワードの属性名
' stComp     --> 比較する属性データ
' stTarget   --> 取得するパラメータの属性名
'
Public Function GetTagParam(ByVal stSrc As String, ByVal stStartTag As String,
    ByVal stEndTag As String, ByVal stKey As String, ByVal stComp As String,
    ByVal stTarget As String) As String

    Dim iStart, iLast As Integer
    Dim iSt, iEn As Integer
    Dim stBuf, stTxt As String

    stBuf = vbNullString

    iStart = 1                          ' 元データの先頭から開始
    Do While (iStart > 0)
        System.Windows.Forms.Application.DoEvents()

        ' 開始タグを探す
        iSt = InStr(iStart, stSrc, stStartTag, CompareMethod.Text)
        If iSt = 0 Then Exit Do         ' 開始タグが見つからないので終了

        ' 終了タグを探す
        iEn = InStr(iSt, stSrc, stEndTag, CompareMethod.Text)
        If iEn = 0 Then Exit Do         ' 終了タグが見つからないので終了

        ' 開始タグ~終了タグまで文字列を抽出
        iLast = iEn + Len(stEndTag)     ' InStrの位置は検索文字の先頭なので終了タグの文字数分を加算
        stTxt = Mid(stSrc, iSt, iLast - iSt)

        iStart = iLast                  ' 次の開始位置をセットしておく

        ' 抽出文字列からターゲットのパラメータを取得
        stBuf = GetKeyWord(stTxt, stKey & "=")
        If stBuf = stComp Then
            stBuf = GetKeyWord(stTxt, stTarget & "=")
            If stBuf <> vbNullString Then
                Exit Do
            End If
        End If
    Loop

    Return stBuf

End Function

処理内に書かれているGetKeyWordの関数は、文字列からターゲットのパラメータを取得する処理です。
簡単なのでここでは省略します。

|

« ロトの当せんデータを自動取得する(2) | トップページ | ねずみの競馬予想 2007年7月28日(番外編) »

ギャンブル」カテゴリの記事

パソコン・インターネット」カテゴリの記事

ロト」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/217467/15914211

この記事へのトラックバック一覧です: ロトの当せんデータを自動取得する(3):

« ロトの当せんデータを自動取得する(2) | トップページ | ねずみの競馬予想 2007年7月28日(番外編) »