PIPSの広場

Re: FILL/P でエラー

From: 千葉県松戸市：入川
日付: 01/06/08
時刻: 14:43:57
リモート名: 202.219.180.167

佐藤さん

FILL/P　を実行してから白紙頁を何とかしよう　というのはちょっと無理のようですね。

SuperPIPS からThePIPS に移行したデータには白紙頁が少なからずありました。

これが ThePIPS/Win では疫病神のようにエラーを発生させます。

タイトルのない頁・白紙頁などは Get する事も出来ません。

そこで仕方なく関数の世話になるわけです。

頁を呼び出さずに頁をチェックしてくれるのは‘LTINF$’です。

次のようにするとチェツク出来るでしょう。

対象バインダー名を‘BBBB’とします。

<TEST>

FOR X1=BINDER("BBBB") TO 1 STEP -1;　　　　 /* 最後の頁からチェック */

　　LET V1=LTINF$(4,2,"BBBB/"+NUM$(X1));　　/* タイトルの有無をチェック */

　　LET V2=LTINF$(4,8,"BBBB/"+NUM$(X1));　　/* 終行をチェック */

　　LET V3=LTINF$(4,9,"BBBB/"+NUM$(X1));　　/* 列数をチェック */

　　　　IF V1="" | V2="" | V3="" THEN GOTO $頁削除 ELSE CONTINUE;

$頁削除:　ARP;BBBB;D;%X1;Y;

NEXT;

STOP;

‘FILL/P’だと、項目行だけの頁もチェックする必要がありますね。