VB有什么函数直接可以获取某一字串中某一字符的个数?

Question

Public Fuction GetStrReNum(SrcStr As String,FindStr as string)as long
    Dim Num as long
    Dim TempPos as long
    
    Num=0
    TempPos=1
    
    Do
        TempPos=InStr(TempPos,SrcStr,FindStr)
        If TempPos=0 then exit do
        Num=Num+1
    Loop
    
    GetStrReNum=Num
    
End Function

Answer 1

dim astr() as string 
dim i as long astr=split(str,"|")
 i=ubound(astr)-1    *****这个就是啦！

Answer 2

应该是这样：MsgBox UBound(Split(",b,a,,b,c,,", ","))

Answer 3

因为split返回的的下标从零开始的
所以不需要-1