loop in listview element and print in tabular mode

[sal21]

I need to loop in a listview all cells and all column and print the value in tabular mode in a txt file...
but without the last column (is hided i use that for a index)

now i have a liitle difficult

Similar:

| qnsdataID | qnsID | ansID |
-------------------------------------
| qd0001 | qns0002 | ans0012 |
| qd0002 | qns0002 | ans0016 |
| qd0003 | qns0002 | ans0001 |
-------------------------------------

[HansV]

Try this as starting point:

Code: Select all

    Const c = 25
    Dim i As Long
    Dim j As Long
    Dim m As Long
    Dim n As Long
    Dim f As Integer
    Dim s As String
    Dim t As String
    f = FreeFile
    Open "C:\Output\Test.txt" For Output As #f
    m = Me.ListView1.ListItems.Count
    n = Me.ListView1.ColumnHeaders.Count
    For j = 1 To n - 1
        t = Me.ListView1.ColumnHeaders(j).Text
        s = s & t & Space(c - Len(t))
    Next j
    Print #f, Trim(s)
    For i = 1 To n
        t = Me.ListView1.ListItems(i).Text
        s = t & Space(c - Len(t))
        For j = 1 To n - 2
            t = Me.ListView1.SubItems(j)
            s = s & t & Space(c - Len(t))
        Next j
        Print #f, Trim(s)
    Next i
    Close #f

I can't test it since I can't use listview.

[sal21]

Try this as starting point:

Code: Select all

    Const c = 25
    Dim i As Long
    Dim j As Long
    Dim m As Long
    Dim n As Long
    Dim f As Integer
    Dim s As String
    Dim t As String
    f = FreeFile
    Open "C:\Output\Test.txt" For Output As #f
    m = Me.ListView1.ListItems.Count
    n = Me.ListView1.ColumnHeaders.Count
    For j = 1 To n - 1
        t = Me.ListView1.ColumnHeaders(j).Text
        s = s & t & Space(c - Len(t))
    Next j
    Print #f, Trim(s)
    For i = 1 To n
        t = Me.ListView1.ListItems(i).Text
        s = t & Space(c - Len(t))
        For j = 1 To n - 2
            t = Me.ListView1.SubItems(j)
            s = s & t & Space(c - Len(t))
        Next j
        Print #f, Trim(s)
    Next i
    Close #f

I can't test it since I can't use listview.

hummmmmmm.... see image, please

[Claude]

What does the error message mean in English ?

[HansV]

Try changing the offending line to

Code: Select all

            t = Me.ListView1.ListItems(i).SubItems(j)