统计字符串中某个字符的出现次数的代码

lrlxxqxa

统计字符串中某个字符的出现次数，比如字符串为"dtauddnftajmdhhgg"，要统计其中"d"出现的次数：

1. 
   
2. Sub b()
   
3. Dim Q$, i%, j%
   
4. Q = "dtauddnftajmdhhgg"
   
5. For i = 1 To Len(Q)
   
6.     If Mid(Q, i, 1) = "d" Then j = j + 1
   
7. Next
   
8. MsgBox j
   
9. End Sub

复制代码

1. Sub c()
   
2. Dim Q$
   
3. Q = "dtauddnftajmdhhgg"
   
4. MsgBox Len(Q) - Len(Replace(Q, "d", ""))
   
5. End Sub

复制代码

1. Sub CntChr()
   
2. Q = "dtauddnftajmdhhgg"
   
3. MsgBox UBound(Split(Q, "d"))
   
4. End Sub

复制代码