|
山田健一さん今日は、Iranoan です。
> $(AdrBook,"グループ名")$-
> で新規メッセージ作成時にグループを指定してアドレス帳が開けるのはうれしい
> ですが、これを共通に設定したいと考えています。
こういうことは、現状ではマクロを書けばよいです。末尾のマクロを「送信
用エディタ起動時」に指定してください。
あと ReplaceStr の様な関数を用意することは反対ではありません。しかし、
何時も検索でヒットする文字列全てを置換したいとは限らないでしょうから、
-1 なら全てでそれ以外ならその個数だけ置換、といった引数の指定が必要に
なると思います。
//--------------------------------------------------------------------
loaddll "tkinfo.dll";
$$return = dllfuncstr( "CurrentFolder" );
if( leftstr( $$return, 5 ) == "User\\" )
$$return = rightstr( $$return, strlen( $$return ) - 5 );
call ReplaceStr $$return, "\\", "/";
#tmp = dllfunc( "AdrBook", $$return );
freedll;
endmacro;
ReplaceStr://buffer 中の文字列を置換
##change_char=strlen($$2);
$$string = "";
while(1){
##number = strstr($$1, $$2);
if(##number == -1)break;
else{
##long = strlen($$1);
$$string = $$string + leftstr($$1, ##number) + $$3;
$$1 = rightstr($$1, ##long - ##number - ##change_char);
}
}
return $$string + $$1;
|
|