Access培訓
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-窗體/數據頁

【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


示例演示:

點擊圖片查看大圖


附件下載:

點擊下載此附件



Access軟件網官方交流QQ群 (群號:864245409)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助