| |
杉浦さん今日は、ひろです。
> マクロライブラリーを検索しましたが、全角文字と半角文字の間に半角スペースを
>挿入
> マクロがないのですが、どなたか紹介いただけませんか。
下記のマクロで如何でしょうか? 括弧など一部の記号は例外処理をしています。
//全角文字と半角文字 (半角カタカナ含まず) の間に半角スペースを挿入
//*******検索状態を保持
$search=searchbuffer;
#search=searchoption;
#bx=x;
#by=y;
replaceallfast
"[%0-9a-zA-Z'\\)\\]}>\\\\\\.,!\\?-]\\f[ーぁ-んァ-ヶ亜-\\xFC\\x4B]",
"\\0 \\1",regular;
replaceallfast
"[ーぁ-んァ-ヶ亜-\\xFC\\x4B]\\f[0-9a-zA-Z`\\(\\[{<\\\\-]",
"\\0 \\1",regular;
replaceallfast
"\"[^\"]*[ーぁ-んァ-ヶ亜-\\xFC\\x4B]\"\\f[ーぁ-んァ-ヶ亜-\\xFC\\x4B]",
"\\0 \\1",regular;
replaceallfast
"[ーぁ-んァ-ヶ亜-\\xFC\\x4B]\\f\"[^\"]*[ーぁ-んァ-ヶ亜-\\xFC\\x4B]\"",
"\\0 \\1",regular;
moveto #bx,#by;
//******検索を初期状態に戻す
setsearch $search, #search;
|
|