Bonjour tout le monde,
Une question à priori simple :
je souhaiterais recuperer le champ 'link ref' dans ce flux rss
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 <?xml version="1.0" encoding="utf-8" ?> - <rss version="2.0"> - <channel> <title>Bing,Desktop,en-US Theme.</title> <link>http://themeserver.microsoft.com/default.aspx?p=Bing&c=Desktop&m=en-US</link> <description>Feed for Bing,Desktop,en-US Theme.</description> <ttl>60</ttl> - <item> <guid>WinkingBridge1920x12002-21-2012 12_14_01 PMe6c961fb-2f8e-4ab4-8fd5-310f47c3a1c0</guid> <title>WinkingBridge1920x12002-21-2012 12_14_01 PM</title> <link ref="http://themeserver.microsoft.com/themeserver//Bing/Desktop/en-US/Images/WinkingBridge1920x12002-21-2012 12_14_01 PM.JPG" />
J'ai ce bout de code qui recupere bien les champs comme title,link,description ,mais il ne reconnait pas link ref (ou tout ce qui est dans item,genre guid)
Voici mon code qui lit le flux
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 Private Sub ReadRSS(ByVal URL As String) Dim wr As WebRequest = System.Net.WebRequest.Create(URL) Dim resp As WebResponse = wr.GetResponse() Dim rssStream As Stream = resp.GetResponseStream() Dim rssDoc As New XmlDocument() rssDoc.Load(rssStream) Dim rssItems As XmlNodeList = rssDoc.SelectNodes("rss/channel/item") Dim title As String = "" Dim link As String = "" Dim description As String = "" Dim i As Integer For i = 0 To rssItems.Count - 1 Dim rssDetail As XmlNode 'Get the title rssDetail = rssItems.Item(i).SelectSingleNode("title") If rssDetail.Equals(Nothing) = False Then title = rssDetail.InnerText Else title = "" End If 'Get the link rssDetail = rssItems.Item(i).SelectSingleNode("link") If rssDetail.Equals(Nothing) = False Then link = rssDetail.InnerText Else link = "" End If 'Get the description rssDetail = rssItems.Item(i).SelectSingleNode("link ref") If rssDetail.Equals(Nothing) = False Then description = rssDetail.InnerText Else description = "" End If end sub
Sachant que j'ai importé :
Comment lire le link ref ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Imports System.Net Imports System.IO Imports System.Xml
Merci d'avance de vos lumières,
VB





Répondre avec citation



Partager