écriture d'une ligne html

Version imprimable

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:

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
:P
Boboss76

Salut

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

Code:

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

2 pièce(s) jointe(s)

Merci de ton aide ProgElecT

J'ai testé ton code en pointant vers google
Code:

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 :
http://www.developpez.net/forums/att...1&d=1294404535
Et sur ma page ceci
http://www.developpez.net/forums/att...1&d=1294404629
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

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:

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

soit le code :
Code:

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>"

Merci de votre aide bbil & ProgElecT

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

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>"
:ccool:
Boboss