如何删除字符串中的非数字字符?

huzaixin

请教:在Access中如何从字符串中删除非数字的字符?例如:从asd1234中删除"abc",结果为"1234".当然可能非数字的字符出现的位置是不固定、没有任何规则的。这样的情况如何来做呢？

请各位高手指教！

一点通

如果提取前面的数字,请使用Val 函数

如果要获得全部的数字,可写一个模块

Function MyGet(Srg As String, Optional n As Integer = False)

    Dim i As Integer
    Dim s, MyString As String
    Dim Bol As Boolean
   
    For i = 1 To Len(Srg)
        s = Mid(Srg, i, 1)
            Bol = s Like "#"
        If Bol Then MyString = MyString & s
    Next
   
    MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
   
End Function


调用:MyGet([字段名])

[此贴子已经被作者于2006-4-6 14:47:56编辑过]

huzaixin

能不能简单点啊?这个有点复杂了,能够不写模块吗?

fan0217

模块才是简单的方法，你可以不需要了解模块的工作原理，但只要你会用就可以了。

[此贴子已经被作者于2006-4-6 15:27:01编辑过]

hi-wzj

如果字段值为:   我123的456

取值为:123   用val函数即可

取值为:123456 用MyGet自定义函数

LucasLynn

以下是引用fan0217在2006-4-6 15:26:00的发言：
模块才是简单的方法，你可以不需要了解模块的工作原理，但只要你会用就可以了。

[em07]

huzaixin

不好意思啊!我是一个超级的大菜鸟,请再指教:请问我在查询中如何才能调用MyGet()呢?

一点通

在字段名中直接调用

huzaixin

我在使用的时候系统提示没有MyGet()函数没有定义.该怎么做啊?

一点通

将例子传上来看下