How to loop through an array faster.

See more:

VB

Ok so me and my team have been working on a program for about 4 month now and everything works very fast except for the update sections.

Here is the code to what we currently have

        Dim lines() = File.ReadAllLines("C:\ExcelledProducts\xAntiVirus\Database\Updates\DAILY.TXT")
        Dim DATABASE As String
        Dim readdb As New System.IO.StreamReader("C:\ExcelledProducts\xAntiVirus\Database\Updates\DAILY.TXT")
        DATABASE = readdb.ReadToEnd
        pgbAddingSignatures.Maximum = lines.Count - 1
        Dim NewSignatres As New ArrayList
        Dim tmp1 As String = Nothing

        Dim x = 0
interneal:

        Try
            If DATABASE.Contains(lines(x).ToString) Then
                pgbAddingSignatures.Value = pgbAddingSignatures.Value + 1
            Else
                pgbAddingSignatures.Value = pgbAddingSignatures.Value + 1
                DATABASE = DATABASE & vbCrLf & lines(x).ToString
            End If
            x = x + 1
            pgbAddingSignatures.Value = x
            GoTo interneal
        Catch ex As Exception

        End Try


        Dim VER = wc.DownloadString("http://excelledproducts.iwebs.ws/VER")

        My.Computer.FileSystem.DeleteFile("C:\ExcelledProducts\xAntiVirus\Database\DATABASE.EPD")

        Dim FINAL As String
        FINAL = VER & vbCrLf & DATABASE

        Dim writer As New System.IO.StreamWriter("C:\ExcelledProducts\xAntiVirus\Database\DATABASE.EPD")
        writer.Write(FINAL)
        writer.Close()

        MsgBox("Your Database Has Been Updated")

The database that we are updating is the "DATABASE.EPD", and the database where we are retrieving the new data is from the "DAILY.TXT". The "DAILY.TXT" has about 200,000 currently. Every 3 months we update the main database and reset the "DAILY.TXT". When the "DAILY.TXT" is fresh with only 20,000 lines it goes pretty fast but when we get up to about 200,000 it is very slow. Is their another way to approach how I am adding the new data to the database.