本ページには広告が含まれています。
Web上の指定したタグのソースを取得します。取得できなかった場合Emptyが返ります。
- 構文
- UString = IEGETSRC( IE, タグ名, 番号 )
- 引数
- IE （Object）必須
- IEオブジェクト
- タグ名 （String）必須
- ソース取得するタグ名
- 番号 （Integer）省略可
- タグの順番を指定
- 戻り値
- 取得したソース
使い方
Internet Explorerでhttp://example.comを開き、bodyタグを取得します。
結果の改行コードは\nで表現しています。
DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("http://example.com")
BusyWait(IE)
PRINT IEGETSRC(IE, "body")- 結果
<body>\n<div>\n <h1>Example Domain</h1>\n <p>This domain is for use in illustrative examples in documents. You may use this\n domain in literature without prior coordination or asking for permission.</p>\n <p><a href="https://www.iana.org/domains/example">More information...</a></p>\n</div>\n\n\n</body>
結果の改行コードは\nで表現しています。
DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("http://example.com")
BusyWait(IE)
DIM i = 1
WHILE IEGETSRC(IE, "p", i) <> EMPTY
PRINT IEGETSRC(IE, "p", i)
i = i + 1
WEND- 結果
<p>This domain is for use in illustrative examples in documents. You may use this\n domain in literature without prior coordination or asking for permission.</p> <p><a href="https://www.iana.org/domains/example">More information...</a></p>
プログラム実行例
bodyタグを書き換える
Yahoo! JAPANトップページの特定の文字を赤太字にする。
DIM IE = IEBoot()
IE.Navigate("www.yahoo.co.jp")
BusyWait(IE)
DIM body = IEGETSRC(IE, "body")
DIM array[] = "、", "。", "！", "？", "…", "・"
FOR item IN array
body = REPLACE(body, item, "<span style=<#DBL>color: red; font-weight: bold;<#DBL>>" + item + "</span>")
NEXT
PRINT IESETSRC(IE, body, "body")使用関数