System.Xml.Linq Пространство имен

Question

Мне дали задание вызвать веб-сервис, который возвращает ленту данных xml, что я делаю так:

For Each r As DataRow in SomeDataTable
    Dim msFeed As String = string.format("http://some-feed.com?param={0}", r!SOME_VAL)
    Dim x As XDocument = XDocument.Load(msFeed)
Next

Это все хорошо, но, как вы можете видеть, x просто перезаписываетсякаждая итерация.Мне нужно создать xDocument и добавить каждый фид из моего цикла, но я не уверен, что делать дальше.

Спасибо

Решение

Dim xAllFeeds As XElement = New XElement("Feeds")

For Each r As DataRow in SomeDataTable
    Dim msFeed As String = string.format("http://some-feed.com?param={0}", r!SOME_VAL)
    Dim x As XDocument = XDocument.Load(msFeed)
    xAllFeeds.Add(x.Root)
Next

Answer 1

Не уверен на 100% в синтаксисе VB (C # - мой язык выбора), но это должно быть суть того, что вы ищете.

Dim xAllFeeds As XElement = New XElement("Feeds")
For Each r As DataRow in SomeDataTable
    Dim msFeed As String = string.format("http://some-feed.com?param={0}", r!SOME_VAL)
    Dim xDoc As XDocument = XDocument.Load(msFeed)
    xAllFeeds.Add(xDoc.Root)
Next