Breadcrumbs

[KraZy]

I made a code capable of downloading values in a web page and it works well. Since the values are taken in real time, that is, data download is performed only when there are actually changes, I need if a certain value is changed. I then created a code that allows me to get check from all elements of the array with the updated values and the array with the old values. The code actually detects when a given result has changed, but for some strange reason, the message appears to infinity, as if it were stuck in a foor that takes no arguments, and this is very strange.

Code: Select all

For Each abc As Country_Data In lista
                For Each xyz As Country_Data In vecchia_lista
                    If abc.casa = xyz.casa And abc.ospite = xyz.ospite Then
                        If abc.Result <> xyz.Result Then
                            MsgBox(abc.casa & " - " & abc.ospite & " -- " & abc.Result)
                            Exit For
                        End If
                    End If
                Next
            Next

Variable definition

Code: Select all

Dim lista As New List(Of Country_Data)
    Dim vecchia_lista As New List(Of Country_Data)
    Private Structure Country_Data
        Dim casa As String
        Dim ospite As String
        Dim Result As String
    End Structure

how to fix this?

complete class: http://pastebin.com/2StsPdGn