| |
john_j_ramboさん，こんにちは。
》数千行あるテキストデータで、行が同じ内容のものがある場合
》１行だけ残して整理したいのですが、何か方法はありますか？
以前に作ったものですが，お役にたてば。
//------- 行単一化.Mac ----------------------------------------//
$sb = searchbuffer;
#so = searchoption;
disabledraw;
gofiletop;
while( code != eof ) {
#topx = x; #topy = y;
golineend2;
#endx = x; #endy = y;
$s = gettext( #topx, #topy, #endx, #endy );
if( $s == "" ) {
down;
continue;
}
movetolineno 1, lineno + 1;
#y = lineno;
beginsel;
gofileend;
replaceallfast $s, "", inselect;
#c = #c + result;
movetolineno 1, #y;
}
replaceallfast "^\\n", "",regular;
enabledraw;
message str( #c ) + " 行削除しました。"; //必要なければ消す。
setsearch $sb, #so;
endmacro;
//------------------------------------------------------//
では， (^^)/~
山紫水明
|
|