# of occurences in a string

[eyeswideclosed]

Is there a VB function that counts the number of occurences of a string inside another?

If more than 1 goose are geese, why aren't more than 1 moose meese??

 

[TipGiver]

Here is a way. (Just made it)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

        Dim a As String = "me me!@# me"
        Dim f As String = "me"

        MessageBox.Show(String.Format( _
            "'{0}' is contained {1} times in '{2}'.", f, Find(a, f), a))

    End Sub


    Private Function Find(ByVal MyString As String, ByVal WhatToFind As String) As Integer

        Dim times As Integer = 0
        Dim _s As String = MyString

        While _s.IndexOf(WhatToFind) <> -1
            _s = _s.Substring(_s.IndexOf(WhatToFind) + 1)
            times += 1
        End While

        Return times

    End Function

Enjoy!

 

[firefytr]

Instead of looping, why not just compare a variable where you've replaced the specified value with a nullstring character and just do the simple math?

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci

 

[chrissie1]

or

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

        Dim a As String = "me me!@# me"
        Dim f As String = "me"

        MessageBox.Show(String.Format( _
            "'{0}' is contained {1} times in '{2}'.", f, a.Split(f).Length() - 1,a))

    End Sub

so

a.Split(f).Length() - 1

Christiaan Baes
Belgium

"My new site" - Me

 

[ThatRickGuy]

As Chrissie said:

a.Split(f).Length() - 1

easy as pie.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[djj55]

chrissie1,
I like the variable use in the messagebox. Coming from VB I am still using msgbox.
djj

 

[TipGiver]

LOL got ya!

How many times is 'me' contained in 'mmemeeme' ?
That's why i did it with the loop.


Regards

 

[earthandfire]

TipGiver, I still don't understand why you need a loop!!


In each of these two:
TextBox3 is the string to search
TextBox4 is what to search for

A one-liner:

[tt]
MessageBox.Show(System.Text.RegularExpressions.Regex.Matches(TextBox3.Text, TextBox4.Text).Count.ToString)

[/tt]

or a bit neater:

[tt]
Dim rx As New System.Text.RegularExpressions.Regex(TextBox4.Text)
MessageBox.Show(rx.Matches(TextBox3.Text).Count.ToString)
rx = Nothing

[/tt]


The core functionality therefore is either:

System.Text.RegularExpressions.Regex.Matches(<string>, <pattern>).Count

or (where Regex object already exists and has been assigned a pattern):

RegExObject.Matches(<string>).Count


Hope this helps.