Discussion :

[boboss76]

Bonjour et meilleurs voeux à toute l'équipe

Voici mon problème.
Je veux parser le flux xml de l'équipe afin de pouvoir l'afficher dans un page html.
Pour cela j'ai écrit le code suivant :

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
 
Sub main()
 
dim i,lien
dim info(50),link(50)
 
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.Async="false"
xmlDoc.Load("http://www.lequipe.fr/Xml/actu_rss.xml")
i=0
For Each itemElement In xmlDoc.selectNodes("/rss/channel/item")
info(i)=itemElement.selectSingleNode("title").Text
link(i)=itemElement.selectSingleNode("link").Text
i=i+1
next
 
lien="\lequipe.jpg"
hs.setDeviceString "W50","<table  border='0'><tr><td><IMG SRC='" & lien & "'</td></tr><tr><td>-"&<a href='"&link(0)&"'>info(0)&"</a></td></tr><tr><td>-"&info(1)&"</td></tr><tr><td>-"&info(2)&"</td></tr><tr><td>-"&info(3)&"</td></tr><tr><td>-"&info(4)&"</td></tr></table>" , TRUE
 
 
 
Set xmlDoc=Nothing
 
end sub

L'affichage des infos sur la page web marche impeccablement, mais par contre je n'arrive pas à trouver la syntaxe exacte pour mettre le lien.
Merci pour votre aide

Boboss76

[ProgElecT]

Salut

Essais de construire sous forme de requête pour y voire plus claire

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
Dim Reqt
Dim lien
Dim link(0)
Dim info(4)
info(0) = "Zero"
info(1) = "Un"
info(2) = "Deux"
info(3) = "Trois"
info(4) = "Quatre"
 
lien = "\lequipe.jpg"
 
Reqt = "<table border='0'><tr><td><IMG SRC='" & lien _
    & "'</td></tr><tr><td><a href='" & link(0) _
    & info(0) & "'</a></td></tr><tr><td>-" _
    & info(1) & "</td></tr><tr><td>-" _
    & info(2) & "</td></tr><tr><td>-" _
    & info(3) & "</td></tr><tr><td>-" _
    & info(4) & "</td></tr></table>"
msgbox Reqt
 
'hs.setDeviceString "W50", Reqt, True

il manque peut être des apostrophes

[boboss76]

Merci de ton aide ProgElecT

J'ai testé ton code en pointant vers google

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
 
sub main()
 Dim Reqt
Dim lien
Dim link(0)
Dim info(4)
info(0) = "Zero"
info(1) = "Un"
info(2) = "Deux"
info(3) = "Trois"
info(4) = "Quatre"
link(0)="www.google.fr" 
lien = "\lequipe.jpg"
 
Reqt = "<table border='0'><tr><td><IMG SRC='" & lien _
    & "'</td></tr><tr><td><a href='" & link(0) _
    & info(0) & "'</a></td></tr><tr><td>-" _
    & info(1) & "</td></tr><tr><td>-" _
    & info(2) & "</td></tr><tr><td>-" _
    & info(3) & "</td></tr><tr><td>-" _
    & info(4) & "</td></tr></table>"
msgbox reqt
 
hs.setDeviceString "W50", Reqt, True
End sub

Et j'obtiens la requête suivante :

Et sur ma page ceci

on remarque que l'adresse de google est juste à côté de Zéro.
A mon avis il manque des apostrophe ou des guillemets..mais je ne sais pas où il faut les mettre exactement.

Merci de votre aide
Cordialement
Boboss76

[SfJ5Rpw8]

bonjour,

ton problème semble plus du à ton html qu'as ton code VB, commence par "étudier" le code à générer en html avant d'écrire le code pour générer cet html...

pour ton lien cela doit être du genre :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

<a href='http://www.google.fr'>Zero</a>

soit le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
link(0)="http://www.google.fr" 
lien = "\lequipe.jpg"
 
Reqt = "<table border='0'><tr><td><IMG SRC='" & lien _
    & "'</td></tr><tr><td><a href='" & link(0) & "'> " _
    & info(0) & "</a></td></tr><tr><td>-" _
    & info(1) & "</td></tr><tr><td>-" _
    & info(2) & "</td></tr><tr><td>-" _
    & info(3) & "</td></tr><tr><td>-" _
    & info(4) & "</td></tr></table>"

[boboss76]

Merci de votre aide bbil & ProgElecT

J'ai écrit le code suivant qui permet de boucler.
Il fonctionne. Encore merci pour tous ces conseils.
Je joins le code en espérant qu'il sera utile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
lien="\lequipe.jpg"
Reqt1= "<table border='0'><tr><td><IMG SRC='" & lien & "'</td></tr>"
Reqt=""
 
For k=0 to 10
  Reqt =  Reqt& "<tr><td><a href='" & link(k) & "'> " & info(k) & "</a></td>"
next 
 
Reqt2=Reqt1&Reqt&"</table>"

Boboss