Untitled

    Private Sub RemoveDups(ByRef TableData(,) As String)
        'Use conversion document to set all dups equal
        Dim srdFile As New IO.StreamReader("S:\Parser_Data\VA_Conversion.txt")
        Dim Conversions() As String
        Dim tmpRead As String = srdFile.ReadLine
        Do Until srdFile.Peek = -1
            'Fill conversions
            Conversions = tmpRead.Split(",")
            For i As Integer = 0 To Length - 1
                For xi As Integer = 0 To Conversions.Length - 1
                    TableData(4, i).Replace(Conversions(xi), Conversions(0))
                Next
            Next
            tmpRead = srdFile.ReadLine
        Loop
        srdFile.Close()

        'Set RowType to -1 for dups... TableData(0, i)
        'TableData(x, i) Where x = {1, 2, 3, 4}
        Dim LSub As String = ""
        Dim LHost As String = ""
        Dim LPort As String = ""
        Dim LNes As String = ""

        For i As Integer = 0 To Length - 1
            'Find dup
            If TableData(1, i) = LSub Then
                If TableData(2, i) = LHost Then
                    If TableData(3, i) = LPort Then
                        If TableData(4, i) = LNes Then
                            TableData(0, i) = -1
                        End If
                    End If
                End If
            End If
            'Set last checked
            LSub = TableData(1, i)
            LHost = TableData(2, i)
            LPort = TableData(3, i)
            LNes = TableData(4, i)
        Next
    End Sub




10997,10589,10297,10683
11039,13651,12255,10888,11039,11522,13651,12255,10888
13852,13640
11875,11060
13651,12255,10888
11808,11790
12065,12054,12055,12052
12209,12205
18028,18023
20008,20004
19401,18682,18490
20005,20299
19999,20006
16324,18020
18679,18026
19699,21626
20928,20908
24022,23931,12244,15926,25124,25370,16226,15821,18480
25347,25123,24761,11506,12226,17637,20395,21556
20158,21079
12044,15789,15395,17254,11496,14278,20184,18558,21140
22312,10080
22511,22510
25349,24701,23930,23633,22369,22095,21627,21225,20842
16199,16204,20826,21738,21733,22921,20973