作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 计算搜寻次数
时间Fri Feb 19 19:50:07 2010
※ 引述《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