２行にわたる文を１行に置換してつなぐNo.10713
popper さん　25/06/13 10:57
　
［置換前］
Ａ
Ｂ／Ｃ

といった２行を

［置換後］
Ａ　Ｂ

と１度で１行に置換するマクロを作りたいのですが、やり方が分かりません。

※Ａ、Ｂ、Ｃは１文字ではなく、文字列を表しています。
※置換後は、ＡとＢの間に全角空白を入れています。
※置換後は、／Ｃは削除しています。

／Ｃを削除した後、Ｂを上の行のＡの後につなごうとしているのですが、解決できま
せん。


よろしくお願いいたします。
[ △ ]
RE:10713 ２行にわたる文を１行に置換してNo.10714
おすぎ さん　25/06/13 11:54
　
popper さん、こんにちは。
おすぎです。

こんな感じで良いと思いますが。

replacedown "^(.+)\n(.+)／(.+)$", "\\1　\\2", regular;
[ △ ]
RE:10714 ２行にわたる文を１行に置換してNo.10715
おすぎ さん　25/06/13 11:56
　
おすぎです。

バックスラッシュ「\」は、半角「￥」マークのことです。
[ △ ]
RE:10715 ２行にわたる文を１行に置換してNo.10716
popper さん　25/06/13 12:29
　
おすぎさん、ありがとうございます。

希望通りの置換ができたのですが、カーソルの下にある１つの対象にしか、置換が行
われません。

①ファイル全体にわたるすべての対象に対して
②カーソルより下のすべての対象に対して
③選択した範囲のすべての対象に対して

この置換を行うにはどうすればよろしいでしょうか？

自分なりに調べても解決できませんでした。

※inselect といったオプションがあるので、付けてみましたが動作は変わらず、
カーソルより下にある１つの対象しか置換されません。
範囲を選択後にやっても同様で、範囲内の最初の１つの対象しか置換されません。

ご教授よろしくお願いします。
[ △ ]
RE:10716 ２行にわたる文を１行に置換してNo.10717
おすぎ さん　25/06/13 13:04
　
poper さん、こんにちは。
おすぎです。

こんな感じで良いと思います。


#curx = x;
#cury = y;

menu "・ ファイル全体で置換", "・ カーソルより下で置換", "・ 選択範囲で
置換";

if(result == 1) replaceall "^(.+)\n(.+)／(.+)$", "\\1　\\2", regular;

else if(result == 2){
while(1){
replacedown "^(.+)\n(.+)／(.+)$", "\\1　\\2", regular;
if(result!) break;
}
}

else if(result == 3){
if(selecting){
replaceall "^(.+)\n(.+)／(.+)$", "\\1　\\2", inselect, regular;
}
}
moveto #curx, #cury;

endmacro;
[ △ ]
RE:10717 ２行にわたる文を１行に置換してNo.10718
popper さん　25/06/13 15:04
　
おすぎさん、ありがとうございます！

希望通りの機能が実現できました。
置換範囲もメニューで選択できるようにしていただいたので、希望以上の満足です。

迅速で丁寧な対応、本当にありがとうございました。
[ △ ]
RE:10718 ２行にわたる文を１行に置換してNo.10719
igus さん　25/06/13 22:50
　
すでに解決済みですが別解を考えてみました。メニューを使わない方向で。

//２行にわたる文を１行に置換してつなぐよ.mac

//shiftを押しながら：カーソルより下
//選択なし：全範囲対象
//選択あり：選択範囲対象

//iskeydown(0x10))：shiftを押してる
//iskeydown(0x11))：ctrlを押してる
//iskeydown(0x12))：altを押してる

begingroupundo;
if(iskeydown(0x10)){
  escape:beginsel;gofileend;
}else if(!selecting){
  selectall;
}
replaceallfast "^(.+)\n(.+)／(.+)$", "\\1　\\2", regular,inselect2;
endgroupundo;endmacro;
[ △ ]