优赛科创:VB中有统计字符串变量中某个字符个数的函数吗

来源:百度文库 编辑:高考问答 时间:2024/04/30 05:39:22
像这样的x=count("sdksdksd2d2s222sd",2)统计这个字符串中有多少个2
,要是没有,有谁会写一个自定义函数,

private function Cnt(byval s1 as string ,byval s2 as string ) as long
dim xt as long
cnt=0
xt=1
xt=instr(xt,s1,s2)
do until xt=0
cnt=cnt+1
xt=xt+1
xt=instr(xt,s1,s2)
loop
end function

简单的写法
x=Ubound(split("sdksdksd2d2s222sd","2"))

没有哦,要自己写的.我不记得了,现在没动过VB了,现在在全力拿ASP