Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB6
Expertise: Intermediate
Sep 15, 2003

SaveCSV - Saving the content of a FlexGrid control as a CSV-file

' Save the content of a FlexGrid control as a CSV-file
' Example: SaveCSV("C:\Test.csv", MSFlexGrid1)

Private Sub SaveCSV(ByVal strFilename As String, ByRef msFlex As MSFlexGrid)
    Const SEPARATOR_CHAR As String = ","

    Dim intFreeFile As Integer
    Dim strLine As String
    Dim r As Integer
    Dim c As Integer

    intFreeFile = FreeFile
    
    Open strFilename For Output As #intFreeFile
    
    With msFlex
        ' Every row
        For r = 0 To .Rows - 1
            strLine = ""
            
            ' Every column
            For c = 0 To .Cols - 1
                strLine = strLine & IIf(c = 0, "", _
                    SEPARATOR_CHAR) & .TextMatrix(r, c)
            Next c
            
            Print #intFreeFile, strLine
        Next r
    End With
    
    Close #intFreeFile
End Sub
Pebe
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap