需要帮助在VB.NET中将twitter xml文档解析为变量吗？

好的，所以我花了一天左右的时间试图让它工作。我需要从twitter解析一个xml文档，选择某些节点并将值放入变量中。我收到一个错误…从字符串“user/screen\u name”到类型“Integer”的转换无效。解析XML不是我的专长。任何帮助都将不胜感激。。。这是我到目前为止所拥有的

首先是Twitter XML文件

<?xml version="1.0" encoding="UTF-8"?>
<statuses type="array">
<status>
<created_at>Sat Apr 30 04:10:46 +0000 2011</created_at>
<id>64179865481510912</id>
<text>@sixrevisions implementing the Twitter API for my new portfolio site!</text>
<source><a href="http://twitter.com/#!/download/iphone" rel="nofollow">Twitter for iPhone</a></source>
<truncated>false</truncated>
<favorited>false</favorited>
<in_reply_to_status_id>64087873804189696</in_reply_to_status_id>
<in_reply_to_user_id>14444403</in_reply_to_user_id>
<in_reply_to_screen_name>sixrevisions</in_reply_to_screen_name>
<retweet_count>0</retweet_count>
<retweeted>false</retweeted>
<user>
  <id>92868468</id>
  <name>Timothy Antonucci</name>
  <screen_name>TimAtWerked</screen_name>
  <location>Boston, MA</location>
  <description>My name is Tim a web designer/developer in Boston, I love cars and photography ;-)</description>
  <profile_image_url>http://a2.twimg.com/profile_images/1336500668/wrkdtwitico_normal.gif</profile_image_url>
  <url>http://www.werked.com</url>
  <protected>false</protected>
  <followers_count>14</followers_count>
  <profile_background_color>b2c789</profile_background_color>
  <profile_text_color>333333</profile_text_color>
  <profile_link_color>0084B4</profile_link_color>
  <profile_sidebar_fill_color>b3d6af</profile_sidebar_fill_color>
  <profile_sidebar_border_color>6e996a</profile_sidebar_border_color>
  <friends_count>34</friends_count>
  <created_at>Fri Nov 27 00:35:31 +0000 2009</created_at>
  <favourites_count>0</favourites_count>
  <utc_offset>-18000</utc_offset>
  <time_zone>Eastern Time (US & Canada)</time_zone>
        <profile_background_image_url>http://a3.twimg.com/profile_background_images/97017170/1440x900sm.jpg</profile_background_image_url>
  <profile_background_tile>true</profile_background_tile>
  <profile_use_background_image>true</profile_use_background_image>
  <notifications />
  <geo_enabled>false</geo_enabled>
  <verified>false</verified>
  <following />
  <statuses_count>39</statuses_count>
  <lang>en</lang>
  <contributors_enabled>false</contributors_enabled>
  <follow_request_sent />
  <listed_count>0</listed_count>
  <show_all_inline_media>false</show_all_inline_media>
  <default_profile>false</default_profile>
  <default_profile_image>false</default_profile_image>
  <is_translator>false</is_translator>
</user>
<geo />
<coordinates />
<place />
<contributors />
</status>
</statuses>

---

好的，所以我应该更加注意错误和VisualStudio。项以整数形式检索给定索引处的节点。我正在搜索字符串名称，所以我只是从0开始计算项目，并使用项目正在查找的编号。。。请参阅下面的代码

 Dim m_xmld As XmlDocument
 Dim m_nodelist As XmlNodeList
 Dim m_node As XmlNode
 m_xmld = New XmlDocument()
 m_xmld.Load("http://api.twitter.com/1/statuses/user_timeline.xml?screen_name=timatwerked&count=4&include_rts=true")
 m_nodelist = m_xmld.SelectNodes("/statuses/status")
 For Each m_node In m_nodelist
   Dim twitName = m_node.ChildNodes.Item(11).ChildNodes.Item(2).InnerText
   Dim twitrName = m_node.ChildNodes.Item(11).ChildNodes.Item(1).InnerText
   Dim twitText = m_node.ChildNodes.Item(2).InnerText
   Dim twitPic = m_node.ChildNodes.Item(11).ChildNodes.Item(5).InnerText
   Dim twitTime = m_node.ChildNodes.Item(0).InnerText
   twitPic = twitPic.Replace("normal", "mini")
   twitProLink = "http://www.twitter.com/" & twitName
   'Do stuff with variables
  Next

现在唯一的问题是转发不能正确显示，因为节点不同，所以我只添加一个If-then，看看它是否是转发，然后相应地调整节点。再次感谢。

我想你需要

Dim twitName = m_node.ChildNodes.Item("user").ChildNodes.Item("screen_name").InnerText

---

和检索其他元素的类似内容。

您说明的解决方案不是一个好的解决方案，因为如果节点的顺序发生变化，您的代码将中断。您所演示的技术称为“幻数”。使用XPath解析xml对象的更好方法。这样，节点的顺序就无关紧要了。

试试：

m_节点列表中每个m_节点的

Dim twitName=m_node.ChildNodes.Item（“用户”）.ChildNodes.Item（“屏幕名称”）.Value
'其他节点
“用变量做一些事情
下一步

---

InnerText假定您设置或获取的项具有子项。Value只获取项目的值，没有假定子项，正如BalaR所说的，按名称引用项目，因此如果twitter API更新了索引指针，将重新计算。

非常感谢Bala，使用此方法仍然不起作用。。。但它确实让我更接近了。。。我们非常需要信息。再次感谢。我将用我使用的代码发布答案。好的，没问题，我回答了我自己的问题，因为它现在起作用了。只是将我找到的解决方案作为答案发布，以便其他人可以看到我是如何解决的，不是更多的细节或其他问题。是答案解决了我的问题。现在，如果你想发布问题的答案，那就不同了。请随意补充。但是，如果您需要更新您的问题的更多细节，请在以后编辑。谢谢

Dim twitName = m_node.ChildNodes.Item("user").ChildNodes.Item("screen_name").InnerText