[R] Lire du texte web et l'afficher dans le script

[jesusip200]

Bonjours,

Voila mon problème, avec <IE.au3> j'ai pas trouver un moyen de scanner du text d'une page web pour l'afficher dans le script.

Le text sur le page affiche les point sur ce format :

Code : Tout sélectionner

<td align="center" valign="top">[color=#FF0000]22[/color]</td>

Le chiffre 22 change a tout les foi que je me co. Et j'aimerais pouvoir l'affichier sur mon script.

Je sais pas si c'est possible, mes si oui j'aimerais avoir une petite aide.

[sylvanie]

une fois la page mise en buffer, un coups d'expression régulière fera l'affaire :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$expr='<td align="center" valign="top">22</td>'

$patern = '<td align="center" valign="top">(\d+)</td>'

$number=StringRegExp($expr,$patern,3)
If Not IsArray($number) Then Exit 1
$number=$number[0]
MsgBox(0,"valeur",$number)
 

dans cet exple, il faudra donc remplacer $expr par la page web
Attention, si il y a plusieures ligne bâties sur le même modèle, je m'arrête au premier. Dans ce cas il faudra boucler sur la dimension du tableau retourné

[jesusip200]

Attention, si il y a plusieures ligne bâties sur le même modèle, je m'arrête au premier. Dans ce cas il faudra boucler sur la dimension du tableau retourné

Oui il en n'a même beaucoup Alors comment on fais boucler sur la dimension du tableau ?

Cars c'est le deuxieme sur ce modèle.

[sylvanie]

comment on fais boucler sur la dimension du tableau ?

Cars c'est le deuxieme sur ce modèle.

boucle : For ... Next
Dimension tableau : Ubound($tableau)

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$expr='<td align="center" valign="top">22</td>'&@CRLF& _
'<td align="center" valign="top">96</td>'&@CRLF& _
'<td align="center" valign="top">23</td>'

$patern = '<td align="center" valign="top">(\d+)</td>'

$number=StringRegExp($expr,$patern,3)
If Not IsArray($number) Then Exit 1
$dimension = UBound($number)
For $ind= 0 to $dimension -1
    $number_interm=$number[$ind]
    MsgBox(0,"valeur",$number_interm)
Next

 

[jesusip200]

Je sais pas pourquoi sa marche pas, mes tu ma très bien guider. Je vais pas le lacher tant que je ne trouve pas mon erreur.

Encore merci je sens que j'en n'ai pour un bout de temps avec sa. Cars la ligne :

Code : Tout sélectionner

$expr='<td align="center" valign="top">22</td>'&@CRLF& _
'<td align="center" valign="top">96</td>'&@CRLF& _
'<td align="center" valign="top">23</td>'
 

Me donne 3 msgbox ( 22, 96, 23 )

Tu ma dit de le remplacer par l'addresse

Code : Tout sélectionner

$expr = 'la_page_web'

Et maintenant sa fais plus rien ^^

Pourtant je penssais que s'etais pas compliquer je voulais juste afficher les point dans un label ^^ Oui je sais, je suis noob. Mes je pense que la plupart on passer par la. ( Je l'espere sinon je vais me sentir plus que débutant ^^ )

Edit : Je sais pas si on n'a le droit d'afficher les page web, alors si j'ai pas le droit vous avez juste a me le dire et je l'enleve. Mes je pense que sa va être plus facile dememe.

Le site est : http://millenium-servers.com/ ( Faut être connecter login : Pour_test pass : deamon j'ai creer un account pour vous montrer ) pour afficher les vote dans un label genre

GUICtrlCreateLabel($number_interm, 8, 160, 100, 24)

[jesusip200]

Bon je suis sure que c'est une virgule ou une connerie demême que je voit pas ^^ Mes sa veuet toujours pas.

Si j'en demande trop n'hésiter pas a me le dire ^^

Mes un grand merci sylvanie pour ton aide. Mes j'abandonne pas pareil, je viens bien finir par réussir.

[sylvanie]

Je viens de tester en faisant un fileread d'une copie de la page enregistrée en locale et ça marche ...

comment la page est elle rapatriée pour la lire dans ton script ?

[jesusip200]

comment la page est elle rapatriée pour la lire dans ton script ?

Que veut-tu dire par la ? Lol je commence a avoir honte de poster ^^

[sylvanie]

Mais non, il n'y a pas de honte.

la première méthode c'est par inetget de l'url. Entre temps j'ai eu le temps de regarder, cette méthode fonctionne SI on s'est déjà connecter et authentifié (utilisation sans doute d'un cooki)

cf code suivant :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>
#include <IE.au3>

$file_local=@ScriptDir&"\index.htm"

InetGet("http://millenium-servers.com/",$file_local)
$expr = fileread($file_local)
$patern = '<td align="center" valign="top">(\d+)</td>'

$number=StringRegExp($expr,$patern,3)
If Not IsArray($number) Then Exit 1
$dimension = UBound($number)
For $ind= 0 to $dimension -1
    $number_interm=$number[$ind]
    MsgBox(0,"valeur",$number_interm)
Next

 

Si on ne s'est pas authentifié, aolrs 2 méthodes (qui ne vont pas marcher ...)

inetget avec http://login:pass@millenium-servers.com : ça ne marchera pas car il ne s'agit pas d'une authentification http classique ==> on oublie

_IEFormGetObjByName : marchera pas non plus, car hélas le formulaire n'a pas de nom ... j'ai cru voir sur le forum qu'il y avait des solutions mais là je passe la main.

[jesusip200]

Merci beaucoup sa marche XD

Mes juste une petite question si tu as le temps. Pourquoi il faut enregistrer le fichier index.html avant le scan de la page ? Peut-on pas le faire direct sur le page...

[sylvanie]

Et bien non ...
Car toute application (même les browsers) font des "get" des pages web en local pour les traiter.
Un browser par contre doit se débrouiller pour la buffuriser directement en RAM sans passer par l'étape fichier, mais même là dessus, je n'en suis pas entièrement certain à la vue de la quantité de fichiers temp qu'une connection génère...