半角文字の前後にスペースですがNo.05463
og さん 02/02/21 16:17
 
 いつもお世話になってます。

 半角英数字の前後に半角スペースを入れるマクロを
便利に使わせて頂いております。

 [hidesoft.2:09005]でENCODINGSHIFTJISさんに
教えていただいたものです。
 秀丸で使っているので、鶴亀でも使いたいと
以前から思っているのですが、当然、全文にわたって
スペースが入ってくれるので、範囲を指定できるか、
引用行には実行しないようにするにはどうすれば
いいのでしょうか。

 もう少し贅沢を申しますと、書いた後でマクロを実行する
のではなく、リアルタイムに半角スペースが挿入できると
便利です。

// WaOubnSP.mac
// 和欧文語間の設定
$oobunM="[0-9A-Za-z]+";
$wabunM="[、-熙]+"; // 調べる気力無しで適当
//
replaceallfast $oobunM+"\\f"+$wabunM,"\\0 \\1",regular;
replaceallfast $wabunM+"\\f"+$oobunM,"\\0 \\1",regular;
//    範囲は全体   単純な形では.
// jjjjかか かkkkk kkk kkk rr rmmmmggg99

[ ]
RE:05463 半角文字の前後にスペースですがNo.05480
山紫水明 さん 02/02/21 21:58
 
 ogさん,こんばんは。

》以前から思っているのですが、当然、全文にわたって
》スペースが入ってくれるので、範囲を指定できるか、
》引用行には実行しないようにするにはどうすれば
》いいのでしょうか。

 自分で使っているもので,少し文字の定義が異なっていますが,範囲選択して
実行できます。
 引用行だけ実行しないというようにすることも可能ですが,範囲選択で十分の
ような気がします。

//----------------------------------------------------------------------//
if(selecting){
    #select = 1;
    #by = seltopy;
    #ey = selendy;
}
disableinvert;
replaceallfast "[ーぁ-K]\\f[!-z_0-9]+","\\0 \\1", regular, inselect;
if(#select) call Re_select #by, #ey;
replaceallfast "[!-z_0-9]+\\f[ーぁ-K]","\\0 \\1", regular, inselect;
endmacro;

Re_select:  //選択範囲の再設定
  moveto 0, ##1;
  beginsel;
  moveto 0, ##2;
  return;
//----------------------------------------------------------------------//

》 もう少し贅沢を申しますと、書いた後でマクロを実行する
》のではなく、リアルタイムに半角スペースが挿入できると
》便利です。

 こちらは,今のところ無理です。将来的にはわかりませんが。

     では, (^^)/~
                                        山紫水明

[ ]
RE:05480 半角文字の前後にスペースですがNo.05489
og さん 02/02/22 11:09
 
山紫水明さん、ありがとうございます。

これで範囲を指定して実行することができました。
ENCODINGSHIFTJISさんのマクロ共々、大事に使わせていただきます。

ありがとうございました。

[ ]