[RESOLVED] parsing a text file

[Andyonline2009]

I need to code a hitcounter button that looks at a textfile,counts how many times a site has been visited and then shows a message box with the results
say like this:

www.google.com 4
www.vbforums.com 98

anyone have any advice on how to go about it?tis the last piece of my web browser puzzle.(well almost)

[Bulldog]

You missed out the information as to what is in the file?

If the file is a list of sites, one per line, then you could do something like this;

        Dim Info() As String = System.IO.File.ReadAllLines("MyFile.txt")

        Dim Sites As New List(Of String)
        Dim Hits As New List(Of Integer)

        For Each s As String In Info
            If Not Sites.Contains(s) Then
                Sites.Add(s)
                Hits.Add(1)
            Else
                Hits(Sites.IndexOf(s)) += 1
            End If
        Next

        Dim Str As String = String.Empty
        For i As Integer = 0 To Sites.Count - 1
            Str += Sites(i) & " has " & Hits(i).ToString & " hits" & ControlChars.NewLine
        Next
        MessageBox.Show(Str)

[Andyonline2009]

whoops yeh i should have mentioned that.
the text file has url and timestamp info in it seperated by commas,so its like

http://www.google.co.uk/ , 28/03/2009 12:19:38

thats a sample from the history.txt file it makes.
i gave your suggestion a try,it works but not quite as i need it too,i think i will need to alter it to take out the timestamp..also i need it to read subpages from a any domain as hits for that domain,ie

http://www.google.co.uk/ , 28/03/2009 12:19:38 
http://www.google.co.uk/search=example , 28/03/2009 12:19:45

would read as 2 hits for the www.google.com ..not sure how to go about this.
thanks a lot for your help.

[Bulldog]

I guess we met in another thread, but here's an example how to grab the domain part;

        Dim r As New Regex( _
        "(?<=http://www.)[A-Z0-9.-]+\.(?:[A-Z]{2}|com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum)", _
        RegexOptions.IgnoreCase Or RegexOptions.Singleline)
        Dim matches As MatchCollection = r.Matches(TextBox1.Text)
        If matches.Count > 0 Then MessageBox.Show(matches(0).ToString)

[Bulldog]

So if you have lines which contain;

http://www.google.co.uk/ , 28/03/2009 12:19:38
http://www.google.co.uk/search=example , 28/03/2009 12:19:45

Do you want to register one hit or two?

[Bulldog]

If you want just one hit registered then;

        Dim Info() As String = System.IO.File.ReadAllLines("MyFile.txt")

        Dim Sites As New List(Of String)
        Dim Hits As New List(Of Integer)

        Dim matches As MatchCollection

        For Each s As String In Info

            Dim r As New Regex( _
            "(?<=http://www.)[A-Z0-9.-]+\.(?:[A-Z]{2}|com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum)\s", _
            RegexOptions.IgnoreCase Or RegexOptions.Singleline)
            matches = r.Matches(s)
            If matches.Count > 0 Then
                Dim Domain As String = matches(0).ToString
                If Not Sites.Contains(Domain) Then
                    Sites.Add(Domain)
                    Hits.Add(1)
                Else
                    Hits(Sites.IndexOf(Domain)) += 1
                End If
            Else
                'No domain was found on the line
            End If
        Next

        Dim Str As String = String.Empty
        For i As Integer = 0 To Sites.Count - 1
            Str += Sites(i) & " has " & Hits(i).ToString & " hits" & ControlChars.NewLine
        Next
        MessageBox.Show(Str)

[Andyonline2009]

well two counts..as the domain is visited twice.thanks for you help so far.im going to try your code above

[Bulldog]

Try putting the full path to your history file like C:\Documents and Settings\YourName\Desktop\history.txt or whatever.

Also copy my code in post #6, what you posted above wont work.

[Andyonline2009]

yeh i knew my code was wrong(it almost always is)
im trying your suggestion now,it compiles fine but the message box it shows is blank.

[Bulldog]

Post or PM me part of your history file so I can see the exact format (just cut and paste into the message text).

[Andyonline2009]

http://www.google.co.uk/ , 29/03/2009 14:34:38
http://www.google.co.uk/ , 29/03/2009 14:35:02
http://www.google.co.uk/test , 29/03/2009 14:35:02
http://www.bbc.co.uk/ , 29/03/2009 14:35:02

[Andyonline2009]

thats the contents of the history file

[Bulldog]

ok , thats because you have a "/" at the end of the domain, so to accept that modify the Regex as per the code below;

        Dim Info() As String = System.IO.File.ReadAllLines("MyFile.txt")

        Dim Sites As New List(Of String)
        Dim Hits As New List(Of Integer)

        Dim matches As MatchCollection

        For Each s As String In Info

            Dim r As New Regex( _
            "(?<=http://www.)[A-Z0-9.-]+\.(?:[A-Z]{2}|com|org|net|gov|mil|biz|info|mobi|name|aero|jobs|museum)(?=/\s)", _
            RegexOptions.IgnoreCase Or RegexOptions.Singleline)
            matches = r.Matches(s)
            If matches.Count > 0 Then
                Dim Domain As String = matches(0).ToString
                If Not Sites.Contains(Domain) Then
                    Sites.Add(Domain)
                    Hits.Add(1)
                Else
                    Hits(Sites.IndexOf(Domain)) += 1
                End If
            Else
                'No domain was found on the line
            End If
        Next

        Dim Str As String = String.Empty
        For i As Integer = 0 To Sites.Count - 1
            Str += Sites(i) & " has " & Hits(i).ToString & " hits" & ControlChars.NewLine
        Next
        MessageBox.Show(Str)

[Andyonline2009]

working perfectly now,can't thank you enough