标题: 如何在Access中从大量字符串中取出夹杂的数字(数值)？ [打印本页] 作者: 王为人 时间: 2013-7-4 10:26 标题: 如何在Access中从大量字符串中取出夹杂的数字(数值)？ 作者: 淡写轻描 时间: 2013-7-4 12:24
'功能:从字符串中取出夹杂的数字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