作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 计算搜寻次数
时间Fri Feb 19 19:47:01 2010
※ 引述《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
1F：推 rushcat:版大真强 这种深奥的问法都能给他一个答案...XDDDD 02/19 20:42
2F：推 MOONRAKER:真是太了不起了 XD 02/20 11:47
3F：推 chinoyan:高 02/21 01:39
4F：推 jwjeng:真不愧是版大，先拜一下 Orz 02/21 22:27