Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: структурировать данные полученные из XML Добавлено: 12.09.11 16:09  

Автор вопроса:  qtronix | Web-сайт: hkmeteor.ru
Доброго времени суток
помогите плз решить проблемку
есть некий XML документ

<?xml version="1.0" encoding="utf-8"?>
<!--Xml example.-->
<Cards>
  <NewCard>
    <Cards_Numb>1</Cards_Numb>
    <Cards_Type>Известные потери</Cards_Type>
    <Cards_Type_Code>1 - Бой (поломка) товара</Cards_Type_Code>
    <Cards_Revocation> NO </Cards_Revocation>
    <Raion>1 - Строй Материалы</Raion>
    <Card_Accepted>NO</Card_Accepted>
    <UsrName>Орлов Дмитрий</UsrName>
    <Date>12.09.2011 7:54:52</Date>
    <Product>
      <LM_Code>11704775</LM_Code>
      <EAN_Code>4031091128874</EAN_Code>
      <Name>ПВХ SALUX Sinus 0,8х900х2000мм бронз.</Name>
      <Qty>1</Qty>
      <Price>231.48</Price>
    </Product>
    <Product>
      <LM_Code>11489921</LM_Code>
      <EAN_Code>4607135860033</EAN_Code>
      <Name>Плитка декор."Кросс фелл",песочн.(0,6м2)</Name>
      <Qty>1</Qty>
      <Price>528.36</Price>
    </Product>
    <Product>
      <LM_Code>12475943</LM_Code>
      <EAN_Code>4607083020480</EAN_Code>
      <Name>Дополнительная секция для УЛТ-120 1,2м</Name>
      <Qty>1</Qty>
      <Price>1272.00</Price>
    </Product>
    <Product>
      <LM_Code>12972616</LM_Code>
      <EAN_Code>4607124095170</EAN_Code>
      <Name>Профиль крепежный Holzblock 180мм</Name>
      <Qty>1</Qty>
      <Price>32.33</Price>
    </Product>
    <Product>
      <LM_Code>13295856</LM_Code>
      <EAN_Code>4607051270541</EAN_Code>
      <Name>Ондуфлеш-супер 0,3х2,5м волна, т.коричн.</Name>
      <Qty>1</Qty>
      <Price>551.63</Price>
    </Product>
  </NewCard>
</Cards>


в этом документе мы делаем поиск по некоторым параметрам


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myDoc As New Xml.XmlDocument
        Dim TbNum As Short
        myDoc.Load("z:\XmlTest.xml")
        Dim chpts As Xml.XmlNodeList = myDoc.SelectNodes("//NewCard") ' читаем конкретный нод
        For Each nd As Xml.XmlNode In chpts
            'TextBox1.Text = TextBox1.Text & nd.Item("Cards_Numb").InnerText
            If nd.Item("Cards_Numb").InnerText = 2 Then 'если текст элемента "Cards_Numb" в ноде равен 3 то...
                'nd.Item("Card_Accepted").InnerText = "YES" 'записываем нужный нам текст в элемент нода.
                TbNum = TbNum + 1
                'TextBox1.Text = nd.InnerText
                Me.Controls("TextBox" & TbNum).Text = nd.InnerText
            End If

        Next
        'myDoc.save("z:\XmlTest.xml")
    End Sub

извините за неубранные коменты

и выводим полученный результат
ррезультат мы получаем в вот таком виде


2Известные потери1 - Бой (поломка) товара NO 1 - Строй МатериалыNOОрлов Дмитрий12.09.2011 10:42:53111060464607084520408Уголок Бел глянец 23х23 мм 6 м1104.20123446282000123446288Зонт утепл. Ф150 нерж+зерк.нерж1713.79127269334607084994063Печь Бавари&#65533;&#65533; чугун. с плитой и теплообм.110586.44132655854690405046701Подкладочный ковер ХМ для ГЧ, 20 кв.м.1762.38114899214607135860033Плитка декор."Кросс фелл",песочн.(0,6м2)1528.36122750364607177982465Рубероид РПП 15 кв.м.1187.53131752724607176792119Сетка мет. ШТРЕК 10х0,7х0,3х1000 Zn, 10м1470.00129726164607124095170Профиль крепежный Holzblock 180мм132.33126439942000126439942Кирпич строительный полнотелый М-15019.32132958644607051270534Ондуфлеш-супер 0,3х2,5м волна, черный1551.63100431783585501106019Шпатл.эластичн.1,5кг.FIBERLASTIC Semin1240.00126214024607088320714Заглушка желоба левая полиэстер коричн.130.12126212184607088320677Труба водост.полиэстер кор.76х102ммx2,5м1265.00129703464670001740340ДБ мет Вега прав 2050*980мм118235.59119607954607158468506ДПГ Пальмира 900 шпон ореха13516.95



то есть совершенно не структурированный и неудобочитаемый
 очень хотелось бы сделать так чтобы содержимое каждого нода показывалось бы в отдельном текстбоксе или в отдельном лейбле
ну или на худой конец чтобы хотябы на новой строке в текстбоксе
подтолкните пожалуйста на мысль как это можно организовать ?
 заранее спасибо

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 qtronix



Вопросов: 4
Ответов: 5
 Web-сайт: hkmeteor.ru
 Профиль | | #1
Добавлено: 13.09.11 09:08
все вопрос снят разобрался
вернее подсказали

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам