{{category HSP}}
HSP
!!!kensakuNESS
*例文検索アプリ
{{ref kensakuNESS.exe}}
{{ref_text kensakuNESS.hsp}}
{{pre
; kensaku NESS
; copyleft 2022-06-20 sugiura@nagoya-u.jp
; NESSの検索
; 
;
#pack "NESS-windows.txt"

	screen 0, 640, 240
	mes "NESS例文検索 copyleft 2022-06-20 sugiura@nagoya-u.jp"
	notesel data
	noteload "NESS-windows.txt"


;	mes notemax

	teiji = ""
	kensakusita = "検索語（単語の前後にスペースを入れて見てね）"
	pos 20, 20
	button goto "Start", *sagasu
	stop
	
*sagasu

	cls

	kensaku = ""
	pos 20, 0
	font msmincho, 18
	mes "NESS例文検索 copyleft 2022-06-20 sugiura@nagoya-u.jp"
	pos 20, 20
	objsize 180,24
	input kensaku
	pos 220, 20
	objsize 60,24
	button goto "検索", *search 
	objsel 0						; inputオブジェクトへキャレットを入れる
	pos 20, 50
	font msmincho, 18
	mes kensakusita
	pos 20, 80
	mesbox teiji, 580, 140, 0, 0

	repeat							; ボタンでなくEnterキーで次へ
		stick enter
		if enter==32 : gosub *search: break
	await 1
	loop

	
stop


;----------------sub--------------
*search
	teiji = ""
	pos 320, 20: mes "Pleaes wait ..."
	repeat notemax
		;pos 200, 50: mes cnt, 1: mes " / ", 1: mes notemax
		noteget gyo, cnt
		atai = 0
		atari = ""
		atai = instr(gyo, 0, kensaku)		; gyoの中にkensakuがあるか？
		if atai != -1{						; 無い場合ではない場合（ある場合）
			teiji = teiji + "\n\n" + gyo		; 提示する変数に加える
		}

	;await 1
	loop
	if teiji == "": teiji = "NA"
	kensakusita = kensaku			; 検索語を見出しとして表示させるため
	goto *sagasu



}}