HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2013 1025	mukku	ヤフーファイナンスの時系列データを連続取得したいのですが	5

mukku

2013/10/25(Fri) 11:31:51|NO.57792

　IEコンポーネントを使ってヤフーの時系列データ（株価や信用残）を取得し、
カンマ区切りのテキストデータにして利用しているのですが、一度に50件までしか
取得できません。そこで、配列に50件区切りのURLデータを入れて
for~ : next
で、回してみたのですが、エラーでうまくいきません。
for~ : nextを使わず、kを固定すると1頁分のデータは取得できます。
IEコンポーネントに関する知識不足で恐縮ですが、どこを、どう直せば良いか、
ヒントだけでもいただけないでしょうか。
また、50件区切りのURLではなく、2010/01/08から2013/10/18までなどといった、
50件を越える複数ページのデータを機関を指定して一括ダウンロードする方法など
ありましたらご教示戴ければ幸いです。

　以下、スクリプトです。さくらさんの「HSPサンプル蔵」「COMオブジェクト編」
のサンプルスクリプトを利用させていただいています。
なお、長くなるので、
"innerHTML"を"innerText"として、
HTMLからテキストを抽出・加工する過程は除いてあります。



;ヤフーファイナンスから銘柄別信用残を抽出

sdim tmdat,120,4

;抽出機関 2010/01/08~2013/10/18
tmdat(0)="http://info.finance.yahoo.co.jp/history/margin/?code=4689.T&sy=2010&sm=1&sd=8&ey=2010&em=12&ed=17"
tmdat(1)="http://info.finance.yahoo.co.jp/history/margin/?code=4689.T&sy=2010&sm=12&sd=24&ey=2011&em=12&ed=2"
tmdat(2)="http://info.finance.yahoo.co.jp/history/margin/?code=4689.T&sy=2011&sm=12&sd=9&ey=2012&em=11&ed=16"
tmdat(3)="http://info.finance.yahoo.co.jp/history/margin/?code=4689.T&sy=2012&sm=11&sd=22&ey=2013&em=10&ed=18"

	;▼mesboxを作成
	ReturnHTML="\n\n\n\t▼▼▼▼▼  現在、テキストを抽出しています。  ▼▼▼▼▼"
	font "ＭＳ ゴシック",14 : objmode 2
	mesbox ReturnHTML,ginfo(10)-4,ginfo(11)-24,5
	objectID=0 : objsel objectID

	;▼IE(InternetExplorer.Application)オブジェクトを作成
	newcom objIE, "InternetExplorer.Application"
	objIE("Silent")  = 1
	objIE("Visible") = 0   ;非表示モードで起動

	;▼URLを指定
	for k=0,4
	sURL = tmdat(k)
	title sURL

	;▼指定URLを開く
	objIE->"Navigate" sURL
	gosub *busywait
	objDoc=objIE("Document")
	objBody=objDoc("body")
	ReturnHTML=objBody("innerText")

	objprm objectID,ReturnHTML

	;gosub *textoutput  省略
	notesel sinyozan: noteadd ReturnHTML: noteunsel

	next

	;データ保存
	notesel sinyozan
	notesave "e:\\tmp\\sinyozan.txt"

	;▼IEを終了させる
	objIE->"Quit"

	;▼オブジェクトを破棄
	delcom objDoc
	delcom objBody
	delcom objIE

	*owari
	end


*busywait
	;▼ページの読み込みが終了するまで待つ
	title "ページを読み込み中です。"
	repeat
		wait 10
		if objIE("Busy")==0 : break
	loop
	objDoc=objIE("Document")
	repeat
		wait 10
		if (objdoc("readyState") == "complete") : break
	loop
	title "ページが表示されました。"
return

この記事に返信する

fortunehill

2013/10/25(Fri) 12:51:39|NO.57796

/*ご参考
ttp://info.finance.yahoo.co.jp/history/?code=8411.T&sy=2013&sm=09&sd=25&ey=2013&em=10&ed=25&tm=d&p=1
「次へ」がある限り上記の　&p=1　の値を増加させて行けば最後まで取得出来ます。
*/

RRR

2013/10/25(Fri) 13:28:54|NO.57801

forの使い方が違うだけでは
for k,0,4 が正解

mukku

2013/10/25(Fri) 14:15:04|NO.57803

　fortunehillさん、RRRさん、ありがとうございました

<　forの使い方が違うだけでは

ついうっかりしてまして。アセアセ
まだBasic気分が抜けきらず、恥じ入る限りです。
fortunehillさんに教えていただいたサイト、参考にさせていただきます。
お二人とも、本当にありがとうございました。

fortunehill

2013/10/25(Fri) 14:33:04|NO.57805

/*蛇足(大引け前で大暴落中の日経ですが)
　動作確認だけしたサンプルなので適当ですが参考になれば幸いです。
*/



    ReturnHTML="\n\n\n\t▼▼▼▼▼  現在、テキストを抽出しています。  ▼▼▼▼▼"
    font "ＭＳ ゴシック",14 : objmode 2
    mesbox ReturnHTML,ginfo(10)-4,ginfo(11)-240,5
    objectID=0 : objsel objectID
    newcom objIE, "InternetExplorer.Application"
    objIE("Silent")  = 1
    objIE("Visible") = 0
    nn               = 1
*@                                                         ;①ラベル追加とsURL部分移動
    sURL = "http://info.finance.yahoo.co.jp/history/?code=8411.T&sy=2013&sm=03&sd=25&ey=2013&em=10&ed=25&tm=d"
    sURL+= "&p="+nn                                        ;②ページ指定
    title strmid(sURL,50,100)
    objIE->"Navigate" sURL
    gosub *busywait
    objDoc=objIE("Document")
    objBody=objDoc("body")
    ReturnHTML=objBody("innerText")
    objprm objectID,ReturnHTML
    mes instr(ReturnHTML,0,"次へ")                         ;③
    if (instr(ReturnHTML,0,"次へ") != -1) {nn++ :goto *@b} ;③
    objIE->"Quit"
    delcom objDoc
    delcom objBody
    delcom objIE
    stop
*busywait
    repeat
        wait 10
        if objIE("Busy")==0 : break
    loop
    objDoc=objIE("Document")
    repeat
        wait 10
        if (objdoc("readyState") == "complete") : break
    loop
return

mukku

2013/10/25(Fri) 19:00:04|NO.57808

　fortunehillさん、参考スクリプトありがとうございました。
お陰様で思い道理のデータが入手できるようになりました。
本当にありがとうございました。