Как извлечь все значения из XML-файла, когда у меня есть два заголовка в одном XML-документе динамически?

Question

Мне нужно использовать динамический способ получить значение из файла My XML.

ЗДЕСЬ МОЙ ОРИГИНАЛЬНЫЙ ФАЙЛ XML

Код, который я использую для получениязначение было предоставлено @jdweng, и я работаю ... но мне нужен динамический способ .. потому что проблема с этим способом заключается в том, что если я изменю имя тега .. мне также понадобится перейти к коду, чтобы изменить имя ..... но не в том случае, если у меня есть сохранить путь в таблице .. я просто иду за этой таблицей, и я меняю здесь.Это также решение

Код, который у меня есть на данный момент:

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

Спасибо за вашу помощь.

Так что таблица должна выглядеть так или таблицыпотому что первый заголовок не имеет низкого или высокого значения, поэтому это значение будет приниматься только там, где оно есть.

Так что у меня естьпопробуйте этот способ ....

Imports System.IO

Импорт System.Xml

Модуль 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

Конечный модуль

Нотакже у меня есть такой как второй Xml

Проблема здесь в том, что в таблице обычно больше строк, поэтому для них я хочу поставить одну базу данных, как будто они были разделены только для каждогострока, которую я хочу получить -name-code-td value-low-hight-datetime.:

Результат, который я получил:

Answer 1

Вот как прочитать ваш xml, если он плохо сформирован

Imports System.Data
Imports System.Xml
Imports System.Xml.Linq
Module Module1
    Const FILENAME As String = "c:\temp\test1.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

Answer 2

Ваш XML недопустим, поэтому я изменил его на правильно сформированный 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>

Вы можете использовать этот код для анализа значений.

Dim doc = New XmlDocument()
doc.Load("C:\Users\ShkelzenTarja\projekt\CDR_v3_1\CDR\test2.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

Результат

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 =>