■ 質問はここへ ■

438 にジャンプ
No. 435 題名 : パス名の強調表示について 投稿者 : YOSSY
No. 436 題名 : Re:パス名の強調表示について 投稿者 : かぶねこ HP
No. 437 題名 : Re^2:パス名の強調表示について 投稿者 : かぶねこ HP
No. 438 (435へのコメント)投稿者: 島田 HP日付: 2002/03/01 00:39:21
題名 : Re:パス名の強調表示について

島田と申します。YOSSY さん、こんにちは。

>キーワードファイルには、HTTP://だけしか書いてないのに、実際にはURLすべてが
>キーワードとして強調表示されますよね。
>これと同じように、フルパスを強調表示することはできないのでしょうか。

既にかぶねこさんがお答えになっているように現状では難しいですね。
かなり苦し紛れで、雑な上に動作が遅いですが、こんなマクロを書いてみました。
お役にたてるかどうか……。

'開いてる文書の中で実在するファイル名を強調表示
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

No. 440 題名 : Re^2:パス名の強調表示について 投稿者 : 島田 HP
No. 442 題名 : Re^3:パス名の強調表示について 投稿者 : かぶねこ HP

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


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

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