IEGETDATA関数(IEより値取得):UWSC,

// IE操作関連

  ( IEオブジェクトの取得には CREATEOLEOBJ, GETACTIVEOLEOBJ関数を使用、IEの終了は IEオブジェクト.Quit )

// IE操作関連

  ( IEオブジェクトの取得には CREATEOLEOBJ, GETACTIVEOLEOBJ関数を使用、IEの終了は IEオブジェクト.Quit )

// Web上(IE)より値取得
戻値 = IEGETDATA( IE, Name, [Value, 番号] )
引数
 IE: IEオブジェクト
 Name: 値取得するエレメントのName
     もしくはタグ名を記述: ”TAG=タグ名”
 Value: Nameが共通の場合に Valueを指定する
     Nameにてタグ名が指定された場合は、そのタグにての順番を指定
 番号: Name, Value が同じ場合に順番指定 
戻値
 取得の値 (取得できなかった場合はEMPTYを返す)

 ※ 第二引数にタグ名が指定された場合、第三引数には数字(順番)以外では “ID=xxx”、”innerHTML=xxx”、”innerText=xxx” の指定が可
 ※ TABLEの値を取得したい場合には、IEGETDATA(IE, “TAG=TABLE”, Table順番, Y, X) にて取得可

【例:サンプル】
// Google操作 検索結果のタイトルとURLを表示
IE = CreateOLEObj(“InternetExplorer.Application”)
IE.Visible = True
IE.Navigate(“http://www.google.co.jp/”)
BusyWait(IE)
IESetData(IE,True,”lr”,”lang_ja”)      // ラジオボタン選択:日本語のページを検索
IESetData(IE,”検索単語”,”q”)         // 文字設定:検索単語
IESetData(IE,True,”btnG”,”Google 検索”)   // SUBMIT
BusyWait(IE)
body = IEGetSrc(IE, “BODY”)             // BODYのソース取得
body = Copy(body, Pos(“

body = Copy(body, 1, Pos(“background-position”, body)) // 不必要部分の削除
cnt = 1
while True
 wks= BetweenStr(body,”

“, cnt)
 if wks = EMPTY then break
 wks = REPLACE(wks,”“, “”)    // 邪魔なタグは潰す
 wks = REPLACE(wks,”
“, “”)
 wks = REPLACE(wks,”“, “”)
 print cnt
 print Copy(wks, Pos(“”",wks,-1)+2, 999)   // タイトル
 print BetweenStr(wks, “href=”",”"”)  // URL
 cnt = cnt + 1
wend
//——
Procedure BusyWait(ie)
 repeat
  Sleep(0.2)
 until (! ie.busy) and (ie.readyState=4)
Fend

// テーブルからのデータ取得
// IEGetData(IE, “TAG=TABLE”, 2, 3, 4)  // 2つ目のTABLEの3行目4列
// IEGetData(IE, “TAG=A”, 5)       // 5つ目のAタグの表示項目

// 指定文字列間の表示
moji = “A12, B12, C12, A34, B34, C34, A56, B56, C56, A78, B78, C78″
// AとCの間
print BetweenStr(moji, “A”, “C”)       // 12, B12,
print BetweenStr(moji, “A”, “C”, 2)     // 34, B34,
// 前文字と後文字が同じ時
print BetweenStr(moji, “A”, “A”, 1)     // 12, B12, C12,
print BetweenStr(moji, “A”, “A”, 2)     // 56, B56, C56, (後文字以降で取得)
print BetweenStr(moji, “A”, “A”, 2, True)  // 34, B34, C34, (前文字以降で取得)

——————————————————————————–

このエントリーをはてなブックマークに追加

コメントを残す