【Access示例】歌词中词语出现的次数

时　间:2019-06-28 09:08:29
作　者:缪炜   ID：24010  城市：江阴
摘　要:词语在歌词中出现的次数
正　文:

主要代码：

Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String
    Dim arr As Variant
    Dim brr As Variant
    Dim i As Long
    Dim countChar As Long
    
    If Lyric = "" or Word = "" Then Exit Function
    If InStrRev(Word, "|") = 0 Then Exit Function
    arr = Split(Word, "|")
    For i = 0 To UBound(arr) - 1
        brr = Split(Lyric, arr(i))
        countChar = UBound(brr) - LBound(brr)
        WordFrequency = WordFrequency & "“" & arr(i) & "”" & "出现次数：" & countChar & vbCrLf
    Next i

End Function

示例演示：

附件下载：

点击下载此附件