暴力清除日文片假名字符
时 间:2010-12-28 00:00:00
作 者:t小雨 ID:4598 城市:柳州
摘 要:清除日文片假名字符
正 文:
诸如表的记录含有日文片假名字符时,查询记录会导致内存溢出,处理字符串的函数遇到日文片假名字符会出错等,
具体可用ACCESS和日文为关键字百度一下。
其实这也不能怪日本,怪就怪微软,真不知微软是什么心态,搞这么一个BUG,影响中日关系。。。
那么,在ACCESS中就要坚决清除日文片假名字符,不能让它与ACCESS共存,
但用Replace、InStr来处理都出错,所以只能用暴力一个字一个字来解决了。
在http://www.access-cn.com/thread-95783-1-1.html此帖中fyupeng 版友遇到了此问题,并找到了解决方法,
本人也写了个函数,谁有更好的办法快来指正。。。
'清除日文片假名字符函数
Function ClearKatakana(Expression As String) As String
Dim i As Long
Dim lngStart As Long
Dim lngLength As Long
lngStart = 1
For i = 1 To Len(Expression)
Select Case Mid(Expression, i, 1)
Case "ゴ", "ガ", "ギ", "ア", "ゲ", "ザ", "ジ", "ズ", "ヅ", "デ", "ド", "ポ", "ベ", "プ", "ビ", "パ", "ヴ", "ボ", "ペ", "ブ", "ピ", "バ", "ヂ", "ダ", "ゾ", "ゼ"
lngLength = i - lngStart
If lngLength > 0 Then ClearKatakana = ClearKatakana & Mid(Expression, lngStart, lngLength)
lngStart = i + 1
End Select
Next
ClearKatakana = ClearKatakana & Mid(Expression, lngStart)
End Function
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)