| No.35-1 |
文字列の間のスペースを‘-’(ハイフン)に変えたい |
回答者
藤原 良允 |
1996年10月
177号 P.18 |
◆ No.35(1996年 9月号)の回答-01 (P-4G) (M68MX)
■考え方とステップ(オートプログラムで処理）
(1) 部品名の列を1桁づつに刻む。20桁なら1桁 x 20列とする。
(2) 1列目をV1に、2列目をV2に入れる。
(3) V1が文字で、V2が文字または" "ならスキップする。
(4) 列を+1し、(3)を繰り返す。
(5) V1が" "でV2が文字列ならV1が入ってたセルに"-"を書き込む。
(6) V1が" "でV2も" "なら次の行に進むか最終行なら終了する。
■オートプログラムの例としては下記の通り。
<TEST> /* 1列を1桁20列に分割する場合 */
NF;S;1;1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1/1;
FOR X10=H TO T;
FOR X1=1 TO 20;LET X2=X1+1;LET V1="";LET V2="";LET V30="-";
LET V1=[X10,X1];LET V2=[X10,X2];
IF V1="" AND V2<>"" THEN GOTO カキコミ;
IF V1="" AND V2="" THEN GOTO 次2 ELSE GOTO 次1;
$カキコミ: LET[X10,X1]=V30;
$次1: NEXT;
$次2: NEXT;
NF;J;1,20;
$終了:STOP;
|
|
|
