| No.35-3 |
文字列の間のスペースを‘-’(ハイフン)に変えたい |
回答者
榎村 暢文 |
1996年10月
177号 P.20 |
◆ No.35(1996年 9月号)の回答-03
通常'CU'コマンドを使うことがすぐに頭に浮かびますが、'CU'コマンドでは文字列の前後にあるスペースにまで"-"を記入してしまいます。
そこで、1データ毎にスペースの位置を確認し、"-"に置きかえることを考えました。しかし、もし全角のスペースであったら、このスペースは"--"になります。
これを”ー”にするために3行目の置き換えが必要になりました。
もし、全角のスペースも半角の"="に置きかえるならば、"ー"を"-"に置き換えてください。
この手順は飛び先の指定を変更するだけで、PIPS-4Gでも即実行できます。
<HAIHON>
FOR X1=4 TO T;LET V1=[X1,1];
$A:LET X10=INSTR(1,V1," ");IF X10=0 THEN GOTO $B;
IF MID$(V1,X10+1,1)=" " THEN LET V1=LEFT$(V1,X10-1)+"ー"+RIGHT$(V1,X10+2)
ELSE LET V1=LEFT$(V1,X10-1)+"-"+RIGHT$(V1,X10+1);GOTO $A;
$B: LET [X1,2]=V1;NEXT;STOP
| |
|
