Comment recuperer des informations d'une page web dans un fichier texte .....

Question

Bonjour,

Tout d'abord bonne année a vous tous

Je debute en vbs et j'ai besoin de votre aide

Si je me connecte par exemple sur la page internet http://10.120.22.192 je tomberai sur la page de configuration de l'une de mes imprimantes réseau qui se trouve dans mon reseau professionnel

Le but du jeu est de recuperer en automatique dans un fichier texte plusieurs informations de mon imprimante a savoir :

   - son nom
   - son modele
   - son IP
   - son masque reseau etc etc

Toutes ses infos sont sur la page web http://10.120.22.192 

Mais comment les recupérer en sachant qu'il y a des infos que je ne souhaitent pas recuperé, et qu'il va falloir faire cela pour une centaines d'imprimantes (comment pouvoir selectionner les infos que je veux) ?

Merci d'avance pour votre aide et votre comprehension

Rq : Si j'ai posté au mauvais endroit je vous pris de bien vouloir m'en excuser, mais je pensais que ce forum était l'endroit ideal

@+

PCPT · Answer

salut,
déplacé de VB.NET vers VBS

perso je n'accède pas à cette url....

tu dis tomber sur la page de config, c'est à dire? une page html qui liste en dure ses infos?
le question est alors de parser ta page c'est çà?

niveau code tu en es où, la récupération de la source de la page fonctionne bien?
montre-nous ce qu'il en est...
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PABLOCORREA · Answer

Merci pour ton aide

Effectivement tu ne peux pas acceder a cette page de chez toi, mais elle contient toutes les informations d'une imprimante

Cette page permet aussi de configurer l'imprimante notament son adresse IP par exemple

Si parser veux dire traduire la page, alors oui c'est ca

Je veux recuperer pouvoir recuperer certaines infos de la page web dans un fichier texte

Au niveau code je ne peux rien te montrer car tout est au boulot

J'ai essayer une solution mais qui me convient pas trop avec 
nodeList = node.getElementsByTagName("span") par exemple

PCPT · Answer

re,

voici déjà 2 liens qui t'aideront sans doute demain...
http://www.codyx.org/snippet_extraction-chaine-caracteres-partir-occurence-separator_131.aspx#368
http://www.codyx.org/snippet_supprimer-tags-html-dans-texte-striphtml_12.aspx#96

ps : si tu valides ma réponse alors que la solution n'est pas trouvé, il risque d'y avoir peu de passage sur ton topic ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PABLOCORREA · Answer

Merci pour ces deux liens mais ils permettent de recuperer des infos precises a partir d'un fichier texte, mais comment fais tu pour mettre le contenu de la page html dans un fichier texte ?

PCPT · Answer

j'sais bien.. c'est un début ^^

je ne touche pas trop à VBS....
regarde dans les sources existantes, tu drevrais trouver de quoi faire
http://www.vbfrance.com/codes_categorie/VBSCRIPT/36.aspx
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PABLOCORREA · Answer

Ok merci je vais y jeter un oeil

@+

cs_JMO · Answer

Bonsoir à tous,

Bonsoir PCPT,

Trouvé sur forum.hardware.fr (kiki29).
Testé avec url intranet/xtranet et avec fichier .html, les zones  textes sont 
enregistrées sur .txt, il suffit  de parser. 

sData = GetXml("http://212.157.42.168/")
sData = HtmlToText(sData)
WriteFile "C:\MaPage.txt", sData
 
Function HtmlToText(sHtml)
    With CreateObject("htmlfile" )
        .Write sHtml
        HtmlToText = .body.innertext
    End With
End Function
 
Function GetXml(sURL)
Dim Xml
    Set Xml = CreateObject("Microsoft.XMLHTTP" )
    Xml.Open "GET", sURL
    Xml.send
    Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4
    GetXml = Xml.responseText
End Function
 
Sub WriteFile(FilePath, sData)
    With CreateObject("Scripting.FileSystemObject" ).OpenTextFile(FilePath, 2, True)
        .Write sData: .Close
    End With
End Sub

jean-marc

PABLOCORREA · Answer

Bonsoir,

Merci JMO pour ton code

Il marche presque a 100 %, je m'explique

Voici le code que j'utilise

sData = GetXml("http://10.120.22.182/jetdirect.htm")
sData = HtmlToText(sData)
WriteFile "C:\MaPage.txt", sData
 
Function HtmlToText(sHtml)
    With CreateObject("htmlfile" )
        .Write sHtml
        HtmlToText = .body.innertext
    End With
End Function
 
Function GetXml(sURL)
Dim Xml
    Set Xml = CreateObject("Microsoft.XMLHTTP" )
    Xml.Open "GET", sURL
    Xml.send
    Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4
    GetXml = Xml.responseText
End Function
 
Sub WriteFile(FilePath, sData)
    With CreateObject("Scripting.FileSystemObject" ).OpenTextFile(FilePath, 2, True)
        .Write sData: .Close
    End With
End Sub

Quand je mets sData = GetXml("http://10.120.22.182/jetdirect.html") cela fonctionne impec

Quand je mets cela sData = GetXml("http://10.120.22.182/jetdirect.htm") cela plante

Le probleme c'est que ma page s'appelle bien jetdirect.htm

Comment faire pour résoudre mon pb ?

cs_JMO · Answer

Bonsoir,

J'espère ne pas dire de co..erie =>  .html = .htm
Je viens de tester avec 
sData = GetXml("c:
etmeet.htm"), le .txt est bien écrit.
sData = GetXml("c:\alert_pro.html"), le .txt est bien écrit.

Essaie  peut-être avec 
    'set Xml = CreateObject("Microsoft.XMLHTTP" )
    Set Xml = CreateObject("MSXML2.ServerXMLHTTP") ' seulement pour url , erreur si file disk

De même, peux-tu essayer avec un fichier disque.

jean-marc

PABLOCORREA · Answer

Ba je suis d'accord avec toi htm = html, mais j'ai cherché ce soir pendant fort longtemps avant de trouver cette erreur

si tu change l'extension cela fonctionne impec, alors je ne comprends pas qu'avec toi cela fonctionne ....

J'essaie d'appliquer tes conseils demain au boulot

Merci par avance

@+

Comment recuperer des informations d'une page web dans un fichier texte .....

10 réponses

Votre réponse

Discussions similaires