level 7
UBound(Split(字符串,字符))
2022年12月15日 11点12分
level 15
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
vb数组功能太弱
![[茶杯]](/static/emoticons/u8336u676f.png)
level 13
'有时在意速度的可以Instr判断，代码多运行速度却很快，封装成函数，一行调用
Private Sub Form_Click()
Debug.Print GetStringCount(p, "我")
End Sub
Private Function GetStringCount(ByVal strText As String, ByVal strFind As String) As Long
Dim dwStartPos As Long, dwCount As Long
dwStartPos = 1
Do
dwStartPos = InStr(dwStartPos, strText, strFind)
If dwStartPos = 0 Then Exit Do
dwCount = dwCount + 1
dwStartPos = dwStartPos + Len(strFind)
Loop
GetStringCount = dwCount
End Function
2022年12月16日 03点12分
5
Private Sub Form_Click()
Debug.Print GetStringCount(p, "我")
End Sub
Private Function GetStringCount(ByVal strText As String, ByVal strFind As String) As Long
Dim dwStartPos As Long, dwCount As Long
dwStartPos = 1
Do
dwStartPos = InStr(dwStartPos, strText, strFind)
If dwStartPos = 0 Then Exit Do
dwCount = dwCount + 1
dwStartPos = dwStartPos + Len(strFind)
Loop
GetStringCount = dwCount
End Function