From: Yac <yac@...>
Date: 2004-02-26T07:39:15+09:00
Subject: [ruby-list:39274] Re: 気象庁の．．． Re:  	uriってどう使うんでしょうか

This is a multi-part message in MIME format.
--------------030405020009070702090601
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit

岡です。以下の問題はちょっと変わった方法で回避しました。
> しかし、ちょっと問題があります。最後の検索ボタンを押すと、気象データは別
> ウィンドウに表示されます。別ウィンドウのIEをWIN32OLEから制御できれば、気
> 象データも簡単に文字列として取り出せるんですけどねぇ。
他のページが開いてしまうのは、気象データページの検索ボタンをクリックした時に実行されるJavaScriptの関
数内でwindow.open()が使われているためです。これをwindow.location.hrefに書き換えてしまえば、現在の
ウィンドウ内に検索結果を表示してくれます。
JavaScriptを格納する<SCRIPT>タグには、document.tags("SCRIPT")[0]でアクセスできます。
JavaScriptのコードそのものはdocument.tags("SCRIPT")[0].textでアクセスできるので、一度スクリプトを取
り出して、変更し、書き戻してやれば、ページ内のJavaScriptを変更できます。
こんな感じです。
  original_script_str = document.tags("SCRIPT")[0].text
  new_script_str = original_script_strを変更
  document.tags("SCRIPT")[0].text = new_script_str
(IEってこんなこともできるんですねぇ。ちょっと見直したぞ)

これで検索ボタンをクリックすればページ内に検索結果の気象データが表示されますから、後はデータを格納し
ている<TABLE>タグを指定し、<TR>と<TD>タグからデータを取り出せます。
結果はこんな感じで。
  時刻,hPa,hPa,℃,％,,m/s,mm,時間,cm,cm
  1時,1005.7,1010.7,13.7,63,北北東,2.4,--,,,--
  2時,1006.1,1011.1,13.5,64,北,1.9,--,,,--
   :

データを取り出すスクリプトのサンプルを添付ファイルに載せておきます。
/OKA


--------------030405020009070702090601
Content-Type: text/plain;
 name="weather_data.rb"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
 filename="weather_data.rb"

