VB script Coding with strings.

[Tejas Tikhe]

Hello,

Can anyone please help me in following task.

There is paragraph below which is a string.

strpara="ABC is good at testing.ABC is working on PC.ABC is playing games."

write a code for:- Calculate the occurrences of word “ABC” in the string given above.

Thanks.

[ravi.gajul]

Try this,

Code:

strng="ABC is good at testing.ABC is working on PC.ABC is playing games."
Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create a regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match in Matches   ' Iterate Matches collection.
      RetStr = RetStr & "Match found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
   msgbox "No of occorences:  "&Matches.count
End Function
MsgBox(RegExpTest("abc.",strng))

Regards,
Ravi

[souvikghosh_diatm]

I don't think a function is required for this... its as simple as follows which calculate the occurrences as well....

Code:

strString = "ABC is good at testing.ABC is working on PC.ABC is playing games."

ArrstrString = Split (strString, "ABC")

strCount = Ubound(ArrstrString)

msgbox ("No of occurrences: "&strCount)

[ravi.gajul]

Good one...

[DevilkID]

Thanks for the script, it's very simple.