HSPTV!掲示板

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

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

#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

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