| |
恭平さん，こんにちは。
秀まるおさんの教示で解決されたのであれば，蛇足かも知れませんが。
一般的に重複行を削除するだけでしたら，次のマクロでいけるでしょう。
//-----------------------------------
//重複行の整理
disabledraw;
gofiletop;
while( code != eof ) {
#line = lineno;
beginsel;
golineend2;
$s = gettext( seltopx, seltopy, selendx, selendy );
if( $s != "" ) {
while(1) {
searchdown $s;
if( result ) {
deleteline;
up;
} else break;
}
}
movetolineno 1, #line + 1;
if( lineno == #line ) break;
}
endmacro;
//-----------------------------------
もし，サンプルのように２行＋改行で１セットになっており，かつファイルの
初めからデータが並んでおり，２行目が同じものがあればセットごと削除したい
ということでしたら，
//-----------------------------------
//重複セットの整理
disabledraw;
gofiletop;
while( code != eof ) {
movetolineno 1, #line + 1;
#line = lineno;
beginsel;
golineend2;
$s = gettext( seltopx, seltopy, selendx, selendy );
if( $s != "" ) {
while(1) {
searchdown $s;
if( result ) {
up;
deleteline;
deleteline;
deleteline;
up;
} else break;
}
}
movetolineno 1, #line + 1;
if( lineno == #line ) break;
}
endmacro;
//-----------------------------------
では， (^^)/~
山紫水明
|
|