HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


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¤µ¤ó¡¢»²¹Í¥¹¥¯¥ê¥×¥È¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¤ª±¢Íͤǻפ¤Æ»Íý¤Î¥Ç¡¼¥¿¤¬Æþ¼ê¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
ËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£



ONION software Copyright 1997-2023(c) All rights reserved.