[ruby-list:39266] Re: 気象庁の．．． Re: uriってどう使うんでしょうか

岡です。
>気象データを取得するプログラムを書くところまで行ったのですが、
>『本ＨＴＭＬではフレーム機能を使用しています。
>フレーム機能を対応しているブラウザを使用してください。』
>というメッセージが返ってきます。（下記プログラムです）

ちょっと違ったアプローチで気象データを取得してみました。
要は、WIN32OLEでIEを制御して欲しいデータを表示させてみる、という方法で
す。WIN32OLE経由でIEが提供するメソッドを使って、いけば結構いろいろできます。
まずは以下のページからIE制御ライブラリを取ってきて、適当なフォルダに
"ie_lib.rb"というファイル名で保存してください。
http://www.tech-notes.dyndns.org/win32ole/ie_lib_document.html
さらに、以下のスクリプトをie_lib.rbと同じフォルダに保存します。

ruby weather_data.rb
と実行すればIEが立ち上がって、気象データが表示されるはずです。
ただし、IE6.0でないとうまく動作しませんでした。IE5ではfireEvent()が無い
とエラーになりました。
しかし、ちょっと問題があります。最後の検索ボタンを押すと、気象データは別
ウィンドウに表示されます。別ウィンドウのIEをWIN32OLEから制御できれば、気
象データも簡単に文字列として取り出せるんですけどねぇ。

/OKA

------weather_data.rb-----------
#!ruby -Ks
require 'ie_lib'

# HTML要素を特定する情報
TargetFrame_index = 2 # 情報選択セレクタの存在するフレームのインデックス
AreaSelect_index  = 0 # 地域セレクタ
CitySelect_index  = 1 # 都市セレクタ
DataType_index    = 2 # データ
YearSelect_index  = 3 # 年
MonthSelect_index = 4 # 月
DateSelect_index  = 5 # 日
SearchButton_index = 0 # 検索ボタン
# 選択条件
SelectArea = "神奈川県"     # 地域指定
SelectCity = "横浜"         # 都市指定
DateType = "１日の毎時の値" # データタイプ指定
DateArray = ["2003", "04", "01"]  # 表示データの日付

ie = IE.new
ie.navigate("http://www.data.kishou.go.jp/")
target_frame = ie.Document.frames(TargetFrame_index)
select_list = target_frame.document.body.tags("SELECT")
# 地域の選択
area_select = select_list[AreaSelect_index]
area_select.text = SelectArea
area_select.fireEvent("onchange")
ie.wait_stable()

target_frame = ie.Document.frames(TargetFrame_index)
select_list = target_frame.document.body.tags("SELECT")
# 都市名の選択
selecter = select_list[CitySelect_index]
selecter.text = SelectCity
selecter.fireEvent("onchange")
# データ指定
selecter = select_list[DataType_index]
selecter.text = DateType
selecter.fireEvent("onchange")
# 年
selecter = select_list[YearSelect_index]
selecter.text = DateArray[0]
selecter.fireEvent("onchange")
# 月
selecter = select_list[MonthSelect_index]
selecter.text = DateArray[1]
selecter.fireEvent("onchange")
# 日
selecter = select_list[DateSelect_index]
selecter.text = DateArray[2]
selecter.fireEvent("onchange")
# 検索ボタンクリック
area_list = target_frame.document.body.tags("AREA")
area_list[SearchButton_index].click
ie.wait_stable