データ取得機能A

シストレのベースとなるデータ取得を作ってみました。

A)日々のデータに関してはPanRolling殿のサイトからtextファイルをDLし、
　EXCELに取り込んで保持する。

B)詳細データ分析にはYahoo殿のサイトから時系列情報を取得し、
　EXCELに取り込んで保持する。


本日は、まずA)について考えてみる・・・。

例えば、2007年1月15日のデータの場合のURLは、
「http://www.panrolling.com/data/daily/s20070115.txt」となっており、
ファイル名のYYYYMMDDの部分をプログラム側で作成しパラメータとして
IEに送りをデータ取得してみます。

　＜処理の流れ＞
　①IEオブジェクトを作成し、該当日のURLを開く。
　　objIE = CreateObject("InternetExplorer.application")
　　objIE.Navigate "http://www.panrolling.com/data/daily/s20070115.txt"

　②取得したサイトのデータをtextファイルに出力する。
　　Open f_path & f_name For Output As #intFF
　　Print #intFF, objIE.Document.body.innertext

　③IEオブジェクトの開放、textファイルの保存などの後処理。
　　Close #intFF
　　objIE.Quit

　④①～③を必要日数分繰り返す。


これをEXCELのVBAで実行してみたところケッコウ遅い(;_;)
同じ事をVBScript(VBS)で書き換えてみたが、あんまり変わらない(x_x)
まあ、パフォーマンス改善は一通り機能が出来てからの後回しにして・・・

次は、どこの機能を作ろうかなぁ～。。