HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Visual Basic Return The Number of Occurrences of a String

Status
Not open for further replies.
K

Kaway

Banned
User
Joined
Aug 7, 2014
Messages
720
Reputation
0
Reaction score
5,766
Points
243
Credits
0
‎10 Years of Service‎
15%
Please note, if you want to make a deal with this user, that it is blocked.
[HIDE-THANKS]Lo código _Full for study.

Code: 
>Private Function InStrCount(ByRef sSource As String, _
                           ByRef sFind As String, _
                           Optional ByRef eCmpMethod As VbCompareMethod = vbTextCompare) As Long
Dim sSourceCopy As String
Dim lFoundLoc As Long

   InStrCount = 0
   If (sSource = Empty) Or (sFind = Empty) Then Exit Function
   sSourceCopy = sSource
   lFoundLoc = 1000 'enter loop
   While (lFoundLoc > 0)
       lFoundLoc = InStr(1, sSourceCopy, sFind, eCmpMethod)
       If (lFoundLoc > 0) Then
           InStrCount = InStrCount + 1
           'cut string from first occurrence
           sSourceCopy = Mid(sSourceCopy, _
                             lFoundLoc + Len(sFind), _
                             Len(sSourceCopy))
       End If
   Wend

End Function
[/HIDE-THANKS]

 
Status
Not open for further replies.
Back
Top