| タイトル | ： javascript 内のソース取得 |
| 記事No | ： 15477 |
| 投稿日 | ： 2012/06/01(Fri) 11:31 |
| 投稿者 | ： nobu |
何時も拝見しています。
ＶＢ６ ＳＰ６、ＷｉｎＸｐです。
投稿制限により ｈttp: と一部を全角で書いています。
WebBrowser1.Navigate "ｈhttp://www.clublog.org/expeditions/3B7C"
にての表示完了を待ってから
WebBrowser1.Navigate "javascript:sendRequest2('JA1')"
Open strPath & "allexpeditions\sot_JA_3B7C.txt" For Output As #f_o2
Dim tbl As Object, row As Object, cell As Object
Set tbl = WebBrowser1.Document.getElementById("thegrid")
Print #f_o2, Left$("3B7C" & Space(10), 10) & " : "
For Each row In tbl.rows
For Each cell In row.cells
Print #f_o2, Tab(cell.cellIndex * 8);
If cell.tagName = "TH" Then
Print #f_o2, cell.innerText;
Else
Print #f_o2, cell.currentStyle.backgroundColor;
End If
Next
Print #f_o2, ""
Next
Close #f_o2
．．．にて表示された内容の保存は出来ました。
次に
WebBrowser1.Navigate "ｈhttp://www.clublog.org/expeditions/3B7C"
にて表示完了を待ってから
WebBrowser1.Navigate "javascript:getPropagation('dxcc','JA1')"
にては一部を下記に変更して試していますが
10m 809QSOs などや棒グラフの値の取得が出来ないでいます。
Set tbl = WebBrowser1.Document.getElementById("propagationChart")
表示されている内容のテーブルの値やソースは
どうように書けば取得出来るかご指導をしていただけると幸いです。
なお、表示されたグラフのソース内容の確認は
[Google Chrome] にて Propagation を表示し、
表示が完了したらマウスの右クリック、[要素を検証]をクリックして、
左側の [Elements] に表示されているものを見ています。
|