hide

今日の日付を記入する
// Date :2001/11/21
// --------------------------------------------------------------------

$DATE = 20 + date ; // 西暦が2桁で表示されてしまうので 20 を予め足し、4桁にする

//insert leftstr($DATE 10) ; // 頭8文字だけ表示 (曜日を入れたくないため) 2001/12/13

insert 【 + leftstr($DATE 10) + + rightstr($DATE 4) + 】 ; // カッコと、曜日も表示

endmacro;



// --------------------------------------------------------------------
// Name : uniq.mac
// Purpose:
// 備考 : UNIXにおける uniq コマンドと同等
// : よって同じ内容の行が並んでいる（sort済み）ときのみ重複行削除となる、
// --------------------------------------------------------------------

disabledraw;
gofiletop;
while(1){
selectline;
$$line = gettext(seltopx seltopy selendx selendy);
if($$line == $$bline){
selectline;
delete;
}
else movetolineno 1 lineno + 1;
if(lineno == linecount2) break;
$$bline = $$line;
}
enabledraw;
endmacro;



// --------------------------------------------------------------------
// Name : 重複行の削除.MAC
// Purpose:
// --------------------------------------------------------------------

//------------------ uniq.mac -------------------------------------
disabledraw;
gofiletop;
while(1){
selectline;
$$line = gettext(seltopx seltopy selendx selendy);
if($$line == $$bline){
selectline;
delete;
}
else movetolineno 1 lineno + 1;
if(lineno == linecount2) break;
$$bline = $$line;
}
enabledraw;
endmacro;