手機邊親愛的大家好！

今天我要給大家分享一個示例：統計出某個字符串在某表某字段中出現的次數。

大家先來看一下結果效果圖：

先來講一下原理，其實就是循環數據庫中的所有表，然后找模糊查找，找到了就記錄表名、表中的字段、統計出現的次數。

知道了原理就可以開始做了，今天我們換個套路，不要再之前一步一步的方式來教大家了，只告訴關鍵的步驟。

01表

其中，我們要建一張表，用于保存統計的數據，具體的查看截圖。

02函數

這次代碼只分享給大家一個關鍵的函數，然后大家自己去調用一下

查找函數

1Private?Sub?Snoop(SnoopFor?As?String)
2
3????On?Error?GoTo?Snoop_Err
4
5????Dim?DB?As?Database
6????Dim?S?As?Recordset
7????Dim?T?As?Recordset
8????Dim?td?As?TableDef
9????Dim?L?As?Integer
10????Dim?F?As?Integer
11????Dim?criteria?As?String
12????Dim?occ?As?Long
13
14????Set?DB?=?CurrentDb()
15????Set?S?=?DB.OpenRecordset("tblSNOOP",?DB_OPEN_DYNASET)
16
17
18????For?L?=?0?To?DB.TableDefs.Count?-?1
19
20????????Set?td?=?DB.TableDefs(L)
21
22
23????????If?Not?td.Name?Like?"Msys*"?Then
24????????????Set?T?=?DB.OpenRecordset(td.Name,?DB_OPEN_SNAPSHOT)
25
26????????????DoEvents
27
28????????????For?F?=?0?To?td.Fields.Count?-?1
29
30
31
32????????????????criteria?=?"CStr(''?&?["?&?td.Fields(F).Name?&?"])?Like?'*"?&?SnoopFor?&?"*'"
33????????????????T.FindFirst?criteria
34
35????????????????If?Not?(T.NoMatch)?Then
36
37????????????????????occ?=?0
38????????????????????Do?While?Not?(T.NoMatch)
39????????????????????????T.FindNext?criteria
40????????????????????????occ?=?occ?+?1
41
42????????????????????Loop
43
44????????????????????S.AddNew
45????????????????????S!Occurence?=?occ
46????????????????????S!Table?=?td.Name
47????????????????????S!Field?=?td.Fields(F).Name
48????????????????????S.Update
49
50????????????????End?If
51
52????????????Next?F
53
54????????End?If
55
56????Next?L
57????Me.frmChild.Form.Requery
58????'????T.Close
59????S.Close
60????DB.Close
61
62Snoop_Exit:
63
64
65
66????Exit?Sub
67
68Snoop_Err:
69????MsgBox?Err.Description,?vbCritical
70????Resume?Snoop_Exit
71
72????Exit?Sub
73
74End?Sub
03測試

最后一步就是測試了，大家可以將按上面的步驟，在按鈕控件的單擊事件里來調用上面的函數。

大家要多測試，多試多出錯才會進步。

我就知道你“在看” 創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的java统计字符串中每个字符出现的次数_统计字符串出现的次数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。