Ywei です。こんばんわ。
タグジャンプすると同時に、目的の文字列にカーソルを移動させるマクロについて
教えてください。下記(1)のマクロ(QACLICK.MACよりコピー)を削除して
下記(2)のマクロを挿入すればよいのでしょうか?
(2)のマクロは、かぶねこさん紹介の「QXの導入(2)−付属ツール」よりコピーしました。
(1)
proc AutoClicked
'stopdestroykey 3
if @@ClickableURL then
if fdbl = 0 then httpJump
end if
end proc
(2)
proc AutoClicked
dim s$, n
if @Pathname$ = "(無題)" then
s$ = @TextCr$(@Line)
'次行で QGREP の設定「その他」のファイル名見出しを設定
if left$(s$,1) = "◆" and right$(s$,1) = ":" then
s$ = @TextCr$(@Line + 1)
'次行で QGREP の設定「その他」のマッチした場所文字列を設定
n = instrb(s$, "◆")
@Tagjump
@BytePosCr = n
if @Code > &h7E then
imemode 1
else
imemode 2
end if
exit proc
end if
end if
end proc
以上よろしくお願いします。 |