推 rushcat:版大真強 這種深奧的問法都能給他一個答案...XDDDD 02/19 20:42
推 MOONRAKER:真是太了不起了 XD 02/20 11:47
推 chinoyan:高 02/21 01:39
推 jwjeng:真不愧是版大，先拜一下 Orz 02/21 22:27
※ 引述《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