ちょっと訂正です。
@Redraw を入れたのと、検索結果を表示するメッセージボックスで、検索文 字列をダブルクオートで囲むようにしました。
'文字列の使用回数を調査 proc main dim srchstr$, c, n srchstr$ = inputbox$("検索する文字列を入力してください。", " * 文字列の使用回数を調査 * ", "", "") if srchstr$ = "" or srchstr$ = chr$(&H1B) then exit proc @Redraw = 0 @MoveFileTop c = len(srchstr$) if left$(@TextCr$(@Line), c) = srchstr$ then n = 1 end if do while 1 @FindStringBottom srchstr$ if @@SearchFound = 0 then exit do n++ loop @Redraw = 1 call msgbox("""" + srchstr$ + """" + " は " + cformat$("%d", n) + " 個見つかりました。", 0, " * 文字列の使用回数を調査 * ") end proc |