■ 質問はここへ ■

215 にジャンプ
No. 214 題名 : 頻度カウントマクロ(?)のお願い 投稿者 : kenmotu
No. 215 (214へのコメント)投稿者: CINEPHILE日付: 2001/09/15 00:18:17
題名 : Re:頻度カウントマクロ(?)のお願い

>いつもお願いばかりで申し訳ありません。現在編集中のファイルで使われ
>ている文字列が何回現れるかを調べるマクロを希望しています。操作とし
>ては:
>
>(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にメールを送ってもどうしても受け付けられないので
>こちらを見つけて質問させていただきました。
>どうぞよろしくお願いいたします。

 メーリングリストは現在調子が悪いようです。いずれ復旧してからご参加く
ださい。

No. 216 題名 : Re^2:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE 削除済み
No. 217 題名 : Re^2:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE
No. 218 題名 : Re^3:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE
No. 219 題名 : Re:頻度カウントマクロ(?)のお願い 投稿者 : かぶねこ HP
No. 220 題名 : Re^2:頻度カウントマクロ(?)のお願い 投稿者 : kenmotu
No. 221 題名 : Re^3:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE
No. 222 題名 : Re^4:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE
No. 224 題名 : Re^4:頻度カウントマクロ(?)のお願い 投稿者 : かぶねこ HP
No. 228 題名 : Re^5:頻度カウントマクロ(?)のお願い 投稿者 : kenmotu
No. 231 題名 : Re^6:頻度カウントマクロ(?)のお願い 投稿者 : かぶねこ HP
No. 229 題名 : Re^5:頻度カウントマクロ(?)のお願い 投稿者 : CINEPHILE
No. 230 題名 : Re^6:頻度カウントマクロ(?)のお願い 投稿者 : かぶねこ HP

全テキストを表示
順番に表示(No. 215 から)


メールアドレスを表示するにはURLの後ろに &m=bb6a9a3f をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/