[ 目次 | 検索 | 発言 | 返信 | 次へ | 前へ | 上へ ]
From: 元山（千葉県）
日付: 01/06/10
時刻: 9:37:38
リモート名: 61.121.37.197
佐藤さんへ
佐藤さんの現象はページにデータ行がまったく存在しないとき、FILLの作業で エラーで落ちることですね。これは私も体験していますので、 入川さんのプログラムの1部を変更するだけでＯＫです｡
<TEST>
FOR X1=BINDER("BBBB") TO 1 STEP -1; /* 最後の頁からチェック */
G;BBBB/%X1;
/* この下の行の IF T<H がもしデータがなかったらという意味です */
IF T<H THEN GOTO $頁削除 ELSE CONTINUE;
$頁削除: ARP;BBBB;D;%X1;Y;
NEXT;
STOP;