Как распарсить XML файл и внести в него изменения?

@Edgar4 · Регистрация: 11.11.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Помогите распарсить XML файл и внести в него изменения.
Задача найти в файле все offer с category id=91451 и вставить перед, например <price>505</price> строку <oldprice>585</oldprice>.
XML следующего вида:

XML

<?xml version="1.0" encoding="UTF-8" ?> 
<yml_catalog date="2019-02-18 02:02">
<shop>
<currencies>
  <currency id="RUB" rate="1" /> 
</currencies>
<categories>
  <category id="91451">Наручные часы</category> 
  <category id="91452">Мужские часы</category> 
  <category id="651392">Смарт-часы</category> 
</categories>
<offers>
<offer id="1" available="true">
  <price>505</price> 
  <currencyId>RUB</currencyId> 
  <categoryId>91451</categoryId> 
  <vendor>NaviForce</vendor> 
  <name>Часы NaviForce BGYB-NF9077</name> 
<description>
<![CDATA[ … ]]> 
</description>
  <param name="Артикул">9077BGYB</param> 
  <param name="Механизм" id="103093" valueid="">Кварцевый</param> 
  <param name="Формат времени" id="103114" valueid="">12 ч</param> 
  <param name="Стекло" id="103191" valueid="">Минеральное</param> 
  <param name="Водонепроницаемость" id="103198" valueid="">30 м</param> 
  <param name="Ремешок/браслет" id="103212" valueid="">Ремешок</param> 
  <param name="Тип циферблата" id="123438" valueid="">Аналоговый (стрелочный)</param> 
  <param name="Гарантия">12 месяцев</param> 
  <param name="Стекло">Минеральное</param> 
  <param name="Ремешок/браслет">Ремешок</param> 
  <param name="Формат времени">12</param> 
  <param name="Тип циферблата">Аналоговый</param> 
  <param name="Водонепроницаемость">3 АТМ</param> 
  <param name="Тип механизма">Кварцевый</param> 
  <picture>http://.../1.jpeg</picture> 
</offer>
 
<offer id="2" available="true">
…
</offer>
 
<offer id="3" available="true">
…
</offer>
 
<offer id="4" available="true">
…
</offer>
    …
</offers>
</shop>
</yml_catalog>

@OwenGlendower · 20.02.2019, 00:03

Edgar4,

VB.NET

Dim xdoc As XDocument = XDocument.Load("catalog.xml")
Dim offers = xdoc.XPathSelectElements("/yml_catalog/shop/offers/offer[categoryId = '91451']")
For Each xoffer As XElement In offers
    xoffer.Element("price").AddBeforeSelf(New XElement("oldprice", 585))
Next

@Edgar4 · 20.02.2019, 11:14 **[ТС]**

OwenGlendower, огромное спасибо, все работает!

Еще вопрос.
При последующих запусках программы происходит дублирование <oldprice>...</oldprice>.
Как можно поставить условие на проверку наличия <oldprice>...</oldprice>?

Добавлено через 52 минуты
Решение найдено!

VB.NET

If (xoffer.Element("oldprice") Is Nothing) Then
  MsgBox("oldprice найден")
Else
  MsgBox("oldprice не найден")
End If

@Yury Komar · 20.02.2019, 11:56

Edgar4, вроде наоборот (по-логике) должно быть?

VB.NET

If (xoffer.Element("oldprice") Is Nothing) Then
  MsgBox("oldprice НЕ найден")
Else
  MsgBox("oldprice найден")
End If

@Edgar4 · 23.02.2019, 00:09 **[ТС]**

Yury Komar, я тоже так думал, а практически так как написал!

@Yury Komar · 23.02.2019, 17:04

Edgar4, Странно

@Edgar4 · 13.04.2019, 13:29 **[ТС]**

OwenGlendower, Вот еще проблемка! Ни как не могу найти.
В файле есть:

XML

    <categories>
      <category id="91451" parentId="1162030">Наручные часы</category>
      <category id="91452" parentId="1162030">Мужские часы</category>
      <category id="651392" parentId="80263">Смарт-часы</category>
    </categories>

Как можно здесь убрать все parentId="..."?

@OwenGlendower · 13.04.2019, 16:13

Edgar4,

VB.NET

Dim xcategories As XElement = <categories>
        <category id="91451" parentId="1162030">Наручные часы</category>
        <category id="91452" parentId="1162030">Мужские часы</category>
        <category id="651392" parentId="80263">Смарт-часы</category>
    </categories>
xcategories.Elements("category").Attributes("parentId").Remove()

@Edgar4 · 14.04.2019, 01:12 **[ТС]**

OwenGlendower, а если с загрузкой с файла?
Что-то у меня не получается!
Повторюсь. В файле есть категории:

XML

    <categories>
      <category id="91451" parentId="1162030">Наручные часы</category>
      <category id="91452" parentId="1162030">Мужские часы</category>
      <category id="651392" parentId="80263">Смарт-часы</category>
    </categories>

Я пробую удалить все parentId = "..." в цикле, но ничего не получается! Где я ошибся?

VB.NET

        Dim xmlDoc As XDocument = XDocument.Load("yml_1.xml")
        Dim categories
 
        categories = xmlDoc.XPathSelectElements("/yml_catalog/shop/categories/category")
 
        For Each xcategory As XElement In categories
 
            xcategory.Elements("category").Attributes("parentId").Remove()
        Next

@OwenGlendower · 14.04.2019, 10:37

Edgar4, значит ты суть решения не улавливаешь потому что откуда берется документ не играет роли.

Решение с циклом:

VB.NET

        Dim xmlDoc As XDocument = XDocument.Load("yml_1.xml")
        Dim categories
 
        categories = xmlDoc.XPathSelectElements("/yml_catalog/shop/categories/category")
 
        For Each xcategory As XElement In categories
 
            xcategory.Attribute("parentId").Remove()
        Next

Решение без цикла:

VB.NET

        Dim xmlDoc As XDocument = XDocument.Load("yml_1.xml")
        Dim categories
 
        categories = xmlDoc.XPathSelectElements("/yml_catalog/shop/categories/category")
        categories.Attributes("parentId").Remove()

@Edgar4 4 / 4 / 8 Регистрация: 11.11.2014 Сообщений: 256
	23.02.2019, 00:09 [ТС]	5
	Yury Komar, я тоже так думал, а практически так как написал! 0

@Yury Komar Модератор 4203 / 3287 / 497 Регистрация: 27.01.2014 Сообщений: 6,033
	23.02.2019, 17:04	6
	Edgar4, Странно 0