Agfdhyk

I need to use a dinamic way to get the value from My XML file.

HERE IS MY ORGINAL XML FILE

The code i use to get the value was provide by @jdweng and i works...but i need a dynamic way.. because the problem with this way is if i change the name of tags .. i will need also to go at code to change the name.... but not if i have save the path in a table ..i just go at that table and i change here.
That is also the solution

The code that i have for the moment :

Private Sub GetContinents()



    Const FILENAME As String = "C:test.xml"



    Dim settings As XmlReaderSettings = New XmlReaderSettings()



    settings.ConformanceLevel = ConformanceLevel.Fragment



    Dim reader As XmlReader = XmlReader.Create(FILENAME, settings)





    Dim dt As DataTable = New DataTable()

    dt.Columns.Add("Display Name", GetType(String))

    dt.Columns.Add("Code", GetType(String))

    dt.Columns.Add("Esame", GetType(String))

    dt.Columns.Add("Esito", GetType(String))

    dt.Columns.Add("Abnormal Flag", GetType(String))

    dt.Columns.Add("Unita Di Misura", GetType(String))

    dt.Columns.Add("Range Di Riferimento", GetType(String))

    dt.Columns.Add("Metoda", GetType(String))

    dt.Columns.Add("Low", GetType(Decimal))

    dt.Columns.Add("High", GetType(Decimal))

    dt.Columns.Add("Time", GetType(DateTime))





    Dim uri = "urn:hl7-org:v3"



    While (Not reader.EOF)



        If reader.Name <> "section" Then



            reader.ReadToFollowing("section", uri)

        End If

        If Not reader.EOF Then



            Dim section As XElement = CType(XElement.ReadFrom(reader), XElement)



            Dim xCode As XElement = section.Descendants().Where(Function(x) x.Name.LocalName = "code").FirstOrDefault()

            Dim displayName As String = CType(xCode.Attribute("displayName"), String)



            For Each xComponent As XElement In section.Elements().Where(Function(x) x.Name.LocalName = "component")

                Dim xEsame As XElement = xComponent.Descendants().Where(Function(x) x.Name.LocalName = "code").FirstOrDefault()

                Dim code As String = CType(xEsame.Attribute("code"), String)



                Dim xBody As XElement = xComponent.Descendants().Where(Function(x) x.Name.LocalName = "tbody").FirstOrDefault()

                Dim data As New List(Of String)

                data.AddRange({displayName, code})



                data.AddRange(xBody.Descendants().Where(Function(x) x.Name.LocalName = "td").Select(Function(x) CType(x, String)))



                Dim entry As XElement = section.Descendants().Where(Function(x) x.Name.LocalName = "entry").FirstOrDefault()



                Dim low As XElement = entry.Descendants().Where(Function(x) x.Name.LocalName = "low").FirstOrDefault()

                If low Is Nothing Then

                    data.Add(Nothing)

                Else

                    data.Add(Decimal.Parse(CType(low.Attribute("value"), String)))

                End If

                Dim high As XElement = entry.Descendants().Where(Function(x) x.Name.LocalName = "high").FirstOrDefault()

                If high Is Nothing Then

                    data.Add(Nothing)

                Else

                    data.Add(Decimal.Parse(CType(high.Attribute("value"), String)))

                End If



                Dim effectiveTime As XElement = entry.Descendants().Where(Function(x) x.Name.LocalName = "effectiveTime").FirstOrDefault()

                Dim dateStr As String = CType(effectiveTime.Attribute("value"), String)

                data.Add(DateTime.ParseExact(dateStr, "yyyyMMddHHmmss", System.Globalization.CultureInfo.InvariantCulture))



                'For i = 0 To data.Count - 1

                Insert_CDA_Data(data)

                '    i = i + 11

                'Next

                'dt.Rows.Add(data.ToArray())

                'Debug.WriteLine(dt)



            Next xComponent



        End If

    End While



End Sub



Private Function Insert_CDA_Data(ByVal data As List(Of String))

    Dim esito As Boolean = True



    Try

        Using scope As New TransactionScope()



            operations.INSERT_CDA(ucDataCapture(data))

            scope.Complete()

        End Using



    Catch ex As Exception

        esito = False

        Dim log As New Log

        log.writeLog("Cda", ex)

    End Try



    Return esito

End Function



Private Function ucDataCapture(ByVal data As List(Of String)) As CDA



    Dim CDA_D As New CDA



    Try

        CDA_D.codeProperty = data(1)

        CDA_D.nameProperty = data(0)

        CDA_D.esameProperty = data(2)

        CDA_D.esitoProperty = data(3)

        CDA_D.abnormalFlagProperty = data(4)

        CDA_D.unitaDiMisuraProperty = data(5)

        CDA_D.rangeDiRiferimentoProperty = data(6)

        CDA_D.metodaProperty = data(7)

        If data(8) IsNot Nothing Then

            CDA_D.lowProperty = data(8)

        Else

            CDA_D.lowProperty = ""

        End If

        If data(9) IsNot Nothing Then

            CDA_D.highProperty = data(9)

        Else

            CDA_D.highProperty = ""

        End If



        CDA_D.effectiveTimeProperty = data(10)

    Catch ex As Exception

        Dim log As New Log

        log.writeLog("Cda ", ex)

    End Try

    Return CDA_D



End Function

Thank you for your help .

So the table should look like that or tables, because the first title does not have a low or high value, so this value will be take only where there is one .

So i have try this way....

Imports System.IO

Imports System.Xml

Module CdaParser
Sub Main()

    Try

        Console.Write("Enter CDA path: ")



        Dim FilePath = Console.ReadLine()



        If Not File.Exists(FilePath)

            throw New Exception("Error! File does not exist.")

        End If



        'Load CDA

        Dim Document = New XmlDocument()



        Document.Load(FilePath)

        'Load CDA



        'Fetch and load namespaces

        Dim DocumentNamespaces = New XmlNamespaceManager(Document.NameTable)



        DocumentNamespaces.AddNamespace("xsi", "http://www.w3.org/2001/XMLSchema-instance")



        Dim XPathNavigator = Document.CreateNavigator()



        Dim Namespaces = XPathNavigator.GetNamespacesInScope(XmlNamespaceScope.All)



        If Namespaces IsNot Nothing



            For Each [Namespace] In Namespaces



                DocumentNamespaces.AddNamespace([Namespace].Key, [Namespace].Value)

            Next

        End If

        'Fetch and load namespaces



        'Rule definitions that must be take from db.

        Dim Rules = New Dictionary(Of String, String) From {

                {"First Name", "/*[local-name()='ClinicalDocument'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='recordTarget'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='patientRole'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='patient'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='name'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='given'][namespace-uri()='urn:hl7-org:v3']"},

                {"Last Name", "/*[local-name()='ClinicalDocument'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='recordTarget'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='patientRole'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='patient'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='name'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='family'][namespace-uri()='urn:hl7-org:v3']"},

                {"Test", "/*[local-name()='ClinicalDocument'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='structuredBody'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][4]/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='entry'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='act'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='entryRelationship'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='observation'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='value'][namespace-uri()='urn:hl7-org:v3'][1]/@xsi:type"},

                {"Code", "/*[local-name()='ClinicalDocument'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='structuredBody'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3'][1]/*[local-name()='code'][namespace-uri()='urn:hl7-org:v3'][1]/@code"},

                {"Esame", "/*[local-name()='ClinicalDocument'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='structuredBody'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='component'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='section'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='text'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='table'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='thead'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='tr'][namespace-uri()='urn:hl7-org:v3']/*[local-name()='th'][namespace-uri()='urn:hl7-org:v3']"}}

        'Rule definitions



        '

        For Each Rule In Rules



            Dim Node = Document.SelectSingleNode(Rule.Value, DocumentNamespaces)



            Dim Value = ""



            If Node IsNot Nothing Then



                Value = Node.InnerText

            End If



            Console.WriteLine(Rule.Key + ": " + Value)

        Next





        'For Each rule In Rules

        '    Dim node = Document.SelectNodes(rule.Value, DocumentNamespaces)

        '    Dim value = ""

        '    If node IsNot Nothing Then

        '        value = node.innertext

        '    End If

        'Next





        Console.ReadLine()

    Catch Exception As Exception



        Console.WriteLine(Exception.Message)



        Console.ReadLine()

    End Try

End Sub

End Module

But also i have one like this
second Xml

THE problem here it his that the table has more than rows the usually so for them i want to put one database like they were only separed for each row i wanna get -name-code-td value-low-hight-datetime.:

The result i got is :

Here is how to read your xml if it is not well formed

Imports System.Data

Imports System.Xml

Imports System.Xml.Linq

Module Module1

    Const FILENAME As String = "c:temptest1.xml"

    Sub Main()

        Dim settings As XmlReaderSettings = New XmlReaderSettings()



        settings.ConformanceLevel = ConformanceLevel.Fragment



        Dim reader As XmlReader = XmlReader.Create(FILENAME, settings)





        Dim dt As DataTable = New DataTable()

        dt.Columns.Add("ID", GetType(String))

        dt.Columns.Add("Set ID", GetType(String))

        dt.Columns.Add("Version", GetType(Integer))

        dt.Columns.Add("Document Display Name", GetType(String))

        dt.Columns.Add("Code Display Name", GetType(String))

        dt.Columns.Add("Code", GetType(String))

        dt.Columns.Add("Esname", GetType(String))

        dt.Columns.Add("Esito", GetType(String))

        dt.Columns.Add("Abnormal Flag", GetType(String))

        dt.Columns.Add("Unita Di Misura", GetType(String))

        dt.Columns.Add("Range Di Riferimento", GetType(String))

        dt.Columns.Add("Metoda", GetType(String))

        dt.Columns.Add("Low", GetType(Decimal))

        dt.Columns.Add("High", GetType(Decimal))

        dt.Columns.Add("Time", GetType(DateTime))





        Dim uri = "urn:hl7-org:v3"



        reader.ReadToFollowing("id", uri)

        Dim xId As XElement = XElement.ReadFrom(reader)

        Dim id As String = CType(xId.Attribute("extension"), String)

        reader.ReadToFollowing("setId", uri)

        Dim xSetId As XElement = XElement.ReadFrom(reader)

        Dim setId As String = CType(xSetId.Attribute("extension"), String)



        reader.ReadToFollowing("versionNumber", uri)

        Dim xVersion As XElement = XElement.ReadFrom(reader)

        Dim version As Integer = CType(xVersion.Attribute("value"), Integer)



        reader.ReadToFollowing("structuredBody", uri)



        While (Not reader.EOF)



            If reader.Name <> "component" Then

                reader.ReadToFollowing("component", uri)

            End If

            If Not reader.EOF Then



                Dim documentComponent As XElement = CType(XElement.ReadFrom(reader), XElement)



                Dim typeCode As XAttribute = documentComponent.Attribute("typeCode")

                If typeCode Is Nothing Then

                    Console.WriteLine("Error")

                Else

                    If CType(typeCode, String).Trim() <> "COMP" Then

                        Console.WriteLine("Error")

                    End If

                End If



                Dim documentCode As XElement = documentComponent.Descendants().Where(Function(x) x.Name.LocalName = "code").FirstOrDefault()

                Dim documentDisplayName As String = CType(documentCode.Attribute("displayName"), String)



                Dim section As XElement = documentComponent.Elements().Where(Function(x) x.Name.LocalName = "section").FirstOrDefault()



                For Each codeComponent As XElement In section.Elements().Where(Function(x) x.Name.LocalName = "component")

                    Dim xCode As XElement = codeComponent.Descendants().Where(Function(x) x.Name.LocalName = "code").FirstOrDefault()

                    Dim codeDisplayName As String = CType(xCode.Attribute("displayName"), String)

                    Dim code As String = CType(xCode.Attribute("code"), String)



                    Dim body As XElement = codeComponent.Descendants().Where(Function(x) x.Name.LocalName = "tbody").FirstOrDefault()

                    Dim trs As List(Of XElement) = body.Elements().Where(Function(x) x.Name.LocalName = "tr").ToList()



                    Dim entry As XElement = codeComponent.Descendants().Where(Function(x) x.Name.LocalName = "entry").FirstOrDefault()



                    Dim observations As List(Of XElement) = entry.Descendants().Where(Function(x) x.Name.LocalName = "observation").ToList()



                    If trs.Count <> observations.Count Then

                        Console.WriteLine("Error")

                    End If



                    Dim index As Integer = 0

                    For Each observation As XElement In observations

                        Dim data As New List(Of String)

                        data.AddRange({id, setId, version, documentDisplayName, codeDisplayName, code})

                        data.AddRange(trs(index).Elements.Where(Function(x) x.Name.LocalName = "td").Select(Function(x) CType(x, String)))





                        Dim low As XElement = observation.Descendants().Where(Function(x) x.Name.LocalName = "low").FirstOrDefault()

                        If low Is Nothing Then

                            data.Add(Nothing)

                        Else

                            data.Add(Decimal.Parse(CType(low.Attribute("value"), String)))

                        End If

                        Dim high As XElement = observation.Descendants().Where(Function(x) x.Name.LocalName = "high").FirstOrDefault()

                        If high Is Nothing Then

                            data.Add(Nothing)

                        Else

                            data.Add(Decimal.Parse(CType(high.Attribute("value"), String)))

                        End If



                        Dim effectiveTime As XElement = observation.Descendants().Where(Function(x) x.Name.LocalName = "effectiveTime").FirstOrDefault()

                        Dim dateStr As String = CType(effectiveTime.Attribute("value"), String)

                        data.Add(DateTime.ParseExact(dateStr, "yyyyMMddHHmmss", System.Globalization.CultureInfo.InvariantCulture))



                        dt.Rows.Add(data.ToArray())



                        index = index + 1

                    Next observation



                Next codeComponent



            End If

        End While

    End Sub



End Module

Your XML is not valid, so I modified it to a well-formed XML:

<root>

    <title>TOSSICOLOGIA D'ABUSO</title>

    <component>

        <section>

            <code code="31011" codeSystemName="Codifica Interna Laboratorio" displayName="Etanolo (urine)">

                <!--TRASCODIFICA ANALISI NON DISPONIBILE-->

            </code>

            <text>

                <paragraph>

                </paragraph>

                <table>

                    <thead>

                        <tr>

                            <th>Esame</th>

                            <th>Esito</th>

                            <th>Abnormal Flag</th>

                            <th>Unita di misura</th>

                            <th>Range di riferimento</th>

                            <th>Metodo</th>

                        </tr>

                    </thead>

                    <tbody>

                        <tr>

                            <td>Etanolo (urine)</td>

                            <td>&lt; 0,01 g/l</td>

                            <td/>

                            <td/>

                            <td>fino a 0,35</td>

                            <td/>

                        </tr>

                    </tbody>

                </table>

                <footnote/>

                <paragraph>

                </paragraph>

                <!--Inizio Microbiologia sezione humane readable-->

                <!--Fine   Microbiologia sezione humane readable-->

            </text>

        </section>

    </component>

    <component>

        <section>

            <code code="32000" codeSystemName="Codifica Interna Laboratorio" displayName="Creatininuria">

                <!--TRASCODIFICA ANALISI NON DISPONIBILE-->

            </code>

            <text>

                <paragraph>

                    <content ID="ANLNOTE---2-2">Prova autenticità campione droghe</content>

                </paragraph>

                <table>

                    <thead>

                        <tr>

                            <th>Esame</th>

                            <th>Esito</th>

                            <th>Abnormal Flag</th>

                            <th>Unita di misura</th>

                            <th>Range di riferimento</th>

                            <th>Metodo</th>

                        </tr>

                    </thead>

                    <tbody>

                        <tr>

                            <td>Creatininuria</td>

                            <td>193.0</td>

                            <td/>

                            <td>mg/dL</td>

                            <td>fino a 20: campione non idoneo

                                            (non utilizzabile ai fini medico legali)

                                            20 - 40: campione dubbio

                                            sup. a 40: campione idoneo

                                        </td>

                            <td/>

                        </tr>

                    </tbody>

                </table>

                <footnote/>

                <paragraph>

                </paragraph>

                <!--Inizio Microbiologia sezione humane readable-->

                <!--Fine   Microbiologia sezione humane readable-->

            </text>

        </section>

    </component>

</root>

You can use this code to parse the values.

Dim doc = New XmlDocument()

doc.Load("C:UsersShkelzenTarjaprojektCDR_v3_1CDRtest2.xml")

Dim components As XmlNodeList = doc.SelectNodes("root/component/section/text/table")



For c As Integer = 0 To components.Count - 1

    Dim th = components(c).SelectSingleNode("thead/tr").SelectNodes("th")

    Dim td = components(c).SelectSingleNode("tbody/tr").SelectNodes("td")



    For i As Integer = 0 To td.Count - 1

        Debug.WriteLine("component {0}: {1} => {2}", c, th(i).InnerText, td(i).InnerText)

    Next

Next

Result

component 0: Esame => Etanolo (urine)

component 0: Esito => < 0,01 g/l

component 0: Abnormal Flag => 

component 0: Unita di misura => 

component 0: Range di riferimento => fino a 0,35

component 0: Metodo => 

component 1: Esame => Creatininuria

component 1: Esito => 193.0

component 1: Abnormal Flag => 

component 1: Unita di misura => mg/dL

component 1: Range di riferimento => fino a 20: campione non idoneo

                                            (non utilizzabile ai fini medico legali)

                                            20 - 40: campione dubbio

                                            sup. a 40: campione idoneo



component 1: Metodo =>