島田と申します。YOSSY さん、こんにちは。
>キーワードファイルには、HTTP://だけしか書いてないのに、実際にはＵＲＬすべてが
>キーワードとして強調表示されますよね。
>これと同じように、フルパスを強調表示することはできないのでしょうか。
既にかぶねこさんがお答えになっているように現状では難しいですね。
かなり苦し紛れで、雑な上に動作が遅いですが、こんなマクロを書いてみました。
お役にたてるかどうか……。
'開いてる文書の中で実在するファイル名を強調表示
const k_num = 3 '使用するキーワードファイルの番号
proc main
dim line, pos, mode
dim f_l, f_p, j
'編集状態取得
if @hwnd = 0 then exit proc
if @Select <> 0 then
call msgbox("選択中は実行できません。")
end if
'カーソル位置記憶
line = @Line
pos = @BytePosCr
'キーワードファイル書き込み準備
open @@KeywordFile$(k_num) for append as #1
'検索開始
@@Redraw = 0
@MoveFileTop
if @@FindRegExp = 0 then
@@FindRegExp = -1
mode = 1
end if
@FindStringBottom "[A-Za-z]:\\"
do while @@SearchFound
f_l = @Line
f_p = @BytePosCr
'検索位置で開始する文字列取得
do
j = @BytePosCr
@MoveRightCharSel
if @BytePosCr = j then exit do
'存在するファイル名（ディレクトリ以外）なら強調表示
if dir$(@TextSelect$, 0) <> "" and dir$(@TextSelect$, &H10) = "" then
print #1, @TextSelect$
exit do
end if
loop while lenb(@TextSelect$) < 256
@BlockSelect
@Line = f_l
@BytePosCr = f_p
@FindStringBottom "[A-Za-z]:\\"
loop
close #1
if mode then @@FindRegExp = 0
'カーソル位置に戻る
@Line = line
@BytePosCr = pos
'キーワード強調
@@KeyWordReset k_num
end proc |
