| |
こんにちは、白雲斎です。
>ただ，ひとつ難点なのが，いちいち /( の間にカーソルをポインターで動かさなけれ
>ばならないことです．left 5; なんてやってみてもエラーになります．なんとかなり
>ませんでしょうか．
「検索窓」から検索する今回の方法では、なんともなりませんね。
他には、回りくどい末尾のマクロ以外は思いつきません。
---------------------------------------------------------------
$openFileName = "d:\\haku\\seiwa_uc8.txt";
$buffName = "<buff>.$buff$";
if( !existfile($openFileName) ) endmacro;
if( basename == $buffName ) goto DoFind;
newfile;
changename $buffName;
insert "** 検索キーワードの入力 **\n";
insert "５行目の“#”の直後に入力すること！\n";
insert "入力確定後に、再び同一マクロを実行\n";
insert "【注意】メタ文字をメタ文字として取り込めない\n#";
insertfix "\n";
clearupdated;
endmacro;
DoFind:
#buffHandle = hidemaruhandle(0);
movetolineno 1, 5;
if( code != '#' ) goto ERR;
right;
beginsel;
golineend2;
$keyword = gettext(seltopx, seltopy, selendx, selendy);
if( $keyword == "" ) goto ERR;
#findWind = findhidemaru($openFileName);
if( #findWind > 0 ) setactivehidemaru #findWind;
else openfile $openFileName;
closehidemaruforced #buffHandle;
gofiletop;
searchdown2 "^/" + $keyword + "( |,)", regular, nohilight;
endmacro;
ERR:
message "検索キーワードの読み取りエラー！";
endmacro;
|
|