Function fuckjp(value_)
’此函数为老康自我需要而做，并不代表中国人民共和国政府之观点
’本人并不知道Japan是什么鸟意思
’本函数可用于简单的防止Access数据库因为含有这26个该死的日文字符而造成不能查询操作
’当然，使用此函数前请确定你不太在乎录入数据库的数据少几个日文字符
Dim fuckjapan
fuckjapan = replace(value_,"ゴ","？")
fuckjapan = replace(fuckjapan,"ガ","？")
fuckjapan = replace(fuckjapan,"ギ","？")
fuckjapan = replace(fuckjapan,"グ","？")
fuckjapan = replace(fuckjapan,"ゲ","？")
fuckjapan = replace(fuckjapan,"ザ","？")
fuckjapan = replace(fuckjapan,"ジ","？")
fuckjapan = replace(fuckjapan,"ズ","？")
fuckjapan = replace(fuckjapan,"ヅ","？")
fuckjapan = replace(fuckjapan,"デ","？")
fuckjapan = replace(fuckjapan,"ド","？")
fuckjapan = replace(fuckjapan,"ポ","？")
fuckjapan = replace(fuckjapan,"ベ","？")
fuckjapan = replace(fuckjapan,"プ","？")
fuckjapan = replace(fuckjapan,"ビ","？")
fuckjapan = replace(fuckjapan,"パ","？")
fuckjapan = replace(fuckjapan,"ヴ","？")
fuckjapan = replace(fuckjapan,"ボ","？")
fuckjapan = replace(fuckjapan,"ペ","？")
fuckjapan = replace(fuckjapan,"ブ","？")
fuckjapan = replace(fuckjapan,"ピ","？")
fuckjapan = replace(fuckjapan,"バ","？")
fuckjapan = replace(fuckjapan,"ヂ","？")
fuckjapan = replace(fuckjapan,"ダ","？")
fuckjapan = replace(fuckjapan,"ゾ","？")
fuckjapan = replace(fuckjapan,"ゼ","？")
fuckjp = fuckjapan
End Function
|
