致力于自动化测试技术，性能测试技术的研究，测试技术培训以及项目实施，做一个技术与实施的主导者。
计算字符串在一个文本中出现次数的函数
上一篇 /
下一篇 2012-11-09 11:12:52 / 天气: 晴朗
/ 心情: 平静
/ 个人分类：Quick Test Professional
51Testing软件测试网-I"Y8Pnlc7a给出一个计算字符串在一个文本中出现次数的函数，如下所示51Testing软件测试网6R
` J t u({/N {BA
51Testing软件测试网}+O4@
I s [ r'Str：字符串内容51Testing软件测试网/C dbm'd\
4c$m W t H!G0'toSearch:需要查找的字符或字符串51Testing软件测试网2U n"]7[ W;V
[@?
51Testing软件测试网!I]]^5P l&nfFunction FindCount(Str,toSearch)
9m/r S9e'F0 Dim Times,WordLen51Testing软件测试网
[0N+H)g3L-T!A!M*q^
Times = 0
0Ji` ]5W(z-x#X6^N'c0 WordLen = Len(toSearch)51Testing软件测试网 k[s-dz Qm!j
For i = 1 To Len(Str)+1-WordLen
^3l:ib)p-S4f'r'U0 If Mid(Str,i,WordLen) = toSearch Then51Testing软件测试网 s;mR q c
Times = Times + 151Testing软件测试网V+r#K"N FU
End If51Testing软件测试网&IH:W4v(e;Q
Next51Testing软件测试网D,N
k ^(K#Q
FindCount = Times
e*Bl6z tsg:fq0end function
,y`A.} x\k*E
C0 [(f!T{ j)A"W6I0'查找"as"在字符串"adfasdfasdfasdfasdfasdfasdfa"中出现的次数51Testing软件测试网6x8g"Gq(~`n w
fa/{'g#Rf"|#El5E:Z0msgbox FindCount("adfasdfasdfasdfasdfasdfasdfa","as")
%Y&W"Q+Ao051Testing软件测试网
wN c glf-f.X2G N弹出框结果：6 ，有兴趣的可以将代码拷出来在QTP或其它工具中运行一下。
Jiim5Jo4t9h!`0
sv{/](T(b|!} B xS0
!@ Q K-Qx1L0
收藏
举报
TAG:
