Faire une recherche sur une page web d'élément texte sans passer par le code source

Version imprimable

12/09/2014, 09h29
Phifou

1 pièce(s) jointe(s)

Faire une recherche sur une page web d'élément texte sans passer par le code source

Bonjour à tous,

nouveau challenge aujourd'hui après celui de ses derniers jours :
Faire une recherche dans la page web (sur IE, toujours le n°8), un peu comme un "ctrl + F" pour récupérer les informations qui sont après le mot cherché.

Je m'explique : j'ai une page internet, avec un code source tellement horrible qu'on se pique les yeux soit même pour prévenir l'effet du regard qu'on peut lui porter (pardon). Il n'y a dans le code source de cette page aucun identificateur ou nom de classe ou autre manière de trouver un élément.
L'élément que je cherche est dans une balise td avec pour pauvres attirbuts :
Pièce jointe 156017

Pour ma part, j'ai besoin de récupérer le nombre "2" qui se trouve entre les crochets devant liaisons. Sur la Page c'est écrit ainsi : "[2] liaison(s)" je ne sais donc pas à quoi sert le " " devant le mot liaisons. Ce que je sais c'est qu'on le trouve un peu partout.

Ma question, est-il possible de faire une recherche un peu comme un ctrl+F sur la page chargée dans VBA pour récupérer ce nombre ? (Sachant que je ferais ma recherche puis bouclerais pour trouver la bonne valeur qui se trouve devant)

Mille merci par avance de vos idées et/ou vos conseils.

Philippe
12/09/2014, 11h11
Marc-L

Bonjour,

soit chercher dans le code complet de la page un repère texte avec la fonction InStr par exemple
pour ensuite à partir de cette position trouver celle de la valeur à extraire de la même manière ou avec la fonction InStrRev
suivant le sens et extraire enfin la valeur avec la fonction Mid (tout ceci étant le B-A-BA des fonctions textes VBA …);

soit cibler l'objet "TABLE" par GetElementsByTagName sachant qu'une table HTML est composée de lignes dans
une collection rows, chaque ligne étant composée d'une collection cells contenant les données au format texte (innerText),
comme une cellule d'une feuille Excel pointée par des numéros de ligne et de colonne …
A retenir : le premier élément d'une collection a pour indice le zéro.
Voir l'excellent tutoriel Interaction avec Internet Explorer via VBA Excel comme les exemples
dans les discussions de ce forum et dans une contribution à mon nom …

_________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !
12/09/2014, 11h26
Invité

Bonjour,
" " les page HTML ne reconnaissent les espace! vola donc le caractère espace façon code HTML.

en revanche moi sans le html, mais pas seulement la partie qui te concerne (Javascript,<Body></body>,<From></From> par exemple) autant dire tout!.

bonjour oulala !!

bon je suppose que c'est la suite de ton dernier post
alors a la place de mon getclassname sur le "thread"de l'exemple que je t'ai donné dans ton autre post
Code:

1 2 3 4 5 6 7 8 set tablTD=IE.document.getelementsbytagname("td") for i=0 to tablTD.length if instr(tablTD(i)).innertext,"[")>0 then msgbox replace ( split(tablTD(i).innertext,"]")(0) & "]"," ","") end if next
après il y a des solutions beaucoup plus propres et peut être un peut plus complexes mais tout autant efficace

une idée comme ca juste pour le fun

pourquoi ne pas récupérer la table en entier la transférer dans un sheet les espaces redeviendront des espaces

et ensuite travailler sur la table dans le sheets

dans le cas ou cette solution t'intéresserait

tu ferais un truc du genre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 set matable = ie.document.getelementsbytagname("table") 'tu peut en avoir plusieurs mais on va travailler sur la première pour l'exemple 'on va memoriser dans le presspapier de IE le code html de la table with IE.document faire = .ParentWindow.clipboardData.SetData("text", .getelementsbytagname("table")(0).outerhtml) With Sheets(1) 'adapte le nom de ton sheet ici et l'addresse de la première cellule gauche de ton tableau (exemple cells(1,1)) .Cells(1, 1).Select .Paste End With faire = .ParentWindow.clipboardData.ClearData("text") End with
ouais t'a raison c'est dingue :ptdr:
il est Fou!! ce toulonnais ;)

faut il que je te fasse un exemple complet ?????

13/09/2014, 11h19
Marc-L

Salut Patrick !

Si le besoin n'est de lire qu'un seul élément de la table, autant le récupérer directement sans transfert complet de la table …

_________________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !
13/09/2014, 11h41
patricktoulon

re

salut Marc

je ne faisais que énumérer les possibilités
15/09/2014, 08h23
Phifou

Citation:

Envoyé par rdurupt

Bonjour,
" " les page HTML ne reconnaissent les espace! vola donc le caractère espace façon code HTML.

en revanche moi sans le html, mais pas seulement la partie qui te concerne (Javascript,<Body></body>,<From></From> par exemple) autant dire tout!.

J'ai compris pour le &nbsp, mais pas le reste du message ! :P

PatrickToulon, merci beaucoup pour toutes ces idées, je vais expérimenter ça ce matin, ça m'a l'air super. ;)

Philippe
18/09/2014, 08h28
Phifou

En posant la question autrement, est-ce qu'il est possible avec du VBA de piloter IE, comme on peut piloter outlook ou excel par exemple et ainsi utiliser la fonction rechercher sur une page ? (fonction "ctrl + f")

Merci d'avance de vos réponses,

Philippe
18/09/2014, 08h43
Phifou

Comme précisé dans l'autre post, sur la page en question, je n'arrive pas à récupérer les éléments par la fonction GetElementsByTagName dans ma page, sinon, je l'aurais déjà fait.

Est-ce que vous auriez connaissance des éléments qui empêcheraient de faire fonctionner cette fonction ?
18/09/2014, 08h53
Marc-L

Déjà répondu dans l'autre discussion, du reste il n'y en avait pas besoin de deux ! …

Et l'autre méthode alors ?! …

1 pièce(s) jointe(s)

Si je récupère le code source je peux faire une recherche dedans, il me faut récupérer le code source, ok. Mais comment faire ?

J'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 For i = 0 To ShellWindows.Count - 1 If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then Set IEObject = ShellWindows.Item(i) End If Next Set IEDoc = IEObject.document texte = IEDoc.body.innerHTML msgbox texte
voici ce que m'affiche la msgbox :
Pièce jointe 156580

Mon code source est bien plus "gros" si je puis dire...
Une idée de la raison ?
Comment avoir tout le code source ?

18/09/2014, 10h56
Marc-L

Quelle que soit la méthode, si l'objet pointé n'est pas le bon …

Donc commencer par simplement piloter Internet Explorer pour voir déjà si tu t'en sors car,
dans la négative, tu n'y arriveras pas plus en interceptant une instance ! …
18/09/2014, 11h19
Phifou

L'objet est le bon puisque le titre affiché correspond bien à celui de la page où je me trouve.

Est-ce que ça ne pourrait pas être dû au fait que la page utilise un autre langage (javascript ou autre, je n'en sais rien) qui rendrait une partie de la source "invisible" ?

Je fais un essai malgré tout en pilotant IE.

[EDIT] C'est confirmé : même en pilotant IE directement j'arrive au même résultat[/EDIT]