Re: [VB6 ] 計算搜尋次數
※ 引述《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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半點癡情遺留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.223.71
推
02/19 20:42, , 1F
02/19 20:42, 1F
推
02/20 11:47, , 2F
02/20 11:47, 2F
推
02/21 01:39, , 3F
02/21 01:39, 3F
推
02/21 22:27, , 4F
02/21 22:27, 4F
討論串 (同標題文章)