Récupérer contenu d'un TD

Version imprimable

Bonjour à tous,

je suis en train de developper une petite appli en VB qui marche plutot pas mal jusqu'a maintenant sauf que depuis 2-3 jours j'ai un petit soucis,

j'ai besoin par le biais de mon appli de récuperer des infos dans une page HTML sauf que, voilà, ces infos sont situées dans une cellule d'un tableau ( entre <TD> et </TD>) et que celle-ci n'a pas d'ID ni de nom. j'ai testé pas mal de solutions diverses mais aucune n'a fonctionné jusqu'a maintenant.

Voici un bout du code de la page ou les infos sont stockées :
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 26 27 28 29 30 31 32 33 34 <TR> <TD CLASS="clsBTableElement" WIDTH="45%" NOWRAP>Nom&nbsp</TD> <TD CLASS="clsBTableElement">XWC-1253&nbsp</TD> </TR> <TR> <TD CLASS="clsBTableElement" WIDTH="45%" NOWRAP>Emplacement&nbsp</TD> <TD CLASS="clsBTableElement">&nbsp</TD> </TR> <TR> <TD CLASS="clsBTableElement" WIDTH="45%" NOWRAP>Modèle de Machine&nbsp</TD> <TD CLASS="clsBTableElement">XWC-12</TD> </TR> <TR> <TD CLASS="clsBTableElement" WIDTH="45%" NOWRAP>Numéro de série&nbsp</TD> <TD CLASS="clsBTableElement">C596658&nbsp</TD> </TR>
Comment dois-je m'y prendre si je veux, par exemple, récupérer le numéro de série ( ici, "C596658") ?

Je vous remercie par avance et espère avoir été assez clair ^^

29/06/2010, 14h47
pc75

Bonjour,

La balise <td> où s'affiche le N° de série n'est pas toujours à la même position ?

Par exemple la 2ème balise <TD> dans la 10ème balise <tr> ?
29/06/2010, 14h51
Msk_76

Le tableau ne change pas , les balises sont toujours au même endroit. :)
29/06/2010, 14h56
DarkVader

Si en plus le numéro d'ordre de la table est fixe, cela ne pose pas de problème.
29/06/2010, 15h09
pc75

Re,

Alors dans ce cas, il te reste les fonctions Mid() et eventuellement InStr().
29/06/2010, 15h12
Msk_76

d'accord je vais me pencher un peu plus en détail là dessus ce soir,

merci à tous pour vos réponses, je vous tiendrais au courant de l'avancement des travaux ;)

Citation:

Envoyé par pc75

Re,

Alors dans ce cas, il te reste les fonctions Mid() et eventuellement InStr().

Non, plutôt

Code:

1
2
3
4
5
6
7
8
9
    Dim hDoc As HTMLDocument, allTab As Object, hT As HTMLTable
 
    Set hDoc = ie.document
    Set allTab = hDoc.getElementsByTagName("Table")
    i = 1
    If allTab.length >= i - 1 Then
        Set hT = allTab(i)
        content = hT.rows(0).cells(1).innerText
    End If