>いつもお願いばかりで申し訳ありません。現在編集中のファイルで使われ >ている文字列が何回現れるかを調べるマクロを希望しています。操作とし >ては: > >(1) カウントしたい文字列をハイライトする >(2) マクロを実行する >(3) 使用されている個数を表示する。
文字列の使用回数を調べるだけならば、次のマクロで実行できると思います。
proc main dim srchstr$, c, n srchstr$ = inputbox$("検索する文字列を入力してください。", " * 文字列の使用回数を調査 * ", "", "") if srchstr$ = "" or srchstr$ = chr$(&H1B) then exit proc @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 call msgbox(srchstr$ + " は " + cformat$("%d", n) + " 個見つかりました。", 0, " * 文字列の使用回数を調査 * ") end proc
文字列の強調表示に関しては、よださんの公開なさっている「単語を強調表 示するマクロ」を使うことができます。次の場所からダウンロードできます。
http://www.valley.ne.jp/~yod/sippitu.html
一つのマクロで実行することも可能でしょうが、よださんのマクロはすでに 公開されているものなので、とりあえずこのまま挙げておきます。
# マクロに何か問題がありそうでしたら、ご指摘をお願いいたします。>マク # ロ作者の方々
>p.s. qx@mxe.mesh.ne.jpにメールを送ってもどうしても受け付けられないので >こちらを見つけて質問させていただきました。 >どうぞよろしくお願いいたします。
メーリングリストは現在調子が悪いようです。いずれ復旧してからご参加く ださい。 |