*disclaimer
1197740
kensakuNESS
WebGrep for NESSをWindowsアプリにしたものです。
- ダウンロードすれば、ネット接続なしで使えます。
英語例文検索アプリ
実行プログラム
kensakuNESS.exe(330)
スクリプト
kensakuNESS.hsp(212)
; kensaku NESS
; copyleft 2022-06-20 sugiura@nagoya-u.jp
; NESSの検索
;
;
#pack "NESS.txt"
screen 0, 640, 240
mes "NESS例文検索 copyleft 2022-06-20 sugiura@nagoya-u.jp"
notesel data
noteload "NESS.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
https://sugiura-ken.org/wiki/