| |
// テキスト処理の魂（懐古趣味） デジタルネイティブは スクリプトを書け
// 補助線を引くように、処理に必要な区切り記号を使うのがミソ
gofiletop; //頭出し
LOOP1: // 固定長行番号
replacedown "^",rightstr("0000"+str(lineno),5)+"&",regular ;
if(result) goto LOOP1;
replaceallfast "^(.+)&(.+)&(.+)&(.+)&(.+)&(.+)$","\\1&\\2\n\\1&\\3\n\\1&\\4\
n\\1&\\5\n\\1&\\6\n\\1&●",regular;
gofiletop; //頭出し
selectall; // allfast は結果ダイアログ表示ででフォーカスが戻る?
run "sort <con >con";
//endmacro;
replaceallfast "[0-9]{5}&","",regular; // allfast は結果ダイアログ表示ででフ
ォーカスが戻る?
replaceallfast "([^●])\n","\\1&",regular; // 元の行を再生
replaceallfast "&●|●|&$","",regular; // 後始末の 出たトコ勝負の雰囲気
endmacro;
searchdown "^",regular ;
insert "{"+str(lineno)+"}";
endmacro;
|
|