test3.hsp

sample\llmod3\test3.hsp » Plain Format

	;=================================================================================
	;
	;llmod3を使った各moduleの使用例
	;
	;=================================================================================
	#include "llmod3/llmod3.hsp"
	#include "llmod3/multiopen.hsp"

	s=dir_cur
	buf_size=1024*4
	info_size=128*4
	alloc buf,buf_size	;ファイル名がいくつ入るか分からないので十分なサイズを確保しておく
	alloc info,info_size

	info=dir_exe
	buf="複数のファイルを開く -test title- デフォルトフォルダを "+info+" に設定"
	multiopen buf,info,0	;タイトル、デフォルトフォルダの設定(0を指定して設定)

	buf=buf_size,info_size	;バッファにbuf,infoのサイズを入れる
	info="HSP3 スクリプトファイル(*.hsp)|*.hsp|テキストファイル(*.txt)|*.txt|全てのファイル|*.*|"
	multiopen buf,info,1	;デフォルト拡張子は1番目の'as'(2にすると'txt',3で'*')

	ret=stat

	if ret=0 : mes "キャンセルされました" : else : if ret>0 {
		notesel buf
		mx = notemax
		mes "選択されたファイル数 "+mx
		wnd=0
		repeat mx
			notesel buf
			noteget a,cnt
			y=cnt*16+40:pos 220,y:mes a
			if wnd<5 {
				y=wnd*80
				pos 0,y
				notesel textbuf
				noteload a
				mesbox textbuf,200,80,1
				wnd+
			}
		loop
		pos 200,0
		if mx=1 : mes "拡張子は"+info : else : mes "フォルダ "+info
		if ret=2 : mes "read onlyボックスがチェックされています"
	}

*x8
	stop