Как получить соответствующие значения из файла XML в vb.net?

Question

Мне нужно получить значения из XML-файла. Я видел много примеров, но ни один из них не похож на XML, который у меня есть.Мой XML выглядит следующим образом.

  <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></td>
                                        <td>fino a 0,35</td>
                                        <td />
                                    </tr>
                                </tbody>
                            </table>
                            <footnote></footnote>
                            <paragraph>
                            </paragraph>
                            <!--Inizio Microbiologia sezione humane readable-->
                            <!--Fine   Microbiologia sezione humane readable-->
                        </text>
                        <entry typeCode="DRIV">
                            <!-- INIZIO MONO RISULTATO -->
                            <act classCode="ACT" moodCode="EVN">
                                <code code="31011" codeSystemName="Codifica Interna Laboratorio" displayName="Etanolo (urine)">
                                    <!--TRASCODIFICA ANALISI NON DISPONIBILE-->
                                </code>
                                <statusCode code="completed" />
                                <!--(INIZIO) GESTIONE MICROBIOLOGIA MONO RISULTATO -->
                                <!--(FINE) GESTIONE MICROBIOLOGIA MONO RISULTATO -->
                                <entryRelationship typeCode="COMP">
                                    <observation classCode="OBS" moodCode="EVN">
                                        <code code="31011" codeSystemName="Codifica Interna Laboratorio" displayName="Etanolo (urine)">
                                            <!--TRASCODIFICA RISULTATI NON DISPONIBILE-->
                                            <!--ANL_COMPLETED-->
                                        </code>
                                        <statusCode code="completed" />
                                        <effectiveTime value="20170216131204" />
                                        <value xsi:type="ST">&lt; 0,01 g/l</value>
                                        <!---->
                                        <referenceRange typeCode="REFV">
                                            <observationRange classCode="OBS" moodCode="EVN.CRT">
                                                <value xsi:type="IVL_PQ">
                                                    <low value="0.00" />
                                                    <high value="0.35" />
                                                </value>
                                                <interpretationCode code="N" />
                                            </observationRange>
                                        </referenceRange>
                                        <referenceRange typeCode="REFV">
                                            <observationRange classCode="OBS" moodCode="EVN.CRT">
                                                <value xsi:type="ST">fino a 0,35</value>
                                                <interpretationCode code="N" />
                                            </observationRange>
                                        </referenceRange>
                                    </observation>
                                </entryRelationship>
                                <!-- VAL USED -->
                            </act>
                            <!-- FINE MONO RISULTATO -->
                        </entry>
                    </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>
                                        <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></footnote>
                            <paragraph>
                            </paragraph>
                            <!--Inizio Microbiologia sezione humane readable-->
                            <!--Fine   Microbiologia sezione humane readable-->
                        </text>
                        <entry typeCode="DRIV">
                            <!-- INIZIO MONO RISULTATO -->
                            <act classCode="ACT" moodCode="EVN">
                                <code code="32000" codeSystemName="Codifica Interna Laboratorio" displayName="Creatininuria">
                                    <!--TRASCODIFICA ANALISI NON DISPONIBILE-->
                                </code>
                                <statusCode code="completed" />
                                <!--(INIZIO) GESTIONE MICROBIOLOGIA MONO RISULTATO -->
                                <!--(FINE) GESTIONE MICROBIOLOGIA MONO RISULTATO -->
                                <entryRelationship typeCode="SUBJ">
                                    <act classCode="ACT" moodCode="EVN">
                                        <code code="48767-8" codeSystem="2.16.840.1.113883.6.1" codeSystemName="LOINC" displayName="Annotation Comment" />
                                        <text>
                                            <reference value="ANLNOTE---2-2" />
                                        </text>
                                    </act>
                                </entryRelationship>
                                <entryRelationship typeCode="COMP">
                                    <observation classCode="OBS" moodCode="EVN">
                                        <code code="32000" codeSystemName="Codifica Interna Laboratorio" displayName="Creatininuria">
                                            <!--TRASCODIFICA RISULTATI NON DISPONIBILE-->
                                            <!--ANL_COMPLETED-->
                                        </code>
                                        <statusCode code="completed" />
                                        <effectiveTime value="20170216121035" />
                                        <value xsi:type="PQ" value="193.0" unit="mg/dL" />
                                        <referenceRange typeCode="REFV">
                                            <observationRange classCode="OBS" moodCode="EVN.CRT">
                                                <value xsi:type="IVL_PQ">
                                                    <low value="40.0" unit="mg/dL" />
                                                    <high value="99999.0" unit="mg/dL" />
                                                </value>
                                                <interpretationCode code="N" />
                                            </observationRange>
                                        </referenceRange>
                                        <referenceRange typeCode="REFV">
                                            <observationRange classCode="OBS" moodCode="EVN.CRT">
                                                <value xsi:type="ST">fino a 20: campione non idoneo
                                                    (non utilizzabile ai fini medico legali)
                                                    20 - 40: campione dubbio
                                                    sup. a 40: campione idoneo
                                                </value>
                                                <interpretationCode code="N" />
                                            </observationRange>
                                        </referenceRange>
                                    </observation>
                                </entryRelationship>
                                <!-- VAL USED -->
                            </act>
                            <!-- FINE MONO RISULTATO -->
                        </entry>
                    </section>

