| |
とりあえず、僕が昔作ったマクロの中の、変換の部分を山紫水明さんのに入れ替え
たマクロを作ってみました。
変換対象の行としては、
行頭が「・」や「①～⑳」でない
「。」を含まない
折り返しした行数が７行以上
を対象とするようにしてみました。
setcompatiblemode 0x00000100;
gofiletop;
while(1) {
searchdown "^(?![・①-⑳])(?!.*。)(?=.*\\(.*\\)\\(.*\\)).*$", regular;
if( !result ) {
//message "not found";
break;
}
golinetop2;
#ytop = y;
golineend2;
#yend = y;
if( #yend - #ytop + 1 < 7 ) {
//7行でなければ対象外。
//message "#yend - #ytop = " + str(#yend - #ytop);
continue;
}
#xend = x;
$s = gettext( 0, #ytop, #xend, #yend );
loaddll "hmjre.dll";
//message $s;
$result = dllfuncstr("ReplaceRegular"
, "(?<!\\))(\\(.+\\(.+\\))(?!\\()"
, $s
, 0
, "\\n\\n\\1\\n\\n"
, 2 );
$result = dllfuncstr("ReplaceRegular"
, "\\)\\("
, $result
, 0
, ")\\n("
, 2 );
if( $result != $s ) {
beginsel;
golinetop2;
begingroupundo;
delete;
insert $result;
endgroupundo;
}
}
|
|