Loading from a flat (txt) file to Listbox

[sakreg1]

I have an input file similar to the one below:-

- The first 6 characters (1,6) for all rows would be the same . Following this
- in the first row (7,1 st position) there will be some 1 digit
- in the second row there will be EOL(7,3 rd position), followed by 9 Characters (H6E016094)(10,9 th position)
- in the third row there will be 95 followed by 7 digits (4125159) (9,7 th position)

2188571
218857EOLH6E016094
218857954125159

How do I strip these fields from file and diplay that in a form inside a List Box. Below is how I expect to see the value from the file to be displayed.

Column1 Column2 Column3 Column4
1 EOL H6E016094 954125159

Is using Listbox is the correct approach or how do I go about?

[MartinLiss]

You want to use a Listview or some type of grid rather than a listbox.

[sakreg1]

I am not familar with neither ListBox nor Grid. I leave the choice to you guys for which one would be better and easy to understand

[MartinLiss]

Can you attach a sample file?

[sakreg1]

First post edited with the attachment

[MartinLiss]

I see your sample but that's not what I meant. I'm looking for an actual data file.

In your explanation you seem to want to put data from the first 3 lines in the file on the same line in the listbox/listview. Is that correct? If so is there more data and is all the data in sets of 3 rows?

[trisuglow]

Option Explicit
 
Private Sub Command1_Click()
  Dim f As Integer
  Dim i As Integer
  Dim s As String
  f = FreeFile
  Open "C:\sample.txt" For Input As f
  For i = 1 To 3
    Line Input #f, s
    Select Case i
    Case 1
      Debug.Print Mid$(s, 7, 1)
    Case 2
      Debug.Print Mid$(s, 7, 3)
      Debug.Print Mid$(s, 10, 9)
    Case 3
      Debug.Print Mid$(s, 7, 9)
    End Select
  Next
  Close f
  
End Sub

[sakreg1]

All the data to be populated for one row is there in the file. Always data from set of 3 rows in line will form a one row in the listbox. If I go with more data in the sample file, that won't help much I think Martin.

[MartinLiss]

Well it would help to test it better, but try this.

Dim ff As Integer
    Dim strLine As String
    Dim clmX As ColumnHeader
    Dim itmX As ListItem
    Dim intPart As Integer
 
    ' Add ColumnHeaders.
    Set clmX = ListView1.ColumnHeaders.Add(, , "Col 1", 900)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Col 2", 900)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Col 3", 1200)
    Set clmX = ListView1.ColumnHeaders.Add(, , "Col 4", 1200)
    
    ListView1.BorderStyle = ccFixedSingle ' Set BorderStyle property.
    ListView1.View = lvwReport ' Set View property to Report.
 
    ff = FreeFile
    
    Open "C:\temp\test.txt" For Input As #ff
    
    Do Until EOF(ff)
        For intPart = 1 To 3
            Select Case intPart
                Case 1
                    Line Input #ff, strLine
                    Set itmX = ListView1.ListItems.Add(, , Mid$(strLine, 7, 1))
                    Line Input #ff, strLine
                    itmX.SubItems(1) = Mid$(strLine, 7, 3)
                Case 2
                    itmX.SubItems(2) = Mid$(strLine, 10)
                Case 3
                    Line Input #ff, strLine
                    itmX.SubItems(3) = Mid$(strLine, 7)
            End Select
        Next
    Loop
    
    Close ff

[sakreg1]

Will try out that. ThankYou for all the responses.