| 面白そうなお題なので一括処理を書いてみました
&大文字対応="ア,a,イ,i,ウ,u,エ,e,オ,o,カ,ka,キ,ki,ク,ku,ケ,ke,コ,ko" &小文字対応="ャ,ya,ュ,yu,ョ,yo"
&カナ元="アキャウキョキャ"
繰り返し(&カナ元<>"") &カナ=#部分列(&カナ元,1,1) *変数管理
&番号=0 ケース開始 ケース(#文字位置(&大文字対応,&カナ)<>0) &番号=#対応番号(&大文字対応,&カナ) &ロ字temp=#対応文字列(&大文字対応,&番号+1) &ロ字=&ロ字+&ロ字temp &カナ元=#部分列(&カナ元,2)
ケース(#文字位置(&大文字対応,&カナ)=0) &番号=#対応番号(&小文字対応,&カナ) &ロ字temp=#対応文字列(&小文字対応,&番号+1) &ロ字=&ロ字+&ロ字temp &ロ字=#部分列(&ロ字,1,#文字数(&ロ字)-3)+#部分列(&ロ字,#文字数(&ロ字)-1) /* ex) キョウ kyou : kiyou を kyou &カナ元=#部分列(&カナ元,2)
ケース終了 繰り返し終了
|