Ich habe ein Problem, nach Speichern der XML Fehlt einfach mal 50% Der XML
Dateien sind im Anhang
Save Code:
Weiß jemand weiter?!
Danke im vorraus
Dateien sind im Anhang
Save Code:
VB.NET-Quellcode
- Dim xml As XDocument = XDocument.Load(path_save.Text.ToString)
- '''''''
- xml.Descendants("vehicle").Elements("fuelCapacity").Value = num_fuel.Value.ToString
- xml.Descendants("vehicle").Elements("storeData").Elements("price").Value = num_price.Value.ToString
- xml.Descendants("vehicle").Elements("storeData").Elements("lifetime").Value = num_lifetime.Value.ToString
- xml.Descendants("vehicle").Elements("storeData").Elements("dailyUpkeep").Value = num_paytoday.Value.ToString
- xml.Descendants("vehicle").Elements("storeData").Elements("name").Value = txt_modname.Text.ToString
- xml.Descendants("vehicle").Elements("storeData").Elements("specs").Elements("neededPower").Value = num_needpower.Value.ToString
- ' xml.Descendants("vehicle").Elements("specs").Elements("power").Value = num_ps.Value.ToString
- '''Füllmenge Speichern''
- 'Dim display2 As XElement = xml.Element("vehicle").Element("fillUnits").Element("fillUnit")
- 'If display2.ToString = "" Then
- 'Else
- ' Dim genreAttribute2 As XAttribute = display2.Attribute("capacity")
- 'If genreAttribute2.ToString = "" Then
- ' num_capacity.Enabled = False
- 'Else
- ' genreAttribute2.Value = num_capacity.Value.ToString
- 'End If
- 'End If
- '''NAME''
- 'Dim display3 As XElement = xml.Element("vehicle")
- ' Dim genreAttribute3 As XElement = display3.Element("name")
- ' If genreAttribute3 IsNot "" Then
- ' genreAttribute3.Value = txt_modname.Text.ToString
- ' End If
- ''''''
- xml.Save(path_save.Text.ToString)
- MsgBox(xml.ToString)
- ifsave.ForeColor = Color.Green
Weiß jemand weiter?!
Danke im vorraus