| No.111-3 |
(株)を除いてある社名に(株)をつけたい |
回答者
牧野 董 |
2000年08月
223号 P.15 |
◆ No.111(2000年 07月号)の回答-3
|
|
今回の大根さんの質問に依る回答は、何れもかなり高度な手法と思われましたので、私レベルの、初歩的な、コマンドによる回答をトライしてみました。
簡単な質問1の方(TEST1)はアマチュアと思いますが、複雑な質問２の方(TEST2)は内海さんや入川さんのように直接書込んだほうがましですね。
オートを下記に掲載します。大根さんの参考になれば幸いです。
1 <TEST1> 後株のみの場合
2 IC;S;N;6;; /* 社名列の後に空白列作成 */
3 FILL;(株);A;T;Y; /* その列に(株)を書込む */
4 CJ/C;P;R;A;2; /* 社名列を右寄せ */
5 P;L;A;3;ESC; /* (株)列を左寄せ（念の為) */
6 NF;J;2,3; /* 両列を結合 */
7 CJ;P;L;A;2; /* 仕上げとして左寄せ */
8 STOP
9
10 <TEST2> 後株、前株混在の場合
11 IC;S;2,3;6;;; /* 社名列の後に空白列作成 */
12 FOR X1=H TO T;
13 IF [X1,5]="1" THEN GOTO $後株; /* 第５列の1,2 */
14 IF [X1,5]="2" THEN GOTO $前株 ELSE STOP; /* により、後株 */
15 $後株: LET [X1,4]="(株)";CONTINUE; /* 前株を記入 */
16 $前株: LET [X1,2]="(株)";
17 NEXT;
18 CJ/C;P;R;A;2,3; /* 前株列と社名列を右寄せ */
19 P;L;A;4;ESC; /* 後株列を左寄せ（念の為) */
20 NF;J;3,4; /* 後株列と社名列を結合 */
21 CJ;P;L;A;3; /* 結合した列を左寄せ */
22 NF;J;2,3; /* 前株列と結合 */
23 CJ;P;L;A;2; /* 仕上げとして左寄せ */
24 STOP
|
□
|
|
