| |
TAKA です。
>新規に秀丸に貼り付けて、置換して、コピーして、閉じる。
>なんてダサいことをしたくないんで。
特定の文字列を特定の文字列に置換するサブルーチンを作ればよい
です。
// テストマクロ（ここから）
$Str = "01/11/30";
call Replace $Str, "/", ""; // 「/」をヌルに置換
$Str = $$return;
message $Str;
$Str = "03-4567-8910";
call Replace $Str, "-", ""; // 「-」をヌルに置換
$Str = $$return;
message $Str;
endmacro;
// 文字列置換
// $$1:置換対象文字列 $$2:置換前文字列 $$3:置換後文字列
// $$return 置換後文字列
Replace:
##Len = strlen( $$1 );
##BLen = strlen( $$2 );
##ALen = strlen( $$3 );
$$Str = "";
$$StrWk = $$1;
// 置換対象文字列から置換前文字列を検索し置換後文字列に変更
while( 1 )
{
##Pos = strstr( $$StrWk, $$2 );
if( ##Pos == -1 )
{ // 置換前文字列がない
break;
}
$$Str = $$Str + leftstr( $$StrWk, ##Pos ) + $$3;
$$StrWk = rightstr( $$StrWk, strlen( $$StrWk ) - ( ##Pos + ##BLen ) );
}
$$Str = $$Str + $$StrWk; // 残りの文字列を連結
return $$Str;
// テストマクロ（ここまで）
|
|