Quantcast
Channel: Windows Forms Data Controls and Databinding forum
Viewing all articles
Browse latest Browse all 2535

Export Specific DataGridView columns (text and checkboxes) into text file (VB.Net)

$
0
0

Hi there,

I am finishing the commissioning program for an alarm system I am prototyping. I have actually finished the prototype, yet I cannot bring an end to this VB.net program!

I have a datagridview (Sounder_GroupsDataGridView) which is populated by an XML file before the form opens. The DataGridView (Sounder_GroupsDataGridView) has 34 columns and 12 set rows as shown in the photo below HOWEVER there is one column after the "signal" column containing a "location" column which is hidden.

Columns: Signal | Location | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | >all the way to> | 32 |

What I want to do is export:

| Location | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | >all the way to> | 32 |

The file needs to be laid out as follows. So it's location with a comma and then the number values from the 32 checkboxes for that row. But I need to append 32 "F" characters because my system needs 64 characters per line. So, a finished line will look like:

0, 01010101010101000000000101010101FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

64,01010101010101000000000101010101FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

128,00000010101010101001010101010101FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

192,10101010101011111111111111111111FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

256,10101010101011111111111111111111FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF

...continued...

I have previously asked how to export two specific columns to a text file, but am unable to modify this to write the additional 31 columns. I have been able to successfully export two columns with that code from the sounder_groupsDataGridView. Here's that code:

The problem with this code is that if I don't manually check the boxes, I will get "true" or "false" as opposed to the numerical value which I need.

Dim sLine AsString=""Dim sLines AsString=""' added

        For iRow As Integer = 0 To Sounder_Groups.Sounder_GroupsDataGridView.RowCount - 1
            sLine = ""
            For iCol As Integer = 0 To Sounder_Groups.Sounder_GroupsDataGridView.ColumnCount - 1
                If iCol = 1 Or iCol = 2 Then
                    sLine &= Sounder_Groups.Sounder_GroupsDataGridView(iCol, iRow).Value.ToString & ","
                End If
            Next
            sLines &= sLine.Substring(0, sLine.Length - 1) & vbCrLf
        Next
        My.Computer.FileSystem.WriteAllText("C:\testexport.txt", sLines, False) ' generated from right click, snippets

Would really love some help on this. I have no idea how to proceed.

Really wish these things were simpler to use. They have been the bane of my life.


Viewing all articles
Browse latest Browse all 2535

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>