Algorithm problem. Just not recording the info ... *resolved*

[plenderj]

Okay. In the below Sub, sqlAddHeaders(), its nearly working.
I have a file in the form :

791755	Backup Solutions|Backup Software|Computer Associates	BrightStor Arcserve Backup Version 9 Tape Raid Option for Netware		506		Product Information	BABFBNW900NE2	0	0
791772	Backup Solutions|Backup Software|Computer Associates	BrightStor Arcserve Backup Version 9 Tape Library Option for Netware		455		Product Information	BABFBNW900NE4	0	0
872095	Backup Solutions|Backup Software|Computer Associates	BrightStor Arcserve Backup Version 9 Universal Client Agent for windows Upgrade from any previous evrsion 		69		Product Information	BABWUP2900E22?BDL	122	0
702346	Backup Solutions|Backup Software|Computer Associates	OLP BrightStor ARCserve for Small Business Server 2000 with Open Files Agent 2 Year Upgrade Protection		231		Product Information	ARCBBN2700WG0U2	0	0
804202	Backup Solutions|Backup Software|Veritas	Backup Exec,Windows,Microsoft Exchange Server Agent Upgrade,v9.0,E/F/G/S/I/C,Full Package Product 		114		Product Information	E094018	0	14
749605	Backup Solutions|Backup Software|Veritas	NetBackup BusinesServer NDMP Agent version 4.5, Cross Platform		1043		Product Information	A08587C-000000	0	0
755887	Backup Solutions|Backup Software|Veritas	Netbackup BusinesServer Exchange Agent version 4.5 VS1 12x5 1yr		144		Product Information	W085805-000112	0	0

I'm passing 2 parameters into the sub, namely, strData (which is the 2nd field above (Backup Solutions|Backup Software|Veritas)), and strChildSAPCode, eg. 791755

Now. I am them reprinting the info back out using a logging function at the bottom. It works fine for all the Computer Associates fields. But once it hits veritas, its not working.
Here's an example:

Backup Solutions:Backup Software:Computer Associates:791755
Backup Solutions:Backup Software:Computer Associates:791755791772
. . . 
::Veritas:804202
::Veritas:804202749605

So. Why is it storing all the infomation correctly, until the first time the 3rd section in the 2nd field changes...?

Imports System.Data.SqlClient
 
Module modMisc
 
#Region "Declarations ..."
    Private blnHaveCleared As Boolean
 
    Private colMasterHeaders() As clsColumnReference
    Private colSecondHeaders() As clsColumnReference
    Private colThirdHeaders() As clsColumnReference
#End Region
 
 
#Region "clsColumnReference()"
    Class clsColumnReference
        Public strColumnText As String
        Public lngParentIndex As Long
        Public blnIsMasterParent As Boolean
        Public strChildSAPCodes As String
    End Class
#End Region
 
 
#Region "doInitHeaders()"
    Private Sub doInitHeaders()
        If colMasterHeaders Is Nothing Then ReDim colMasterHeaders(0) : colMasterHeaders(0) = New clsColumnReference()
        If colSecondHeaders Is Nothing Then ReDim colSecondHeaders(0) : colSecondHeaders(0) = New clsColumnReference()
        If colThirdHeaders Is Nothing Then ReDim colThirdHeaders(0) : colThirdHeaders(0) = New clsColumnReference()
    End Sub
#End Region
 
 
#Region "sqlAddHeaders()"
    Public Sub sqlAddHeaders(ByVal strData As String, ByVal strChildSAPCode As String)
        Dim i As Long, strHeaders() As String = Split(strData, "|"), lngParentIndex As Long
        Dim blnFoundText As Boolean = False : doInitHeaders()
 
 
        '' Master Headers
        ''
        For i = 0 To UBound(colMasterHeaders)
            With colMasterHeaders(i)                
                If strHeaders(0) = .strColumnText Then
                    blnFoundText = True
                    Exit For
                End If
            End With
        Next
        If Not blnFoundText Then
            ReDim Preserve colMasterHeaders(UBound(colMasterHeaders) + 1)
            colMasterHeaders(UBound(colMasterHeaders)) = New clsColumnReference()
            With colMasterHeaders(UBound(colMasterHeaders))
                .blnIsMasterParent = True
                .lngParentIndex = -1
                .strColumnText = strHeaders(0)
                lngParentIndex = UBound(colMasterHeaders)                
            End With
        End If
        blnFoundText = False
 
 
        '' Secondary Headers
        ''
        For i = 0 To UBound(colSecondHeaders)
            With colSecondHeaders(i)
                If strHeaders(1) = .strColumnText Then
                    blnFoundText = True                    
                    Exit For
                End If
            End With
        Next
        If Not blnFoundText Then
            ReDim Preserve colSecondHeaders(UBound(colSecondHeaders) + 1)
            colSecondHeaders(UBound(colSecondHeaders)) = New clsColumnReference()
            With colSecondHeaders(UBound(colSecondHeaders))
                .blnIsMasterParent = False
                .lngParentIndex = lngParentIndex
                .strColumnText = strHeaders(1)
                lngParentIndex = i                
            End With
        End If
        blnFoundText = False
 
 
        '' Third Headers
        ''
        For i = 0 To UBound(colThirdHeaders)
            If strHeaders(2) = colThirdHeaders(i).strColumnText Then
                colThirdHeaders(i).strChildSAPCodes += strChildSAPCode
                blnFoundText = True
                Exit For
            End If
        Next
        If Not blnFoundText Then
            ReDim Preserve colThirdHeaders(UBound(colThirdHeaders) + 1)
            colThirdHeaders(UBound(colThirdHeaders)) = New clsColumnReference()
            With colThirdHeaders(UBound(colThirdHeaders))
                .blnIsMasterParent = False
                .lngParentIndex = lngParentIndex
                .strColumnText = strHeaders(2)                
                .strChildSAPCodes = strChildSAPCode
            End With
        End If
 
        Dim colThirdLevel As New clsColumnReference()
        colThirdLevel = colThirdHeaders(UBound(colThirdHeaders))
 
        Dim colSecondLevel As New clsColumnReference()
        colSecondLevel = colSecondHeaders(colThirdLevel.lngParentIndex)
 
        Dim colMasterLevel As New clsColumnReference()
        colMasterLevel = colMasterHeaders(colSecondLevel.lngParentIndex)
 
        doLogFile(colMasterLevel.strColumnText & ":" & _
                    colSecondLevel.strColumnText & ":" & _
                    colThirdLevel.strColumnText & ":" & _
                    colThirdLevel.strChildSAPCodes)
 
 
    End Sub
 
    Private Sub doLogFile(ByVal strString As String)
        Dim lngFileHandle As Long = FreeFile()
        FileOpen(lngFileHandle, "c:\mylog.txt", OpenMode.Append)
        Print(lngFileHandle, strString & vbCrLf)
        FileClose(lngFileHandle)
    End Sub
 
#End Region
End Module