HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0609
NICEレート取得2解決


NICE

リンク

2006/6/9(Fri) 14:17:54|NO.1033

ちょっとおききしたいのですが
HSPでレートを取得する方法をおしえてください
とりあえず米ドルと日本円のレートが取得できればいいです
よろしくお願いします



この記事に返信する


なたで

リンク

2006/6/9(Fri) 20:36:57|NO.1035

米ドルと日本円のレートが書いてあるホームページをダウンロードして、
そこからレートの部分を抜き出せばいいよ。


#include "hspsock.as" size=12000:sdim buf,size:ps="" st="1</td><td>":en="</td>" sockopen 0,"quote.yahoo.co.jp",80:if stat{goto *er1} sockput "GET /m3?u HTTP/1.0\nHost:???\nUser-Agent:???\n\n":if stat{goto *er1} mes "情報をダウンロードします。" repeat size/64-1:await 0 sockget ps,64:if stat{break} b=peek(ps,0):if b=0{er=1:break}else{buf+=ps} loop mes "ダウンロード完了。" if er{ pos_st=instr(buf,0,st) pos_en=instr(buf,pos_st+strlen(st),en) if (pos_st=-1)|(pos_en=-1){goto *er3} rate=double(strmid(buf,pos_st+strlen(st),pos_en)) mes "1ドルは"+str(rate)+"円です。" }else{mes "接続ミス":goto *er2} sockclose:stop *er1:mes "接続失敗しました。":sockclose:stop *er2:mes "404とか":sockclose:stop *er3:mes "取得失敗しました。":sockclose:stop



NICE

リンク

2006/6/11(Sun) 15:51:33|NO.1065

なたでさんありがとうございました
とても参考になりました



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