下のスクリプトを実行しても、最初はうまくいくのですが、
2回目からおかしくなります。どうすれば2回目も1回目と同じようにできますか?
sdim bl,1048576*62 dialog "txt;*.html;*.htm",16 if stat=0:end notesel bl noteload refstr mesbox bl,640,240,5 st=0 repeat 3 sh=instr(bl,st,"HREF");←半角英字に sf=sh+instr(bl,sh,"\"")+1 ef=sf+instr(bl,sf,"\"") mes strmid(bl,sf,ef-sf) st=ef loop