如何在Access中从大量字符串中取出夹杂的数字(数值)？

'功能:从字符串中取出夹杂的数字Function Num(Exp As String) As Double    Dim lntI As Long    Dim strWord As String   For lntI = 1 To Len(Exp)        strWord = Mid(Exp, lntI, 1)            If strWord Like "[0-9]" Then                 Num = Num & strWord            End If    NextEnd Function