extraire une ligne d'une page html

extraire une ligne d'une page html - VB/VBA/VBS - Programmation

Marsh Posté le 16-05-2006 à 15:30:36    

Salut a tous, voila je galère depuis une heure sur Google :fou:  et autres :pt1cable:  afin de trouver une ebauche de script permettant de récuperer une ligne d'une page html[u]. je vous explique ma situation  :jap: :
je dois récuperer le compteur de pages imprimées des imprimantes locales de ma boite, elle ont une adresse IP qui donne accès sous IE a leur page d'administration. ex http://192.168.25.24/printer/stats
Est-il seulement possible d'en extraire une ligne  :??: ? J'ai pensé par la source mais je n'ai pas trouver comment la récuperer en VBS.
Sinon serait ce plus facile avec un autre language ?
merci a chacun d'entre vous qui essaieras ...

Reply

Marsh Posté le 16-05-2006 à 15:30:36   

Reply

Marsh Posté le 16-05-2006 à 17:03:56    

Reply

Marsh Posté le 17-05-2006 à 10:19:58    

j'ai pas trouver grand chose mais je vais voir a changer de language, un collegue m'a dit que j'étais fou !!!

Reply

Marsh Posté le 17-05-2006 à 10:40:59    

Reply

Marsh Posté le 17-05-2006 à 18:48:37    

Salut,
 
je ne sais pas si ça peut aider, mais voici comment je procèderais, à l'aide d'excel et vba:
 

Code :
  1. 'Pour chaque adresse des page admin.html:
  3.   'mettre l adresse de la page dans une variable de type "string"
  4.   strFichierHTML = adresse page HTML
  6.   'ouvrir le fichier html sous vba:
  7.   Open strFichierHTML For Input As #1
  9.    'Parcourir le fichier à la recherche de l'information
  10.   'En admettant que ta ligne recherchée commence systématiquement par "toto":
  12.     'Début du parcours du fichier ligne par ligne et s'arrête en fin de fichier si l'info n'est pas trouvée
  13.     Do While Not EOF(1)
  14.       'Lecture de la ligne courante et la mettre dans la variable de type "string" strLigneLue
  15.       Line Input #1, strLigneLue
  17.       'Test pour vérifier si la ligne commence par "toto":
  18.       If Left(strLigneLue, 1, 4) = "toto" Then
  19.          'si la ligne commence par "toto" sortir de la boucle
  20.          'la ligne recherchée est dans la variable strLigneLue on sort de la boucle
  21.          end loop
  22.       end if
  24.     'Fin de la boucle
  25.     loop
  27.     'On ferme le fichier ouvert:
  28.     close #1
  30.     'On écrit la ligne recherchée dans le tableur excel à la ligne courante et dans la colonne 1 sur mon exemple:
  31.     Cells(intLigneExcelCourante, 1).Value = strLigneLue
  32.     'On incrémente un nouveau numéro de ligne courante dans le classeur excel:
  33.     intLigneExcelCourante=intLigneExcelCourante+1
  35. 'Fin de la boucle, on passe à l'imprimante suivante


 
Warff !  :ouch: la mise en page pourrie !
 
Tu peux imaginer ranger toutes les adresses des imprimantes dans ton fichier excel. A chaque ligne, la macro reconnait la page de l'imprimante, lance la recherche dans le fichier après l'avoir ouvert et range le résultat à droite du nom de l'imprimante. (pratique pour faire des stats !)
 
La ligne retrouvée, tu peux aussi extraire de la ligne l'info nécessaire avec la fonction mid(chaine de caractères,position départ, longueur chaine)
 
Une dernière chose: j'ai tapé le code de tête, d'après un exemple d'ouverture/lecture/écriture de fichier qui fonctionne bien chez moi, mais je ne l'ai pas testé. Vois le comme un algorithme plutôt qu'un programme clé en main ;)
 
kenavo,
 
Jean-Marc


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed