Comments by ATeDe (Top 10 by date)

Great stuff, Richard! Thanks a lot!

Thanks Graeme, nice example of LINQ application. Actually you've given me indication that KeyValuePair can be used to convert array A to listA following way:

Dim listA As List(Of KeyValuePair(Of String, Integer)) = A.Select(Function(x, i) New KeyValuePair(Of String, Integer)(x, i)).ToList()

Hi Dave!

...the code using XDocument and LINQ query looks as follow:

Dim listTableA = XDocument.Load("details.XML").Root.Elements("tableA")
Dim tableAList As List(Of TableA)
tableAList = (From e In listTableA
Select New TableA With {
.Field1 = CInt(e.<field1>.Value),
.Field2 = CStr(e.<field2>.Value),
.Field3 = CStr(e.<field3>.Value),
.Field4 = (
From o In e...<field4>...<tableb>
Select New TableB With {
.Fld1 = CInt(o.<fld1>.Value),
.Fld2 = CInt(o.<fld2>.Value),
.Fld3 = CDec(o.<fld3>.Value)
}).ToArray()
}).ToList()

Dim tableA = New DataTable("tableA")
tableA.Columns.Add("Field1", GetType(Integer))
tableA.Columns.Add("Field2", GetType(String))
tableA.Columns.Add("Field3", GetType(String))

Dim tableB = New DataTable("tableB")
tableB.Columns.Add("Fld1", GetType(Integer))
tableB.Columns.Add("Fld2", GetType(Integer))
tableB.Columns.Add("Fld3", GetType(Decimal))

For Each a In tableAList
Dim rowA As New List(Of Object) From {a.Field1, a.Field2, a.Field3}
tableA.Rows.Add(rowA.ToArray())
For Each b In a.Field4
Dim rowB As New List(Of Object) From {b.Fld1, b.Fld2, b.Fld3}
tableB.Rows.Add(rowB.ToArray())
Next
Next
_ShowTable(tableA)
_ShowTable(tableB)

...and results as below:

->Unformatted table: tableA
Field1,Field2,Field3
11,12,13
21,22,23
31,32,33

->Unformatted table: tableB
Fld1,Fld2,Fld3
1,1,1.3
1,2,1.6
2,2,2.3
2,2,2.6
3,3,3.3
3,4,3.6
4,4,3.9

...Re: What is the end result supposed to be? What is this being used for?

Actually, I hope to develop some sort of most simplistic way, perhaps maybe even generating code to read automatically my legacy scientific data. At the moment, I can't see any chances to simplify the code. The next step would be to use a Dictionary as it is easy to use and effective. It has many functions (like ContainsKey and TryGetValue) that do lookups. And I hope that way my code will recognise the structure and get correct type of T for my data records

Hi Dave!

...after this piece of code:

Dim dataSet As DataSet = New DataSet
dataSet.ReadXml("details.XML")
Dim dataTable As New DataTable
For Each dataTable In dataSet.Tables
_ShowTable(dataTable)
Next
_NewLine(Message:="Reading using ReadXml finished, OK! ")

... the printout looks like this:

->Unformatted table: tableA
Field1,Field2,Field3,tableA_Id
11,12,13,0
21,22,23,1
31,32,33,2

->Unformatted table: detail
detail_Id,tableA_Id
0,0
1,1
2,2

->Unformatted table: tableB
Fld1,Fld2,Fld3,detail_Id
1.1,1.2,1.3,0
1.4,1.5,1.6,0
2.1,2.2,2.3,1
2.4,2.5,2.6,1
3.1,3.2,3.3,2
3.4,3.5,3.6,2
3.7,3.8,3.9,2

->Reading using ReadXml finished, OK! Press any key to continue...

...as you see everything is going right way, except fact tableA & tableB are apart instead of look like that or similar:

11,12,13,1.1,1.2,1.3
1.4,1.5,1.6
21,22,23,2.1,2.2,2.3
2.4,2.5,2.6
31,32,33,3.1,3.2,3.3
3.4,3.5,3.6
3.7,3.8,3.9

...do you see what's the problem now?

Hi Dave! Thanks for reply, but I should have mentioned in 1st post, that the source of data is in form of XML file, which looks like one attached below. I don't have problem reading XML file using

dataSet.ReadXml(fileXML)

or

XDocument.Load(fileXML).Root.Elements("Details")

and creating <tablea>, but can't create composite DataTable including <tableb> detail data!!!