暴力清除日文片假名字符
时 间: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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)