|
统计字符串中某个字符的出现次数,比如字符串为"dtauddnftajmdhhgg",要统计其中"d"出现的次数:
- Sub b()
- Dim Q$, i%, j%
- Q = "dtauddnftajmdhhgg"
- For i = 1 To Len(Q)
- If Mid(Q, i, 1) = "d" Then j = j + 1
- Next
- MsgBox j
- End Sub
复制代码- Sub c()
- Dim Q$
- Q = "dtauddnftajmdhhgg"
- MsgBox Len(Q) - Len(Replace(Q, "d", ""))
- End Sub
复制代码- Sub CntChr()
- Q = "dtauddnftajmdhhgg"
- MsgBox UBound(Split(Q, "d"))
- End Sub
复制代码
|
|