| ■9683 / ) |
Re[2]: 全角、半角の変換
|
□投稿者/ eo -(2016/02/18(Thu) 17:42:42)
| 改良しました^^;
変数宣言 固有,文字列{&str,&eiji,&suji},固有,整数{&文字数,&e,&s,&i}
置換 [変換後]=#全角([変換前])
繰り返し (.not #EOF)
&e=#IS英字([変換後],0)
&s=#IS数字([変換後],0)
ケース開始
ケース (&e>0)
&str=[変換後]
&文字数=#文字数([変換後])
繰り返し &i=1,&文字数
&eiji=#部分列(&str,&i,1)
&e=#IS英字(&eiji,1)
条件 (&e=1) &str=#文字置換(&str,&eiji,#半角(&eiji))
繰り返し終了
行訂正 [変換後]=&str
ケース (&s>0)
&str=[変換後]
&文字数=#文字数([変換後])
繰り返し &i=1,&文字数
&suji=#部分列(&str,&i,1)
&s=#IS数字(&suji,1)
条件 (&s=1) &str=#文字置換(&str,&suji,#半角(&suji))
繰り返し終了
行訂正 [変換後]=&str
ケース終了
ジャンプ 行番号=次行
繰り返し終了
|
|
