modtest2.hsp

sample\basic\modtest2.hsp » Plain Format

	;
	;	HSPモジュール・サンプル(modtest1から呼び出されます)
	;	( このファイルをincludeすることで命令が追加されます)
	;
	;	txtload命令は、テキストファイルを指定した変数に読み込む
	;	ためのユーザー拡張命令です。
	;	「#include "modtest2.as"」を入れることで使用できます。
	;	通常のbload命令では、テキストを読み込んだ場合、以前に
	;	ロードされたテキストの一部が残ってしまう現象が起こる
	;	ことがありましたが、txtload命令はロードしたテキストの
	;	最後に文字列の終了コード(0)を自動的に入れるので、
	;	そうした問題がなくなります。
	;

; モジュール名"test"
#module "test"

#deffunc txtload str fname,var buf

	;	txtload "filename",変数   命令追加
	;
	res=0
	exist fname
	if strsize<0 : dialog "ファイルがありません" : goto *errend
	if strsize>32000 : dialog "テキストが大きすぎます" : goto *errend

	poke buf,strsize,0			; テキストの終了マークを書きこむ
	res=strsize				; システム変数statにサイズを代入

	bload fname,buf				; ファイルをロード
	return res

*errend
	return -1				; システム変数statを1に


#global						; 最後にglobalに戻すこと