How to export values from a listview to CSV file in VB6?

Question

0.00/5 (No votes)

See more:

VB6

I'm just new in programming and I want to know how will I put the values listed in my List view to a csv file.

Thanks

Posted 14-Jan-12 18:13pm

marvinaccent

Updated 7-Jul-23 10:17am

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

RDBurmon · Answer 1 · 2012-01-14T22:00:00

Solution 1

Use below algorithm and code accordingly

VB

Variable : StrCSVFiles
StrCSVFiles = ""

Loop through all list item (increment x as index)
   StrCSVFiles = StrCSVFiles + Listview1[x].listitem(0) + "," + Listview1[x].listitem(1)
 x = x +1
End Loop

 Create file
 File.Write (StrCSVFiles)

Posted 14-Jan-12 22:00pm

RDBurmon

Updated 16-Jan-12 9:18am

v2

Member 16045875 · Answer 2 · 2023-07-07T10:17:00

Public Sub ExportListviewToCsv(ByRef theListView As ListView, csvExportFileName As String, Optional writeHeader As Boolean = True, Optional useQuotes As Boolean = True)
    Dim fileNum As Integer
    Dim theListItem As ListItem
    Dim idx As Long
    
    fileNum = FreeFile(255)
    
    Open csvExportFileName For Output As #fileNum
    
    If writeHeader = True Then
        For idx = 1 To theListView.ColumnHeaders.Count
            If useQuotes = True Then
            Print #fileNum, Chr(34) & theListView.ColumnHeaders(idx).Text & Chr(34);
            Else
                Print #fileNum, theListView.ColumnHeaders(idx).Text;
            End If
            If idx < theListView.ColumnHeaders.Count Then
                Print #fileNum, ",";
            End If
        Next
        Print #fileNum, ""
    End If
    
    For Each theListItem In theListView.ListItems
        If useQuotes = True Then
            Print #fileNum, Chr(34) & theListItem.Text & Chr(34);
        Else
            Print #fileNum, theListItem.Text;
        End If
        If theListItem.ListSubItems.Count > 0 Then
            Print #fileNum, ",";
            For idx = 1 To theListItem.ListSubItems.Count
                If useQuotes = True Then
                    Print #fileNum, Chr(34) & theListItem.SubItems(idx) & Chr(34);
                Else
                    Print #fileNum, theListItem.SubItems(idx);
                End If
                If idx < theListItem.ListSubItems.Count Then
                    Print #fileNum, ",";
                End If
            Next
        End If
        Print #fileNum, ""
    Next
    
    Close #fileNum
    
End Sub