No idea to export the msflexgrid in tabular output the complete calendar 1

[sal21]

No idea to export the msflexgrid in tabular output the complete calendar...

use for this the simple output file:

MYFILE = "C:\Lavori_Vb6\CALENDARIO_LISTVIEW\CSV_FILE\MSFLEXGRID_" & ANNO & ".txt"

Close #1
Open MYFILE For Output As #1

https://files.engineering.com/getfi...6663-4618-a559-acf2fa51db4f&file=Immagine.jpg

 

[strongm]

This'll get you a string in tabular format with whatever separator you choose into a string. You can then write the string to a file. I leave that as an exercise for the reader

[COLOR=blue]Public Function FlexText(srcFlexgrid As MSFlexGrid, Optional Separator As String = " ") As String
    Dim row As Long
    Dim col As Long

    With srcFlexgrid
        For col = 0 To .Cols - 1
            For row = 0 To .Rows - 1
                FlexText = FlexText & .TextMatrix(row, col)
                If row < .Rows - 1 Then FlexText = FlexText & Separator
            Next
            If col < .Cols - 1 Then FlexText = FlexText & vbCrLf
        Next
    End With
End Function[/color]

 

[Andrzejek]

strongm,
I may have a 'senior moment', but - shouldn't [tt]row[/tt] and [tt]col[/tt] logic be 'reversed'/flipped around...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[strongm]

Touché! That'll teach me to use symmetrical data in my test set!

So, here's the correct version

[COLOR=blue]Public Function FlexText(srcFlexgrid As MSFlexGrid, Optional Separator As String = " ") As String
    Dim row As Long
    Dim col As Long

    With srcFlexgrid
        For row = 0 To .Rows - 1
            For col = 0 To .Cols - 1
                FlexText = FlexText & .TextMatrix(row, col)
                If col < .Cols - 1 Then FlexText = FlexText & Separator
            Next
            If row < .Rows - 1 Then FlexText = FlexText & vbCrLf
        Next
    End With
End Function[/color]

 

[sal21]

OK, tks.
but how to export into a txt file?

 

[Andrzejek]

how to export into a txt file?

Have you tried this approach

strongm, I was hoping you are gonna leave it 'as an exercise for the reader' to reverse it...

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

[strongm]

>but how to export into a txt file?

You can then write the string to a file. I leave that as an exercise for the reader

I despair of you calling yourself a programmer if you don't know how to write a string to a file, particularly since you were about 1 or 2 lines of code away from the answer to that in your first post.

Here, I had a few moments:

[COLOR=blue]    hfile = FreeFile [COLOR=green]' best practice, rather than hardcoding a file handle[/color]
    Open MYFILE For Output As hfile [COLOR=green]' this is MYFILE from your original post[/color]
    Print #hfile, FlexText(MSFlexGrid1, vbTab);
    Close hfile[/color]