Access文本數據類型提取數字的查詢

有網友問及 一箇字段中,卽有文本字符,又有數字字符。現在想對數字字符的內容進行求平均，如何操作呢？

麵對這樣的問題，我們應該分解內容，逐步去實現需求。

第一步是先從文本字符串中提取數字

第二步是求平均值

如有錶“tbl1”，文本字段“f1”，需要提取字段“f1”中的數字

1.編寫從字符串中提取數字的函數

Public Function NumberGet(chkStr As String) As String
'從字符串中提取數字
    Dim i As Integer
    For i = 1 To Len(chkStr)
        If Mid(chkStr, i, 1) Like "[0-9]" Then
            NumberGet = NumberGet & Mid(chkStr, i, 1)
        End If
    Next i
    NumberGet = NumberGet
End Function

2.在查詢中調用該函數

SELECT NumberGet([tbl1].[f1]) AS 提取數字
FROM tbl1;

提取錶文本字段中的數字成功

3.閤計求平均值

SELECT Avg(查詢2.提取數字) AS 平均值
FROM 查詢2;

實現效果圖