请问如何获得某个字符在一个字符串中出现的次数。

Question

一个字符串"dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"请问怎样得到其中有多少个";"。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    strTmp = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
    strArray = Split(strTmp, ";")
    MsgBox UBound(strArray)
    Erase strArray
End Sub

Answer 2

Private Sub Command1_Click()MsgBox GetCnt("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";")End Sub
Function GetCnt(str1 As String, str2 As String)
Dim pos1
pos1 = InStr(str1, str2)
Do While pos1 <> 0
    GetCnt = GetCnt + 1
    pos1 = InStr(pos1 + 1, str1, str2)
Loop
    
End Function

Answer 3

Option ExplicitPrivate Sub Command1_Click()
    Dim ss As String
    Dim i As Integer
    Dim i_Count As Integer
    ss = "dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds"
    i = 1
    i_Count = 0
    While i <> 0
        i = InStr(i + 1, ss, ";")
        i_Count = i_Count + 1
    Wend
    MsgBox i_Count - 1
End Sub

Answer 4

UBound(Split("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";"))

Answer 5

UBound(Split("dasdas;dsadasads;sdds;sdsdsd;sdsdee;sdsdsd;dssdds", ";"))
兄弟好方法。