Как создать элемент xml в указанной позиции c, используя vb. net? - PullRequest
Новая
       27

Как создать элемент xml в указанной позиции c, используя vb. net?

0 голосов
/ 24 марта 2020

Я пытаюсь создать элемент xml после другого элемента, в указанной позиции c, но элемент добавляется в другой элемент и добавляется часть xmlns. Я также не хочу, чтобы там были xmlns. Что мне нужно добавить, это:

Где мне нужно, чтобы элемент был добавлен

Что я пробовал это: 

        Dim cda As New XmlDocument
        Dim refChild As XmlNode = cda.SelectSingleNode("//cr:recordTarget/cr:patientRole/cr:id", NS)
        Dim newChild As XmlElement = cda.CreateElement("id")
        newChild.SetAttribute("root", "2.16.840.1.113883.2.9.4.3.1")
        newChild.SetAttribute("extension", "DLCVCN48S05L049B")
        refChild.InsertBefore(newChild, refChild.FirstChild)

Что происходит, это: 

 <id root="2.16.840.1.113883.2.9.4.3.2" extension="PTRFMN46E69D171X" 
 assigningAuthorityName="Ministero Economia e Finanze">
 <id root="2.16.840.1.113883.2.9.4.3.1" extension="DLCVCN48S05L049B" xmlns="" />
  </id>

Ответы [ 2 ]

0 голосов
/ 25 марта 2020

Использование Xml Linq. Найдите информацию о пациенте и добавьте новый идентификатор пациента: 

Imports System.Xml
Imports System.Xml.Linq
Module Module1
    Const FILENAME As String = "c:\temp\test.xml"
    Sub Main()
        Dim doc As XDocument = XDocument.Load(FILENAME)
        Dim patientRole = doc.Descendants().Where(Function(x) x.Name.LocalName = "patientRole").FirstOrDefault()

        Dim newPatient As XElement = New XElement("id", New Object() {New XAttribute("root", "2.16.840.1.113883.2.9.4.3.2"), New XAttribute("extension", "PTRFMN46E69D171X"), New XAttribute("assigningAuthorityName", "Ministero Economia e Finanze")})
        patientRole.Add(newPatient)
    End Sub

End Module
0 голосов
/ 24 марта 2020

Исходя из вашего пи c кажется, это то, что вы хотите сделать (Basdandosi nella tua immagine sembra sia Questo quello che stai cercando): 

    refChild.AppendChild(newChild)

Но. На основании вашего вопроса, кажется, вы хотите сделать это (Ma basandosi nella domanda): 

    Dim newChild As Xml.XmlElement = cda.CreateElement("id", cda.DocumentElement.NamespaceURI)
    newChild.SetAttribute("root", "2.16.840.1.113883.2.9.4.3.1")
    newChild.SetAttribute("extension", "DLCVCN48S05L049B")
    newChild.InnerText = " "


    If refChild.ParentNode IsNot Nothing Then
        refChild.ParentNode.InsertAfter(newChild, refChild)
    End If
...