[RESOLVED] display the content..

[leinad31]

Its easiest to alternate between the two column groups (1 group is 2 columns) rather than printing 1-50 in first column group then 50-100 in the second column group.

Private Sub Command2_Click()
Dim lX As Long
Dim lstItem1 As ListItem
Dim lstItem2 As ListItem
Dim sLine As String
 
   Open "C:\fileout.txt" For Output As #1
   
On Error Resume Next
   lX = 1
   Do
      Set lstItem1 = Nothing
      Set lstItem2 = Nothing
      
      Set lstItem1 = ListView1.ListItems(lX)
      Set lstItem2 = ListView1.ListItems(lX + 1)
 
      If lstItem2 Is Nothing Then
         Print #1, lstItem1.Text; Tab; lstItem1.SubItems(1)
      Else
         Print #1, lstItem1.Text; Tab; lstItem1.SubItems(1); Tab; Tab; lstItem2.Text; Tab; lstItem2.SubItems(1)
      End If
      lX = lX + 2
   Loop Until lX >= ListView1.ListItems.Count
On Error GoTo 0
 
   Close #1
End Sub