IyFydWJ5IC1Lcw0KcmVxdWlyZSAnaWVfbGliJw0KDQojIEhUTUyXdpFmgvCTwZLogreC6Y/u
lfENClRhcmdldEZyYW1lX2luZGV4ID0gMiAjII/ulfGRSZHwg1qDjINOg16CzJG2jd2Ct4Lp
g3SDjIFbg4CCzINDg5ODZoNig06DWA0KQXJlYVNlbGVjdF9pbmRleCAgPSAwICMgkm6I5oNa
g4yDToNeDQpDaXR5U2VsZWN0X2luZGV4ICA9IDEgIyCTc45zg1qDjINOg14NCkRhdGFUeXBl
X2luZGV4ICAgID0gMiAjIINmgVuDXg0KWWVhclNlbGVjdF9pbmRleCAgPSAzICMglE4NCk1v
bnRoU2VsZWN0X2luZGV4ID0gNCAjIIyODQpEYXRlU2VsZWN0X2luZGV4ICA9IDUgIyCT+g0K
U2VhcmNoQnV0dG9uX2luZGV4ID0gMCAjIIyfjfWDe4Neg5MNCiMgkUmR8I/wjI8NClNlbGVj
dEFyZWEgPSAikF+T3pDsjKciICAgICAjIJJuiOaOd5LoDQpTZWxlY3RDaXR5ID0gIomhlWwi
ICAgICAgICAgIyCTc45zjneS6A0KRGF0ZVR5cGUgPSAiglCT+oLMloiOnoLMkmwiICMgg2aB
W4Neg16DQ4N2jneS6A0KRGF0ZUFycmF5ID0gWyIyMDAzIiwgIjA0IiwgIjAxIl0gICMglVyO
poNmgVuDXoLMk/qVdA0KDQppZSA9IElFLm5ldw0KaWUubmF2aWdhdGUoImh0dHA6Ly93d3cu
ZGF0YS5raXNob3UuZ28uanAvIikNCnRhcmdldF9mcmFtZSA9IGllLkRvY3VtZW50LmZyYW1l
cyhUYXJnZXRGcmFtZV9pbmRleCkNCnNlbGVjdF9saXN0ID0gdGFyZ2V0X2ZyYW1lLmRvY3Vt
ZW50LmJvZHkudGFncygiU0VMRUNUIikNCiMgkm6I5oLMkUmR8A0KYXJlYV9zZWxlY3QgPSBz
ZWxlY3RfbGlzdFtBcmVhU2VsZWN0X2luZGV4XQ0KYXJlYV9zZWxlY3QudGV4dCA9IFNlbGVj
dEFyZWENCmFyZWFfc2VsZWN0LmZpcmVFdmVudCgib25jaGFuZ2UiKQ0KaWUud2FpdF9zdGFi
bGUoKQ0KDQp0YXJnZXRfZnJhbWUgPSBpZS5Eb2N1bWVudC5mcmFtZXMoVGFyZ2V0RnJhbWVf
aW5kZXgpDQpzZWxlY3RfbGlzdCA9IHRhcmdldF9mcmFtZS5kb2N1bWVudC5ib2R5LnRhZ3Mo
IlNFTEVDVCIpDQojIJNzjnOWvILMkUmR8A0Kc2VsZWN0ZXIgPSBzZWxlY3RfbGlzdFtDaXR5
U2VsZWN0X2luZGV4XQ0Kc2VsZWN0ZXIudGV4dCA9IFNlbGVjdENpdHkNCnNlbGVjdGVyLmZp
cmVFdmVudCgib25jaGFuZ2UiKQ0KIyCDZoFbg16Od5LoDQpzZWxlY3RlciA9IHNlbGVjdF9s
aXN0W0RhdGFUeXBlX2luZGV4XQ0Kc2VsZWN0ZXIudGV4dCA9IERhdGVUeXBlDQpzZWxlY3Rl
ci5maXJlRXZlbnQoIm9uY2hhbmdlIikNCiMglE4NCnNlbGVjdGVyID0gc2VsZWN0X2xpc3Rb
WWVhclNlbGVjdF9pbmRleF0NCnNlbGVjdGVyLnRleHQgPSBEYXRlQXJyYXlbMF0NCnNlbGVj
dGVyLmZpcmVFdmVudCgib25jaGFuZ2UiKQ0KIyCMjg0Kc2VsZWN0ZXIgPSBzZWxlY3RfbGlz
dFtNb250aFNlbGVjdF9pbmRleF0NCnNlbGVjdGVyLnRleHQgPSBEYXRlQXJyYXlbMV0NCnNl
bGVjdGVyLmZpcmVFdmVudCgib25jaGFuZ2UiKQ0KIyCT+g0Kc2VsZWN0ZXIgPSBzZWxlY3Rf
bGlzdFtEYXRlU2VsZWN0X2luZGV4XQ0Kc2VsZWN0ZXIudGV4dCA9IERhdGVBcnJheVsyXQ0K
c2VsZWN0ZXIuZmlyZUV2ZW50KCJvbmNoYW5nZSIpDQoNCiMgSmF2YVNjcmlwdILMlc+NWA0K
c2NyaXB0X3RhZyA9IGllLmRvY3VtZW50LmZyYW1lc1syXS5kb2N1bWVudC50YWdzKCJTQ1JJ
UFQiKVswXQ0Kc2NyaXB0X3N0cl9hcnIgPSBzY3JpcHRfdGFnLnRleHQuc3BsaXQoIlxuIikN
CmlmIHNjcmlwdF9zdHJfYXJyWzczOF0gPX4gL3dpbmRvd1wub3Blbi8NCiAgIyBKYXZhU2Ny
aXB0gvCPkYKrireCpoLpDQogIHNjcmlwdF9zdHJfYXJyWzczOF0gPSAiXHRcdHdpbmRvdy5s
b2NhdGlvbi5ocmVmID0gbG9jOyIgDQogIHNjcmlwdF90YWcucmF3LnRleHQgPSBzY3JpcHRf
c3RyX2Fyci5qb2luKCJcbiIpICANCmVsc2UNCiAgcHV0cyAiSmF2YVNjcmlwdIKql1yReoLG
iOGCpILMgsWSho5+Ig0KICBleGl0DQplbmQNCg0KIyCMn431g3uDXoOTg06DioNig04NCmFy
ZWFfbGlzdCA9IHRhcmdldF9mcmFtZS5kb2N1bWVudC5ib2R5LnRhZ3MoIkFSRUEiKQ0KYXJl
YV9saXN0W1NlYXJjaEJ1dHRvbl9pbmRleF0uY2xpY2sNCnNsZWVwIDMNCmllLndhaXRfc3Rh
YmxlDQoNCiMgg2aBW4NegsyO5oLoj2+CtQ0KVGFibGVGcmFtZV9pbmRleCA9IDENClRhYmxl
X2luZGV4ID0gMg0KZnJhbWUgPSBpZS5Eb2N1bWVudC5mcmFtZXNbVGFyZ2V0RnJhbWVfaW5k
ZXhdDQpkYXRhX2ZyYW1lID0gZnJhbWUuRG9jdW1lbnQuRnJhbWVzW1RhYmxlRnJhbWVfaW5k
ZXhdDQp0YWJsZV90YWcgPSBkYXRhX2ZyYW1lLkRvY3VtZW50LnRhZ3MoIlRBQkxFIilbVGFi
bGVfaW5kZXhdDQp0YWJsZV90YWcudGFncygiVFIiKS5lYWNoIHt8dHJfdGFnfA0KICBkYXRh
X2xpc3QgPSBbXQ0KICB0cl90YWcudGFncygiVEQiKS5lYWNoIHt8dGRfdGFnfA0KICAgIGRh
dGFfbGlzdC5wdXNoIHRkX3RhZy5pbm5lclRleHQNCiAgfQ0KICBwdXRzICIje2RhdGFfbGlz
dC5qb2luKCcsJyl9Ig0KfQ0KDQo=
--------------030405020009070702090601--