Dripです。
ガビーンさん、こんにちは。
なぜ全く同じテーマのスレッドがいくつもあるのでしょうか。
同じ内容の記事であれば、必ず「返信」の形で書き込んでください。
とても読みにくい上に他のビジターに不快感を与えます。
返信が付かないからといって同じテーマで新規投稿するのはやめてください。
他のビジターに不快感を与えます。掲示板は必ずしも答えが求まる場所ではないことを
理解してください。
自分の必要とする回答が得られるまで何度も同じ投稿をし続けると、俗に言う“荒し”と
同じ行為になります。注意してください。
> プログラムの組み方が全然違うのでしょうか。
> もうすこしヒントをくださいよろしくお願いします。
文字列操作関係のライブラリ全般を把握するとよいと思います。
instr,strlen,getstr等を用い、ネット上から取得したファイルを編集して表示してみてください。
尚、以下のスクリプトは全く将来性を考慮していないプログラムです。理想的なサンプルではありません。
このようなこともできる、程度に試してみてください。
hspbbsTagTrack="&"+"n"+"bsp;" //HSP掲示板タグ認識によりプログラムが破壊されるのを防ぐ
#include "hspinet.as"
#define dlfile "dltest_tmp060730.txt"
#define keyCode1 "<TD NOWRAP>"
#define keyCode2 hspbbsTagTrack+hspbbsTagTrack+hspbbsTagTrack+"</TD><TD ALIGN=RIGHT>"
netinit:if stat : dialog "ネット接続できません。"
neturl "http://jp.moneycentral.msn.com/investor/market/":netdlname dlfile
netrequest "rates.asp?Region=1&Compare=7":mes "DOWNLOAD 開始":repeat:netexec res
if res>0:{goto *comp}:if res<0:{neterror estr:mes "ERROR "+estr:stop}:await 50:loop
*comp:mes "DOWNLOAD 完了":exist dlfile:buf=strsize:sdim data,buf:sdim tmpstr,256
sdim tmpstr2,256:bload dlfile,data:rp=0:pos 10,64:repeat 20:tmp=instr(data,rp,keyCode1)
if tmp<0:{break}:rp+=tmp+strlen(keyCode1):getstr tmpstr,data,rp,'&'
getstr tmpstr2,data,rp,'<':if strlen(tmpstr)<strlen(tmpstr2):mes tmpstr:else:mes tmpstr2
loop:pos 320,64:rp=0:repeat 20:tmp=instr(data,rp,keyCode2):if tmp<0:{break}
rp+=tmp+strlen(keyCode2):getstr tmpstr,data,rp,'<':mes tmpstr:loop:pos 10,450:mes "以下略。"
exist dlfile:if strsize>-1:{delete dlfile}:stop
MSNからレートの取得 (New Version)の続き