Как вы можете видеть, это похоже на HTML-таблицу. Я создал таблицу в базе данных с этим именем FIELDS, и мне нужно поместить значения полей в базу данных.

Но прежде всего мне нужен способ, как получить ЗНАЧЕНИЯ с использованием Visual Basic, а затем посмотреть, как поставить значение в дБ.Так что это изображение, которое говорит, что значение, которое мне нужно, находится под тегом td '' в XML.Но таблица ate db должна выглядеть следующим образом ... значение части XML является первым во второй таблице.

Дляэту часть кода я могу использовать

 Dim path As String = "C:\Users\ShkelzenTarja\projekt\CDR_v3_1\CDR\test2.xml"    ' "put path to xml file here"
    Dim xe As XElement
    xe = XElement.Load("C:\Users\ShkelzenTarja\projekt\CDR_v3_1\CDR\test2.xml")
    Dim sectn As XElement = (From el In xe...<code> Select el Take 1).FirstOrDefault

    If sectn IsNot Nothing Then 'did we get a code
        'yes
        sectn = sectn.Parent 'the section
        '
    End If
    If sectn IsNot Nothing Then 'did we get a section
        'yes
        For Each tr As XElement In sectn...<table>.<tbody>.<tr>
            For Each td As XElement In tr.<td>
                Debug.WriteLine(td.Value)
            Next
        Next

    End If

, но у меня есть вопрос:

1- diff of path и xe = XElement.Load

2- Выбратьel Take 1) .irstOrDefault ... как я могу изменить это, чтобы получить все значения документа, а не только первое.

3 - должен ли я использовать тот же синтаксис, если в моем xml есть дваназвание, потому что на самом деле он имеет, как вы можете видеть на фотографии.Спасибо за вашу помощь @ dbasnett

MY all Xml здесь: введите описание ссылки здесь

Answer 1

Раствор

Private Sub GetContinents ()

    Const FILENAME As String = "C:\Users\ShkelzenTarja\projekt\CDR_v3_1\CDR\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

Answer 2

Пример XML не был правильно отформатирован. Это может дать вам представление

Для производственного кода используйте

    Dim path As String = "put path to xml file here"
    Dim xe As XElement
    xe = XElement.Load(path) 'load the xml from file

Поскольку это VB, вы можете использовать литерал для тестирования. Я сделал все возможное, чтобы исправить XML

    Dim xe As XElement

    xe = <title>TOSSICOLOGIA D'ABUSO
            <component>
                 <section>
                     <code code="31011" codeSystemName="Codifica Interna Laboratorio" displayName="Etanolo (urine)"></code>
                     <text>
                         <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></td>
                                     <td>fino a 0,35</td>
                                     <td/>
                                 </tr>
                             </tbody>
                         </table>
                         <footnote></footnote>
                         <paragraph></paragraph>
                     </text>
                 </section>
             </component>
             <section>
                 <code code="32000" codeSystemName="Codifica Interna Laboratorio" displayName="Creatininuria"></code>
                 <text>
                     <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>
                                 <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>
                 </text>
             </section>
         </title>

Далее найдите одну из таблиц. Я буду использовать узел кода, чтобы сделать это

    Dim sectn As XElement = (From el In xe...<code> Where el.@code = "32000" Select el Take 1).FirstOrDefault

    If sectn IsNot Nothing Then 'did we get a code
        'yes
        sectn = sectn.Parent 'the section
        '
    End If

Просто некоторые идеи. Надеюсь, поможет. Когда у нас есть раздел, мы можем перебирать строки в теле

    If sectn IsNot Nothing Then 'did we get a section
        'yes
        For Each tr As XElement In sectn...<table>.<tbody>.<tr>
            For Each td As XElement In tr.<td>
                Debug.WriteLine(td.Value)
            Next
        Next
        '
    End If

Взгляните на следующую ссылку

LINQ to XML link