function CharNum(str1 as string,str2 as string) as integer
dim i as integer,iPos as integer
i=0
iPos=Instr(1,str1,str2)
do until iPos=0
i=i+1
iPos=Instr(iPos+1,str1,str2)
loop
CharNum=i
end function大概是这样的了,不过没调试过
dim i as integer,iPos as integer
i=0
iPos=Instr(1,str1,str2)
do until iPos=0
i=i+1
iPos=Instr(iPos+1,str1,str2)
loop
CharNum=i
end function大概是这样的了,不过没调试过
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货