Jncode
1
Function 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
posted @
2008-11-26 11:18
Tiger！
阅读(
275)
评论()
编辑
收藏
举报
