1.exeファイルの実行時に"#Error 1 -->内部エラーが発生しました(1)"が時々出て
原因が分からず困っています。
2.同じプログラムをエディター上で実行すると"#Error 1 in line xxxx -->システムエラーが"
とでます。 発生頻度はどちらも十数回に1回程度です。
何かヒントやアドバイスを頂けないでしょうか。宜しく御願いします。
スクリプトは抜粋ですが以下のような内容です。(全体は長いので掲載できずすいません)
;;;;;;Text file 読み込みルーティン(抜粋)
*read_file
sdim read_buffer , 2000
--->>> dialog "txt",16,"テキストファイル"
if stat=0 : goto *loop_5th
notesel read_buffer
noteload refstr
noteget work,0
if (strmid(work,0,9) ! "code_file") { ;1record目は"code_file"
dialog "ファイルが違います。\n選びなおして下さい。",1
goto *read_file
}
;以後、複数レコードを配列に読み込むフローが続くが略します
;
goto *file_read_return
;;;;;;Text file 書き込みサブルーティン
*file_save
sdim write_buffer , 1200
write_buffer = "code_file\t"+str(cy)+strf("%02d",cm)+strf("%02d",cd)+ "\n"
;1record目を"code_file (tab) yyyymmdd"にしてsave
repeat 8
work = code(cnt) ;8個の配列から略語をworkへ
gosub *search_name ;略語のフルネームを検索して"work_name"へ入れて戻る
write_buffer += work +"\t" + work_name + "\n" ;略語+タブ+名前+改行で1record
loop
write_buffer += "endend\n" ;"endend"=レコード終わりを示す
-->>> dialog "txt",17,".txtの拡張子は入力不要"
if stat=0 : return
notesel write_buffer
notesave refstr +".txt"
return
・現象1 エディター実行時は、dialog の16(read)か、17(write)のline#を指してエラー
・現象2 exe実行時はなぜかdialogは表示されず、その直前と思われるタイミングで
内部エラーが発生。
尚、read_buffer/write_bufferの文字数定義は扱うファイルより充分大きなサイズです。
それと何故か(今までの処は)hsp V3.1ではエラー出ず、V3.2で出ています。
私のPC環境はXP Pro SP3です。別のNote(XP home SP3)でも同じエラーがでます。
大変あいまいな内容で恐縮なのですが、
もし何かヒントあるいは間違いなどのアドバイス頂ければ嬉しいです。