試用中のNAGと申します．
WordStar風の２ストロークキー，ダイアモンドカーソル等をきちんと実現し
てくれるEditorがあまりなくて，やっとQXにたどりつきました． SetUp画面
で WordStar風とあるのに感激し，実際使ってみてまた嬉しくなりました．

しかし，ここでお尋ねしてよいのかわかりませんが（MLには参加していません），
私の環境では初期立ち上げ時などでツールバーが表示されるとき，著しく表示の速
度が遅いのです．ツールバーのアイコンが左から1秒おきぐらいにトントントンと
いった具合で表示されるのです．また，「ファイル」や「編集」などのプルダウン
メニューが表示されるときも，非常に遅いのです．文章そのものは一瞬で表示され，
カーソル移動，スクロール等の実際の編集作業は何の問題も無く快適です．
インストール時には「シンプル」（という表現だったと思います）を選んでいます．
ちなみに，マシンは東芝Libretto L1，OSはWindowsMe，他のアプリケーションで
は特にこのような現象は見られません．
QXが使いやすそうなだけに，この現象が気になり，使い続けようか迷っていると
ころです．何らかの設定で改善できるでしょうか？　コメントをいただければ幸
いです.

>いった具合で表示されるのです．また，「ファイル」や「編集」などのプルダウン
>メニューが表示されるときも，非常に遅いのです．文章そのものは一瞬で表示され，

　アニメーションがONになっているような気がします。
　アニメーションはWindowsの機能で、それらをわざと遅く
表示する機能です。なぜかQXはこれがかなり遅いようですが、
よく考えるとアニメーションがONになっているのに、OFFの
時と同じ動作をする(QX以外のほとんどの)プログラムの方が
おかしいような気もしないでもないような気がするような。

　そんなこんなで、アニメーションをOFFにしてみてください。
デスクトップを右クリックしてプロパティの中の効果に
あります。

itamさん，さっそくコメント有難うございます．

>　そんなこんなで、アニメーションをOFFにしてみてください。
>デスクトップを右クリックしてプロパティの中の効果に
>あります。

早速，調べてみましたが，もともとアニメーション等の視覚効果は
すべてOFFにして使っていました．ONにしてみても，ほとんど現象
にはかわりがありません．


　

こういうのはメーリングリスト向けの話題だと思います、が、現在メーリングリ
ストが不調で、参加して作者に質問してください、とも言えない状況です。

いま、メーリングリストの全過去ログに QGrep をブロック検索で「表示 and 遅」
でかけてみました。「常駐ウイルスソフトの影響」というのがひっかかって
きました。Virus Scan やウイルスバスターのリアルタイム監視モードとの相性
が悪いようです。

念のため最新版を使ってみてください。それでもダメならやっぱり作者に対応し
てもらえるメーリングリストで相談なさるしかないかもしれません。

いつもお願いばかりで申し訳ありません。現在編集中のファイルで使われ
ている文字列が何回現れるかを調べるマクロを希望しています。操作とし
ては:

(1) カウントしたい文字列をハイライトする
(2) マクロを実行する
(3) 使用されている個数を表示する。

というものです。

現在、検索と置換のボックスに同じ文字列を入力して、[全置換] で置換
回数を確認しているのですが、これをもっと簡単にできたらと思った次第
です。

ご尽力いただければ幸いです。

p.s. qx@mxe.mesh.ne.jpにメールを送ってもどうしても受け付けられないので
こちらを見つけて質問させていただきました。
どうぞよろしくお願いいたします。

========
KENMOTU Kensaku
kecxo@muzika.forum.ne.jp

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

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

　ちょっと訂正です。

　@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

>(1) カウントしたい文字列をハイライトする
>(2) マクロを実行する
>(3) 使用されている個数を表示する。

　ちょっと趣旨を誤解していました。

　@Redraw = 0 の前の行までを、次のように変更するとご希望通りではないか
と思います。

proc main
dim srchstr$, c, n
if @Select = 1 or @Select = 2 then
@BlockClipboardCopy
srchstr$ = clipboard$()
else
srchstr$ = inputbox$("検索する文字列を入力してください。", " * 文字列の使用回数を調査 * ", "", "")
if srchstr$ = "" or srchstr$ = chr$(&H1B) then exit proc
end if

　まだ慣れないもので、たびたび訂正してすみません。

そうなんです、メーリングリストの調子が悪いようで……。

すでに CINEPHILE さんがマクロをアップしてくださってますが、もっと原始的
に、全置換の個数確認を自動実行するだけだと、こんなのになります。ステータ
スバーに「n 個置換しました」と表示されるのを見落とさないで読む必要があり
ます。

proc main
dim n, s$
if @Select = 0 then exit proc '選択してないと実行しません
s$ = @TextSelect$
@Select = 0
n = @@FindFromTop
@@FindFromTop = 1
@UndoBlock = 1
@ReplaceString2 s$, s$, 1
@UndoBlock = 0
@@FindFromTop = n
end proc

そういえば、この置換個数をマクロで参照できたらいいのに、と以前から思って
たんですが、できないんですよね。なんか方法あるのかもしれませんが……。