| |
こんな感じです ...
//*1 a1.mac
// <== コメントです。
if( updated ){ endmacro; } // 更新中は出来ません !!!
// ヘルプの「検索」で「正規表現」を参照して下さい。
// ^ 行の初めに 1 が在って 次が改行 \n で在れば ==> \x0C 改行に置き換える。
replaceall "^1\\n", "\x0C", regular, ask; // ask, は確認です。
// replaceall "^1\\n", "\x0C", regular;
// replaceallfast "^1\\n", "\x0C\\n", regular; // 改行を生かす !!!
// print; // 印刷です。
if( basename != "" ){ reopen; } // 無題でなければ「最初からやり直し」
gofiletop;
setsearch "", 0x00; // 記憶にありません !
endmacro;
余談ですが、メインフレームとかのプリンタ制御コードの置き換えですか ???
replaceall "^1", "\x0C\x20", regular; // 改ページ
replaceall "^0", "\\n\x20", regular; // 改行 1
replaceall "^-", "\\n\\n\x20", regular; // 改行 2
gofiletop;
endmacro;
|
|