| No.111-2 |
(株)を除いてある社名に(株)をつけたい |
回答者
入川 精二 |
2000年08月
223号 P.14 |
◆ No.111(2000年 07月号)の回答-2
|
|
質問者の希望が「オート」ということなので、最も簡単なオートプログラムを作りました。
<A1>
FOR X1=H TO T;
LET [X1,@社名 ]=[X1,@社名 ]+"(株)";
NEXT;
STOP;
使用する変数は‘`X1’だけです。
|
<A2>
FOR X1=H TO T;
GOTO $#%([X1,@区 ]);
$#1: LET [X1,@社名 ]=[X1,@社名 ]+"(株)";
CONTINUE;
$#2: LET [X1,@社名 ]="(株)"+[X1,@社名 ];
NEXT;
STOP;
この場合、分岐のための‘IF文’は必要ありません。変数も‘X1’だけです。
データが複数頁ある時はA1/Pのように‘/P’モードを使ってバインダーを指定します。
所謂「コマンド」を一つも使わないこの種のプログラムは、コマンドを使う場合に比べて記述が短くて済みます。そのかわりロジックをしっかり考えておかないと思わぬ落とし穴があったりします。注意が必要です。
|
|
□
|
|
