how many times a word is in a text file

[thomaaxha]

i want to find how many time a specified word from a textbox , is in a file text.
this is my code but its not enough because i want to split all the file text to find how time is that word in the file.please help me!

Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim streamreader As System.IO.StreamReader
        Dim nr_fjales As Integer
        nr_fjales = 0
        Dim i As Integer
        streamreader = File.OpenText("C:\Users\user\Desktop\file.txt")
        Dim cont As String
        cont = streamreader.ReadToEnd.Split(" ").ToString
        For i = 0 To streamreader.EndOfStream
            If TextBox1.Text = cont Then
                nr_fjales = nr_fjales + 1
            End If
        Next
 
        Label2.Text = nr_fjales
 
        streamreader.Close()
 
    End Sub
End Class

[Rabbit]

In your loop, it makes no sense to loop to streamreader.EndOfStream. You should loop through each element in your cont array.

[thomaaxha]

i never worked with files and i dont know well the sintax, pls do you have any solution

[Mikkeee]

Regular expressions are the way to go. Single line of code will get you what you need. Find the number of matches using RegEx.Matches(exp,matchterm).Count.

[thomaaxha]

thanks a lot ,, i understood it a bit .. but can u help me with the code how to link it with the file?

[Mikkeee]

RegEx is super powerful for stuff like this. Read a few tutorials and it will really get you out of a bind.

        Dim contents As String = System.IO.File.ReadAllText("C:\Users\user\Desktop\file.txt")
        Dim count As Integer = Regex.Matches(contents, TextBox1.Text).Count
        MessageBox.Show(count)
 

[thomaaxha]

thanks a lot ,, you are nr1 :)