Вывод id друзей пользователя vk.com в listbox

@geniy3dmix · Регистрация: 04.01.2014

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

Добрый день, срочно нужна ваша помощь,
необходимо Вывести список id в listbox1

xml такого вида:

XML

<?xml version="1.0" encoding="utf-8"?>
<response>
 <count>690</count>
 <items list="true">
  <user_id>2</user_id>
  <user_id>5</user_id>
  <user_id>6</user_id>
  <user_id>7</user_id>
  <user_id>12</user_id>
  <user_id>20</user_id>
  <user_id>21</user_id>
</items>
</response>

набросок сделал но id все в одну строчку

VB.NET

Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        m_xmld = New XmlDocument()
        m_xmld.Load("https://api.vk.com/method/friends.get.xml?user_id=1&v=5.24")
        m_nodelist = m_xmld.SelectNodes("/response")
 
        For Each m_node In m_nodelist            '
            ListBox1.Items.Add(m_node.ChildNodes.Item(1).InnerText)           
        Next

заранее всем спасибо

Добавлено через 43 минуты
Ребят реально срочно нужно выручайте(

@tezaurismosis · 03.09.2014, 17:43

VB.NET

Imports System.Xml.Linq
 
Dim xml As String = ... ' здесь хранится XML в качестве строки
Dim responce As XElement = XElement.Parse(xml)
Dim items = responce.Element("items")
Dim users = items.Elements("user_id")
For Each user As XElement In users
    listBox.Items.Add(user.Value)
Next

Добавьте к проекту сборки System.Xml.dll и System.Xml.Linq.dll

@PAnT0P · 05.09.2014, 14:59

VB.NET

        Dim m_xmld As XmlDocument
        Dim m_nodelist As XmlNodeList
        Dim m_node As XmlNode
        m_xmld = New XmlDocument()
        m_xmld.Load("https://api.vk.com/method/friends.get.xml?user_id=1&v=5.24")
        m_nodelist = m_xmld.SelectNodes("response/items/user_id")
 
        For Each m_node In m_nodelist            '
            ListBox1.Items.Add(m_node.FirstChild.Value)
        Next

Вывод id друзей пользователя vk.com в listbox

Решение

Решение

	05.09.2014, 14:59

Опции темы