'Name: GetLinesFromText
'Returns: nothing
'Description: This opens the file reads it line by line and sends it to be parsed. It then
'stores the parsed results into the permissionslist array for later use
'
Sub GetLinesFromText()

    Dim sFileName As String
    Dim iFileNum As Integer
    Dim sBuf As String
    Dim curEnt As New Entitlements
    
    'For parsiing the line into separate strings
    ReDim Substr(0) As String
    Dim SubStrCount As Integer
    Dim lineCount As Integer
    Dim wordCount As Integer
    Dim i As Integer
    lineCount = 0
    wordCount = 0

    ' edit this:
    sFileName = REPORT_DATA_FILE

    ' does the file exist?  simpleminded test:
    If Len(Dir$(sFileName)) = 0 Then
        MsgBox ("You didn't input a file at all. Please make sure the package was unzipped to the C: drive directly")
        Exit Sub
    End If

    iFileNum = FreeFile()
    Open sFileName For Input As iFileNum

    'while not at the end of the file
    Do While Not EOF(iFileNum)
        
        'up the line counter to one (we use this for the dynamic array's size)
        're dimension preserve the array to up its size by 1 more in prep for a new item
        'as well as keep all the items its accumulated so far
        ReDim Preserve permList(lineCount) As Entitlements
        'Set permList(lineCount) = Nothing
        'use line input to get the line
        Line Input #iFileNum, sBuf
        ' now you have the next line of the file stored in sBuf
        ' rip apart sBuf into individual strings, storing the count of them
        ' in SubStrCount. This will be needed to iterate to the right number
        SubStrCount = ParseString(Substr(), sBuf, ",")
        ' the below process will store the sub-strings in permList:
        ' Get the first string. That's a heading topic entitlement
        If (SubStrCount = 5) Then
            curEnt.Category = Substr(1)
            curEnt.Title = Substr(2)
            curEnt.Id = Substr(3)
            curEnt.Enttlmnt = Substr(4)
            curEnt.EntType = Substr(5)
            'plug in the item at the count - 1 position for the 0 based array
        Else
            MsgBox ("Your source text file contains a line with more items than allowed" _
                    & "Please check the source file or use another one in proper format" _
                    & "This presentation will not work as expected unless you start over")
            Exit Sub
        End If
        
        If (lineCount = 1) Then
            MsgBox ("XXXfor permList(0) the first three elems are: " & permList(0).Category & " :: " _
                & permList(0).Title & " :: " & permList(0).Id)
        End If
        MsgBox (lineCount)
        
        'Me thinks the problem lies right here, but cannot figure out a solution at all
        Set permList(lineCount) = curEnt
        
        MsgBox ("for permList(0) the first three elems are: " & permList(0).Category & " :: " _
                & permList(0).Title & " :: " & permList(0).Id)
        
        lineCount = lineCount + 1
        
        'IT JUST KEEPS OVERWRITING ALL MY ROWS TO THE ONE THAT WAS LAST
        
        'MsgBox ("The Current ent details are: " & curEnt.Category & " :: " _
        '        & curEnt.Title & " :: " & curEnt.Id & " :: " _
        '        & curEnt.Id & " :: " & curEnt.Enttlmnt & " :: " _
        '        & curEnt.EntType)
    Loop ' we've reached the end of the file now
    
    ' close the file
    Close iFileNum
    
    'after all of this the array now stores the values we will need to fill in the
    'excel sheet with data
    MsgBox ("for permList(0) the first three elems are: " & permList(0).Category & " :: " _
            & permList(0).Title & " :: " & permList(0).Id)
    MsgBox ("for permList(1) the first three elems are: " & permList(1).Category & " :: " _
            & permList(1).Title & " :: " & permList(1).Id)
    
End Sub

 
If (SubStrCount = 5) Then
            curEnt.Category = Substr(1)
            curEnt.Title = Substr(2)
            curEnt.Id = Substr(3)
            curEnt.Enttlmnt = Substr(4)
            curEnt.EntType = Substr(5)
        Else
            MsgBox ("Your source text file contains a line with more items than allowed" _
                    & "Please check the source file or use another one in proper format" _
                    & "This presentation will not work as expected unless you start over")
            Exit Function
        End If
 
        'Me thinks the problem lies right here, but cannot figure out a solution at all
        Set permList(lineCount) = curEnt
 
        curEnt.Category = ""
        curEnt.Title = ""
        curEnt.Id = ""
        curEnt.Enttlmnt = ""
        curEnt.EntType = ""
 
        lineCount = lineCount + 1
 
 
 

 
MsgBox ("for permList(0) the first three elems are: " & permList(0).Category & " :: " _
            & permList(0).Title & " :: " & permList(0).Id)
    MsgBox ("for permList(1) the first three elems are: " & permList(1).Category & " :: " _
            & permList(1).Title & " :: " & permList(1).Id)
    MsgBox ("for permList(2) the first three elems are: " & permList(2).Category & " :: " _
            & permList(2).Title & " :: " & permList(2).Id)
 

 
Do While Not EOF(iFileNum)
 
        'CRUCUIAL SETTING THIS TO NOTHING...DON'T KNOW WHY
        Set curEnt = Nothing
        'up the line counter to one (we use this for the dynamic array's size)
        're dimension preserve the array to up its size by 1 more in prep for a new item
        'as well as keep all the items its accumulated so far
        ReDim Preserve permList(lineCount) As Entitlements