| |
>ファイルに同一内容の複数の行がある場合に、
>重複している余分な行を削除して、整理するマクロを作りたいのですが、
こんな感じです。
a1.mac です。
// "Delete Same Word "
ppkn_del_same_word1:
question "Delete Same Word ?";
if( ! result ){ endmacro; }
escape; gofiletop; disabledraw; disableinvert;
selectword; // delete same word - 単語
$wk1 = gettext(seltopx,seltopy,selendx,selendy);
escape; down;
while( code != eof){
selectword; // delete same word - 単語
$wk2 = gettext(seltopx,seltopy,selendx,selendy);
escape;
if( $wk1 == $wk2 ){
deleteline;
} else {
$wk1 = $wk2; down;
}
}
gofiletop; enabledraw;
endmacro;
a2.mac です。
// "Delete Same Line "
ppkn_del_same_line1:
question "Delete Same Line ?";
if( ! result ){ endmacro; }
escape; gofiletop; disabledraw; disableinvert;
selectline; // delete same line - 行
$wk1 = gettext(seltopx,seltopy,selendx,selendy);
escape; down;
while( code != eof){
selectline; // delete same line - 行
$wk2 = gettext(seltopx,seltopy,selendx,selendy);
escape;
if( $wk1 == $wk2 ){
deleteline;
} else {
$wk1 = $wk2; down;
}
}
gofiletop; enabledraw;
endmacro;
あとは、Vector とかで SSORT32.exe とかを使用すると、
ソート、重複行の削除が、メチャ速くなります。
試してはいかがですか ...
|
|