求字段里除了英文字母,其他的字符都去掉的语句

homellq 2013-04-29 06:16:03
我想实现将字段里的英文字母保留,其他的都去除,应该怎么写语句呀?(在数据库里操作)。望前辈指教,谢谢!
...全文
119 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
qmnx 2013-04-30

Public Function getEnStr(strData As String) As String
    Dim i As Integer
    Dim iAsc As Integer
    Dim str As String
    Dim strMatch As String

    If Len(strData) = 0 Then
        getEnStr = ""
        Exit Function
    End If

    For i = 1 To Len(strData)
        str = Mid(strData, i, 1)
        iAsc = asc(str)
        If iAsc >= 65 And iAsc <= 90 Or iAsc >= 97 And iAsc <= 122 Then
            strMatch = strMatch + str
        End If
    Next

    getEnStr = strMatch
End Function

Public Function getEn(strData As String) As String
    Dim re As New RegExp
    Dim Match, Matches
    Dim strMatch As String

    If Len(strData) = 0 Then
        getEn = ""
        Exit Function
    End If

    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "[a-z]+"

    If re.Test(strData) Then
        Set Matches = re.Execute(strData)
        For Each Match In Matches
            strMatch = strMatch + Match.Value
        Next
    End If

    getEn = strMatch
End Function

    Dim strData As String
    strData = "v#$ #%打 就b々了2#【%#a %343 撒 u?ャъ┛╋┝ΥΦΩ酒 疯##V㈦㈧㈩???㊣?āB┎A"
    Debug.Print getEnStr(strData), getEn(strData)
  • 打赏
  • 举报
回复
qmnx 2013-04-30
或者引用 Microsoft VBScript Regular Expressions xx,用正则表达式处理.
  • 打赏
  • 举报
回复
qmnx 2013-04-30
写个自定义函数然 在Sql里调用
  • 打赏
  • 举报
回复
ACMAIN_CHM 2013-04-29
没有好办法,通过程序来实现吧。
  • 打赏
  • 举报
回复
相关推荐
发帖
Access
创建于2007-09-28

7520

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2013-04-29 06:16
社区公告
暂无公告