会员
众包
新闻
博问
闪存
赞助商
HarmonyOS
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
虎哥
(没有经过特别说明的，均是互联网上转载的)
博客园
首页
新随笔
订阅
管理
access需要替换日文编码的函数
Jncode
1
Function
Jncode(Istr)
2
Dim
japArr,ArrNum
3
japArr
=
Array
(
"
ゴ
"
,
"
ガ
"
,
"
ギ
"
,
"
グ
"
,
"
ゲ
"
,
"
ザ
"
,
"
ジ
"
,
"
ズ
"
,
"
ヅ
"
,
"
デ
"
,
"
ド
"
,
"
ポ
"
,
"
ベ
"
,
"
プ
"
,
"
ビ
"
,
"
パ
"
,
"
ヴ
"
,
"
ボ
"
,
"
ペ
"
,
"
ブ
"
,
"
ピ
"
,
"
バ
"
,
"
ヂ
"
,
"
ダ
"
,
"
ゾ
"
,
"
ゼ
"
)
4
For
ArrNum
=
0
to
Ubound
(japArr)
5
Istr
=
Replace
(Istr,japArr(ArrNum),
"
&#
"
&
AscW(japArr(ArrNum))
&
"
;
"
)
6
Next
7
Jncode
=
Istr
8
End Function
posted @
2008-11-26 11:18
Tiger！
阅读(
284
) 评论(
0
)
收藏
举报
刷新页面
返回顶部
公告
Jncode
浙公网安备 33010602011771号