System.Xml.Serialization.XmlSerializer всегда помогал быстро оприходовать xml в массив потом редактировать его там
но с этим XML так не получается
| Код |
<?xml version="1.0" encoding="UTF-8" ?>
- <export xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://zakupki.gov.ru/oos/export/1" xmlns:oos="http://zakupki.gov.ru/oos/types/1">
- <nsiOKPD2List>
- <nsiOKPD2>
<oos:id>9346981</oos:id>
<oos:parentId>8876784</oos:parentId>
<oos:code>10.86.10.140</oos:code>
<oos:parentCode>10.86.10</oos:parentCode>
<oos:name>Продукция молочная для детей дошкольного и школьного возраста</oos:name>
<oos:actual>true</oos:actual>
</nsiOKPD2>
- <nsiOKPD2>
<oos:id>9346982</oos:id>
<oos:parentId>9346981</oos:parentId>
<oos:code>10.86.10.141</oos:code>
<oos:parentCode>10.86.10.140</oos:parentCode>
<oos:name>Сливки питьевые для детей дошкольного и школьного возраста</oos:name>
<oos:actual>true</oos:actual>
</nsiOKPD2>
- <nsiOKPD2>
<oos:id>9346983</oos:id>
<oos:parentId>9346981</oos:parentId>
<oos:code>10.86.10.142</oos:code>
<oos:parentCode>10.86.10.140</oos:parentCode>
<oos:name>Продукты кисломолочные, в том числе обогащенные, для детей дошкольного возраста и детей школьного возраста, кроме творога и сметаны</oos:name>
<oos:actual>true</oos:actual>
</nsiOKPD2>
</nsiOKPD2List>
</export>
|
проблема пришла с этим oos непонятно что такое и для чего это нужно
стандартные способы не помогает прочитать файл
а более простой см. ниже выдает ошибку "В документе XML (1, 40) присутствует ошибка"
Задача в следующем как этот XML прочитать в массив
| Код |
Module Module1
Sub Main()
Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(nsiOKPD2))
Dim file2 As New System.IO.StreamReader(
"C:\Documents and Settings\ADM\Рабочий стол\nsiOKPD2_all_20161211000002_007.xml")
Dim overview2() As nsiOKPD2
overview2 = CType(reader.Deserialize(file2), nsiOKPD2()) ' В документе XML (1, 40) присутствует ошибка.
Console.Read()
End Sub
End Module
Public Structure nsiOKPD2
Dim id As String
Dim parentId As String
Dim code As String
Dim parentCode As String
Dim name As String
Dim actual As String
End Structure
|
|