What I have is a configuration text file that I created using some formatting.
Example lines in text file are below - ; is used as a delimeter
There are several prefixes that tell me what type of control the data is for
[tbp - This is for a page on a tab control
[grp - This is for a groupbox control
[tbc - This is for a Tab Control
[dgv - This is for a Datagridview control
Right now I am only interested in the datagridview control. Lines in the text file that start with [dgv
[dgvCh1Rec1];False;;1;0101;WID;Well Identifier;;;;;;
[dgvCh1Rec1];False;;2;0102;SKNO;Sidetrack/Hole Section No.;;;;;;
[dgvCh1Rec2];False;;1;0201;WID;Well Identifier;;;;;;
[dgvCh1Rec2];False;;2;0202;SKNO;Sidetrack/Hole Section No.;;;;;;
[dgvCh2Rec1];False;;1;0101;WID;Well Identifier;;;;;;
[dgvCh2Rec1];False;;2;0102;SKNO;Sidetrack/Hole Section No.;;;;;;
[dgvCh2Rec2];False;;1;0201;WID;Well Identifier;;;;;;
[dgvCh2Rec2];False;;2;0202;SKNO;Sidetrack/Hole Section No.;;;;;;
I am just showing Rec1 and Rec2 for Ch1 and Ch2 here but in reality it can be ChX and RecX Where X can be whatever
So I am looking for a way read the text file and whenever [dgv is found group by Ch and Rec and put into an array.
So 1st array would be Ch1Rec1 lines of text, 2nd array would be Ch1 Rec2 lines of text, 3rd array would be Ch2 Rec1 lines of text, 4th array would be Ch2 Rec2 lines of text.
Take a look at the TextFieldParser Class. This is a quick way of reading in delimited text files into an array for each line. You can then check the String in the first element of the array to determine whether it starts with "[dgv", and keep those arrays. See here for an example of using that class...
That's nice and thanks but how do I get array for Ch1Rec1 lines of text. Next array for Ch1Rec2 lines of text. Next array for Ch1Rec3 lines of text and on and on.
Then array for Ch2Rec1 lines of text, etc. Remember Ch goes from 1 to X and Rec goes from 1 to X.
Imports Microsoft.VisualBasic.FileIO
Public Class Form1
Dim newLists As New List(Of List(Of String()))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tfp As New TextFieldParser("filename.txt")
tfp.Delimiters = New String() {";"}
Dim lines As New List(Of String())
While Not tfp.EndOfData
lines.Add(tfp.ReadFields)
End While
Dim unique() As String = lines.Select(Function(l) l(0)).Distinct.ToArray
For Each s As String In unique
newLists.Add(lines.Where(Function(l) l(0) = s).ToList)
Next
ComboBox1.Items.AddRange(unique)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim dt As New DataTable
dt.Columns.Add("c1")
dt.Columns.Add("c2", GetType(Boolean))
For x As Integer = 3 To newLists(ComboBox1.SelectedIndex).Max(Function(c) c.Length)
dt.Columns.Add("c" & x.ToString)
Next
For Each a As Object() In newLists(ComboBox1.SelectedIndex)
dt.Rows.Add(a)
Next
DataGridView1.DataSource = dt
End Sub
End Class
Last edited by .paul.; Feb 25th, 2015 at 09:21 PM.
That last example only shows small amount of input from file as an example. It needs to handle
1;Dog;Duke
1;Cat;Kitty
1;Hampster;Mousey
2;Tiger;Mike
2;Lion;Mufasa
3;Bear;Smokey
3;PolarBear;Snowflake
4;Bird;Peetie
4;Hawk;Screetch
5;
5;
...
...
...
20;Hippo;Henreata
So 1st array (or datatable) would have 3 elements - first column is 1, second array would have 2 elements - first column is 2, 20th array would have 1 element.
Basically I want to read a file as input and group the lines of text into individual arrays based on the id used in the first column. The first column id could be numerical as show in my easy example or string as [dgvCh1Rec1] as I have in my other example input. So I would want to group on [dgvCh1Rec1], [dgvCh1Rec2], etc...
Paul thanks for the sample code. I am sure I can wiggle it around a bit and get it to suit my purpose. I was trying to implement a read forward to see if the next line to be read had a first column value that was different than the line that was just read and use that as a separator. Some days your on and some days your off. Today was an off day. Thanks again for all the input.
I used the first set of data to test it but it should work with the animal text file too.
It does separate into groups based on the first column. Try it and see...
ok. I will use the [dgvCh1Rec1] sample input for testing the code then. Again thanks for the assistance. It's 9:20pm here so I will try first thing when I get to work in the morning.
instead of separating on distinct first column which is basically separating on ChXRecX what if I wanted to separate on just ChX. I want to group by dgvCh1, dgvCh2, dgvCh3, etc.
Imports Microsoft.VisualBasic.FileIO
Public Class Form1
Dim newLists As New List(Of List(Of String()))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tfp As New TextFieldParser("C:\Users\Paul\Desktop\1.txt")
tfp.Delimiters = New String() {";"}
Dim lines As New List(Of String())
While Not tfp.EndOfData
lines.Add(tfp.ReadFields)
End While
Dim unique() As String = lines.Select(Function(l) l(0).Substring(1, l(0).IndexOf("Rec") - 1)).Distinct.ToArray
For Each s As String In unique
newLists.Add(lines.Where(Function(l) l(0).Substring(1, l(0).IndexOf("Rec") - 1) = s).ToList)
Next
ComboBox1.Items.AddRange(unique)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim dt As New DataTable
dt.Columns.Add("c1")
dt.Columns.Add("c2", GetType(Boolean))
For x As Integer = 3 To newLists(ComboBox1.SelectedIndex).Max(Function(c) c.Length)
dt.Columns.Add("c" & x.ToString)
Next
For Each a As Object() In newLists(ComboBox1.SelectedIndex)
dt.Rows.Add(a)
Next
DataGridView1.DataSource = dt
End Sub
End Class
Just want to write to debug.print in this format. The first field in the output is the channel number and comes from [grpConfigCh1] and [grpConfigCh8]. ChX can be 1 to whatever. Just a sample
1, DBNull.Value, DBNull.Value, "Rx/Tx", 1, "None", 8, 9600, "Com6", "RS232", "BP Platform 1"
8, DBNull.Value, DBNull.Value, "Rx", 1, "None", 8, 9600, "Com1", "RS232", "Pemex 23"
Last edited by djsnts; Feb 27th, 2015 at 04:34 PM.
Imports Microsoft.VisualBasic.FileIO
Public Class Form1
Dim newLists As New List(Of List(Of String()))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tfp As New TextFieldParser("C:\Users\Paul\Desktop\1.txt")
tfp.Delimiters = New String() {";"}
Dim lines As New List(Of String())
While Not tfp.EndOfData
lines.Add(tfp.ReadFields)
End While
Dim unique() As String = lines.Select(Function(l) l(0)).Distinct.ToArray
For Each s As String In unique
newLists.Add(lines.Where(Function(l) l(0) = s).ToList)
Next
For Each l As List(Of String()) In newLists
Debug.Print(String.Join(", ", l.Select(Function(s) If(s(2) = "", "DBNull.Value", s(2))).ToArray))
Next
End Sub
End Class
Works fine only thing missing is for the first field in the output it should strip the number 1 from [grpConfigCh1]
so first line of output is
1, DBNull.Value, DBNull.Value, "Rx/Tx", 1, "None", 8, 9600, "Com6", "RS232", "BP Platform 1" - The 1 comes from stripping it from [grpConfigCh1]
second line of output is
8, DBNull.Value, DBNull.Value, "Rx", 1, "None", 8, 9600, "Com1", "RS232", "Pemex 23" - The 8 comes from stripping it from [grpConfigCh8]
For Each l As List(Of String()) In newLists
Debug.Print(String.Join(", ", New String() {l(0)(0).Replace("[grpConfigCh", "").Replace("]", "")}.Concat(l.Select(Function(s) If(s(2) = "", "DBNull.Value", s(2)))).ToArray))
Next
Thanks for all your help mate. I have some questions that I wanted to ask you on a couple of lines of your code and was hoping you could give me an explanation. I have some errands to run so I am leaving early. I will come into work tomorrow and post my questions about your code. Thanks again.
using my last post as a sample input file, it should only grab lines that start with [grpConfig and write them to a datatable. Previously I said debug.print
Imports Microsoft.VisualBasic.FileIO
Public Class Form1
Dim newLists As New List(Of List(Of String()))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tfp As New TextFieldParser("C:\Users\Paul\Desktop\1.txt")
tfp.Delimiters = New String() {";"}
Dim lines As New List(Of String())
Dim c1 As Integer = 0
While Not tfp.EndOfData
Dim fields() As String = tfp.ReadFields
lines.Add(fields)
If fields(0).StartsWith("[grpConfigCh") Then c1 += 1
End While
Dim unique() As String = lines.Select(Function(l) l(0)).Distinct.ToArray
For Each s As String In unique
newLists.Add(lines.Where(Function(l) l(0) = s).ToList)
Next
Dim c2 As Integer = 0
For Each l As List(Of String()) In newLists
For Each a As String() In l
If a(0).StartsWith("[grpConfigCh") Then
Debug.Print(String.Join(", ", New String() {l(0)(0).Replace("[grpConfigCh", "").Replace("]", "")}.Concat(l.Select(Function(s) If(s(2) = "", "DBNull.Value", s(2)))).ToArray))
c2 += 1
End If
Next
Next
MsgBox(String.Format("c1: {0}{3}c2: {1}{3}c1 = c2 = {2}", c1, c2, c1 = c2, Environment.NewLine))
End Sub
End Class
Reply With Quote
