Re: [VB6 ] 計算搜尋次數

[fumizuki (矇面加菲獅)]

※ 引述《fumizuki (矇面加菲獅)》之銘言：
: ※ 引述《mkia1142 (maki)》之銘言：
: : 程式搜尋完文章後能顯示出此字在文章內共出現幾次
: : 希望高手能指點一下  謝謝
: Public Function KeywordCount(ByVal src As String, _
: ByVal keyword As String) As Long
:     If keyword = "" Then
:         KeywordCount = 0
:     Else
:         KeywordCount = UBound(Split(src, keyword))
:     End If
: End Function
上面範例的搜尋會區分大小寫，下面這個範例不區分大小寫
Public Function KeywordCount(ByVal src As String, _
ByVal keyword As String) As Long

    If keyword = "" Then
        KeywordCount = 0
    Else
        KeywordCount = UBound(Split(LCase(src), LCase(keyword)))
    End If

End Function

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.223.71