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.