| No.111-1 |
（株）を除いてある社名に（株）をつけたい |
回答者
内海 孝 |
2000年08月
223号 P.13 |
◆ No.111(2000年 07月号)の回答-1
<TEST1>
ACD;2;abcdefghijklmnop(株);Y;CJ;D;A;2;
STOP
◆ 社名列の桁数は20、文字位置は左寄せとします。
◆ オートを作成しないで、ACD指令、IC指令の入力でもOK。
<TEST2>
FOR X1=H TO T;
LET V1=[X1,@社名 ];LET [X1,@社名 ]=V1+"(株)";
NEXT;
STOP
◆ 社名列の桁数は20、文字位置はいずれの場合(左寄せ、中央、右寄せ)でもOK。
<TEST3>
FOR X1=H TO T;
LET V1=[X1,@社名 ]);IF [X1,@C3 ]="1" THEN GOTO $R ELSE GOTO $L;
$R: LET [X1,@社名 ]=V1+"(株)";CONTINUE;
$L: LET [X1,@社名 ]="(株)"V1;
NEXT;
STOP
◆ 社名列の桁数は20、文字位置はいずれの場合(左寄せ、中央、右寄せ)でもOK。
- ※ 1頁の場合は、実行後登録して下さい。
- ※ 複数頁を処理するときはオートタイトル名/Pで、ページ間処理が出来ます。
- ※ 社名列が(株)を含めて20桁以上となるデータがあるときは、予め全頁の社名列の桁数を変更して置く必要があります。<TEST1>は、更に、並べ替えの順序［abcd......(株)]を修正する必要があります。
|
□
|
| |
