vb. net xml второй прогон кода не повторяет те же результаты - PullRequest
Новая
       4

vb. net xml второй прогон кода не повторяет те же результаты

0 голосов
/ 10 июля 2020

вот мой код: 

    Dim xmlDoc As XmlDocument = New XmlDocument
    Dim parNode As Xml.XmlNode
    Dim newChild As Xml.XmlNode

    xmlDoc.Load(TSProjectProjectLocation.ToString)
    Dim elemList As XmlNodeList = xmlDoc.GetElementsByTagName("Synopsis")
    Dim i As Integer = elemList.Count

    parNode = xmlDoc.SelectSingleNode("/S2SProject/Synopsi")
    newChild = xmlDoc.CreateNode(Xml.XmlNodeType.Element, "Synopsis", "")
    parNode.AppendChild(newChild)

    Dim id As XmlElement = xmlDoc.SelectSingleNode("/S2SProject/Synopsi/Synopsis")

    id.SetAttribute("SynopsisID", i)
    id.SetAttribute("SynopsisName", NewSynopsisName)
    id.SetAttribute("SynopsisDateCreated", Now())
    id.SetAttribute("SynopsisDateModified", Now())
    id.SetAttribute("SynopsisRTF", "Synopsis : " & NewSynopsisName)

    parNode.AppendChild(newChild)

    xmlDoc.Save(TSProjectProjectLocation.ToString)

это дает мне требуемый результат: 

<Synopsi>
  <Synopsis SynopsisID="0" SynopsisName="TEST 1" SynopsisDateCreated="10/07/2020 15:43:29" SynopsisDateModified="10/07/2020 15:43:29" SynopsisRTF="Synopsis : TEST 1" />
</Synopsi>

когда я запускаю код во второй раз, я ожидал бы увидеть: 

  <Synopsi>      
    <Synopsis SynopsisID="0" SynopsisName="TEST 1" SynopsisDateCreated="10/07/2020 15:43:29" SynopsisDateModified="10/07/2020 15:43:29" SynopsisRTF="Synopsis : TEST 1" />
    <Synposis SynopisID="1"...
  </Synopsi>

, но я получаю: 

<Synopsi>
  <Synopsis SynopsisID="1" SynopsisName="test 2" SynopsisDateCreated="10/07/2020 15:46:41" SynopsisDateModified="10/07/2020 15:46:41" SynopsisRTF="Synopsis : test 2" />
<Synopsis />
</Synopsi>

Почему мой код переписывает первый синопис? И почему он делает такую ​​забавную вещь с закрывающим тегом?

1 Ответ

1 голос
/ 10 июля 2020

Мне нравится строить детей, а затем добавлять их, я считаю, что это проясняет, что происходит: 

Dim xmlDoc As XmlDocument = New XmlDocument
Dim parNode As Xml.XmlNode
Dim newChild As Xml.XmlElement

xmlDoc.Load(TSProjectProjectLocation.ToString)
Dim elemList As XmlNodeList = xmlDoc.GetElementsByTagName("Synopsis")
Dim i As Integer = elemList.Count

newChild = CType(xmlDoc.CreateNode(Xml.XmlNodeType.Element, "Synopsis", ""), XmlElement)        
newChild.SetAttribute("SynopsisID", i)
newChild.SetAttribute("SynopsisName", NewSynopsisName)
newChild.SetAttribute("SynopsisDateCreated", Now())
newChild.SetAttribute("SynopsisDateModified", Now())
newChild.SetAttribute("SynopsisRTF", "Synopsis : " & NewSynopsisName)

parNode = xmlDoc.SelectSingleNode("/S2SProject/Synopsi")
parNode.AppendChild(newChild)

xmlDoc.Save(TSProjectProjectLocation.ToString)

И спасибо Никки, потому что она указала на root вашего проблема заключалась в элементе "id" logi c, который у вас был.

...