トップ 差分 一覧 Farm ソース 検索 ヘルプ PDF RSS ログイン

kensakuNESS

*disclaimer
247059

[HSP]
HSP

kensakuNESS

WebGrep for NESSをWindowsアプリにしたものです。

  • ダウンロードすれば、ネット接続なしで使えます。

 英語例文検索アプリ

実行プログラム

kensakuNESS.exe(5)

スクリプト

kensakuNESS.hsp(1)

; 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"

	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 : goto *search: break
	await 1
	loop

	stop


*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