| |
>データ例
>REM/BLA/0,0,0,0,0,0,0,0 '消去
>BLF/1,2, 3, 3,0*8,-408 '
> /1,2, 2, 2,0*2,+119,+235,350*5
> /1,2,102,102,-301
>REM/BLS/103,2,3, 3, 3,-50 '消去
>BLR/ 2,2,2,101,109,216 '
>REM/ 2,2,2,105,109,-28.9 '消去
> / 2,2,2,104,104,-32.4 '消去
> / 2,2,2,103,103,-36.2 '消去
> / 2,2,2,101,102,-40.0 '消去
> / 1,2,2,101,102,-56.2 '消去
>BLB/2, 1, 1,101,104 '
>SG /FG105,50,100,, , '
> /FG104,45,100,, ,
> /FG103,30,100,, ,
>
>REM行及びREM行から次のレコードに変わる間のレコード名のない(REM行と同じと見
>なす)行を削除して
>
こんな感じでいかが？
先頭3文字だけで判断
//---------------------------------
gofiletop;
#l = y;
#remflg = false;
while(#l < linecount2 -1){
$top = gettext2(0, #l+1, 3, #l+1);
//message($top);
if( $top == "REM" ){
// 行削除
deleteline;
// REM有効範囲
#remflg = true;
} else if( $top == " " ){
// REMの続きか？
if( #remflg ){
// 行削除
deleteline;
} else {
// REMでない続き
down;
#l = y;
}
} else {
// REMでも空白でもない
down;
#l = y;
// REM有効範囲でない
#remflg = false;
}
};
|
|