从字符串中提取数字的这个函数应该如何写？

一念一如来　发表于：2012-05-24 10:12:45 　

复制

字符串有两种形式：“369/1.35”或“19/2+1/0.4”（其中数字的位数不定）

如何用函数“输入字符串时能提取出4个数字？”（当字符串是后一种时，第三第四个数字可当做0）

我用Split("19/2+1/0.4","/")不知道怎样综合处理了。

求助斑竹！帮帮忙了

Top

叶海峰发表于：2012-05-24 10:39:20

先用Replace函数将"+",-","*"号替换成"/"号,然后再用Split截取

Top

煮江品茶发表于：2012-05-24 11:45:11

1、写一自定义函数，该函数返回一个数组。

Function A(str As String) As Variant
A = Split(Replace(Replace(Replace(Replace(Replace(Replace(str, "+", ";"), "-", ";"), "*", ";"), "/", ";"), "^", ";"), " mod ", ";"), ";")
End Function

2、使用该数组，向某个表中插入前两个数组元素：

dim Ar

Ar=A(me.公式.value)

docmd.sql "insert into tbname ( 数据 ) values (" & Ar(0) & "),(" & Ar(1) & ")"

Top

大佛发表于：2012-05-24 14:02:52

谢谢两斑竹！

见到老头也挺高兴的。

在参照之下，我用下面的方法解决了问题。（相关问题：斑竹的替换中有"*"、"^"，这是必须的吗？空格是否需要替换掉？）

Function takeof(str As String) As Variant
    takeof = Split(Replace(Replace(str, "/", ";"), "+", ";"), ";")
End Function
Private Sub 字符串_AfterUpdate()
    Dim Myar As Variant
    On Error Resume Next

    Myar = takeof(Me.字符串)
    Me.字段1 = Myar(0)
    Me.字段2 = Myar(1)
    If Myar(2) = Null Then
        Me.字段3 = 0
    Else
        Me.字段3 = Myar(2)
    End If
    If Myar(3) = Null Then
        Me.字段4 = 0
    Else
        Me.字段4 = Myar(3)
    End If
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]从字符串中提取数字的这个函数应该如何写？