07/01/21 12:03:31 URcoeqK70
分割発言の１
COBOLの行番号削除マクロを作っています。
COBOLのソースプログラムは１行８０バイトの固定長で
行番号は頭６文字と末尾の８文字にありますが、設定によって０になったり
スペースになる場合もあります。
sample.cob
000000 IDENTIFICATION DIVISION. 00000100
000000 PROGRAM-ID. TEST-PGM. 00000200
000000 ENVIRONMENT DIVISION. 00000300
000000 DATA DIVISION. 00000400
000000 01 LEVEL-01. 00000500
000000 03 LEVEL-03 PIC X(01). 00000600
000000 PROCEDURE DIVISION. 00000700
000000 DISPLAY "HELLO WORLD!" 00000800
000000 GOBACK. 00000900
秀丸の場合
replaceall "^[ 0-9]{6}","",regular;
replaceall "[0-9]{8}$","",regular;
replaceall " +$","",regular;
endmacro;