HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2007 0919	矢野	xnoteadd命令の限界に対する対処法は？	4

矢野

2007/9/19(Wed) 23:16:31|NO.11122

こんばんは、矢野です。
行き詰まっていることが、１つあります。

xnoteadd命令なのですが、処理するデータ数が５２０００行を超えると
スクリプト終了時に、必ず次のようなエラーメッセージが出ます。確認をお願いします。
”問題が発生したため、hsp3.exeを終了します。不便をおかけして申し訳ありません。”

この現象は、２用でも同様に起きました。これについては、２用本家掲示板で検索して
xnoteadd命令の代替モジュールを見つけて対処した（していただいた）のですが、
３用については対処法が見つからず、途方に暮れています。

そこでお願いなのですが、
　①　xnoteadd命令を他の命令で書き換えることはできないでしょうか。
それが、無理なら、
　②　xnoteadd命令の代替モジュールを教えていただけないでしょうか。（３．１用）
よろしくお願いします。。

この記事に返信する

2007/9/21(Fri) 05:29:38|NO.11137

放置されるのはよくなさそうなので一応。

使った事ないのでエラー対策は全然わからないし
将来的にも(俺は)使いそうに無いので対策について深く考えないが

マニュアル見る限りさほど大げさな機能でもないようだし、
いっそ通常のメモリノートパッド命令で同様の処理するように作った方が早いんでね？

要するにaddする時に「同じ文字列が無いか」を確認すれば良いんだろうし。
処理時間はかなり増えそうな気もするが。

ANTARES

2007/9/21(Fri) 20:57:24|NO.11144



#module
;#uselib "anthspex.dll"
;#func getline getline $11
;#func ssize strsize $83
#deffunc exclusiveadd var buf, str st
    ;mref buf,24	;追加先文字変数
    ;mref st,33	;追加する文字列
    sdim lbuf,259
    p=0: flg=1: len=strlen(buf)
    repeat
        ;getline buf,p: p=stat
        getstr lbuf,buf,p: p+=strsize
        if lbuf==st: flg=0: break
        if p>=len: break
    loop
    if flg {
        ;l=strlen(st): ssize buf
        ;if len+l+3>stat: dialog "exclusiveadd:文字変数のサイズが足りません": end
        ;buf+=st+"\n"
        poke buf,len,st+"\n"
    }
return
#global

    b="" : a="あ\nい\nう\nい\nう\nえ\nあ\nお\n"
    notesel a
    repeat notemax
        noteget c,cnt
        exclusiveadd b,c
    loop
    mes b
stop

ANTARES

2007/9/21(Fri) 22:26:41|NO.11147

　バッファサイズチェックができないので、pokeより文字列加算の方が安全ですね、遅いけど。

矢野

2007/9/22(Sat) 18:24:30|NO.11157

fさん、xnoteadd 命令の代替スクリプトの考え方について助言いただき、
ありがとうございます。
また、ANTARESさんには、２用の代替スクリプトを、３用に書き換えていただき、
ほんとに、感謝に堪えません。じつは、Akimさんの忠告もあり、
自分で書き換えようとしたのですが、分からない部分があって、行き詰まっておりました。

さて、エラーメッセージを再現したいと考え、スクリプトを組んでみましたところ、
再現されないので、試行錯誤しているうちに、時間が過ぎてしまいました。ところが、
その再現スクリプト中の数字を変更しているうちに、突然エラーメッセージが再現されて、
とんでもないことに気づきました。次のスクリプトを実行してみてください。



#include "hspda.as"

sdim buf,10000
xnotesel buf,10000
	repeat 600000
		if (cnt\100)=0:title "数の表示     "+val+"    "+cnt+"/"+600000
		randomize
		val1=rnd(10)
		val2=rnd(10)
		val3=rnd(10)
		val4=rnd(10)
		val5=rnd(10)
		val6=rnd(10)
		val7=rnd(10)
		val8=rnd(10)
		if val1=0:val1=1
		if val2=0:val2=2
		if val3=0:val3=3
		if val4=0:val4=4
		if val5=0:val5=5
		if val6=0:val6=6
		if val7=0:val7=7
		if val8=0:val8=8
	val9=val8*10000000+val7*1000000+val6*100000+val5*10000+val4*1000+val3*100+val2*10+val1
	val=str(val9)
	xnoteadd val
	loop
	dialog "終わりました。",0
	notesel buf
	len=noteinfo(0)
	mes len

今回のエラーの原因は、xnoteadd命令の限界ではなく、sdim 命令によるバッファの確保が
不十分だったことが原因だったのです。「バッファオーバーフロー」というメッセージなら
すぐに修正できたのですが、「問題が発生したため・・・」というメッセージだったため、
全く気づきませんでした。
というわけで、今回の質問は全く的外れな物になってしまいました。
回答していただいた皆様、ここに深くお詫び申し上げます。