Jncode
1Function Jncode(Istr)
2Dim japArr,ArrNum
3japArr=Array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ","ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ","ヂ","ダ","ゾ","ゼ")
4For ArrNum=0 to Ubound(japArr)
5Istr=Replace(Istr,japArr(ArrNum),""&AscW(japArr(ArrNum))&";")
6Next
7Jncode=Istr
8End Function
1Function Jncode(Istr)
2Dim japArr,ArrNum
3japArr=Array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ","ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ","ヂ","ダ","ゾ","ゼ")
4For ArrNum=0 to Ubound(japArr)
5Istr=Replace(Istr,japArr(ArrNum),""&AscW(japArr(ArrNum))&";")
6Next
7Jncode=Istr
8End Function