copier le contenu d'une page web

Version imprimable

04/08/2009, 11h04
ludojojo

copier le contenu d'une page web

Bonjour,
Je dois tous les matins faire un copier-coller d'une page web ".aspx" depuis mon navigateur vers un fichier ".txt", mais j'aimerais automatiser cette tache.
Quelqu'un aurait il une idée sur la manière de m'y prendre?

Merci par avance

PS : il n'y a pas d'image ni quoi que ce soit de bizarre juste du texte.
05/08/2009, 12h10
_xme_
Salut
Si tu poste ici, n'as-tu pas déjà une idée de réponse :mrgreen:
un coup de
Code:

1 2 3 4 5 6 Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_") oIE.navigate "tonadresse.html" Do While (oIE.Busy) WScript.Sleep 200 Loop
ensuite faut cherche dans les propriété de oIE.document pour obtenir ce que tu cherches
Je précise que j'ai jamais utilisé l'objet IE du coup je ne sais pas si Do While (oIE.Busy) fonctionne bien :lol:
Je l'ai récup rapido sur internet.

Du coup tout les matins tu n'auras plus qu'à lancer ton script
Et sinon ben t'installe un task manager et tu lui demande de lancer ton script tout les matins :mrgreen:
Voir si tu tu cherches, je pense que tu peux même trouver pour obliger le lancement de ce script au démarage de ton pc :)
07/08/2009, 15h34
ludojojo

J'ai un peut de mal avec ce bout de code, à quel moment fais tu une copie?
10/08/2009, 10h21
_xme_

Bonne remarque il n'y a pas de copie dans mon code :D

J'ai l'impression que je n'ai pas été très claire désolé :?
Le bout code que je t'ai montré c'était juste pour te montrer comment on se connecte à une page internet et attendre qu'elle soit chargée.
Pour faire la copie il faut ensuite copié l'ensemble du contenu l'objet oIE.
Comme je te l'indiquais après pour copié le contenu tu dois t'adresser à la propriété oIE.Document.
Après je ne sais pas qu'elle genre de copie tu souhaites.
Veux-tu copier le contenu et la forme de la page (les balises html) ou souhaites-tu seulement le contenu?
De plus la copie va dépendre de la structure de la page, présence de frame ou pas?
Voila donc ta copie dépends de tout ça du coup, il n'y avait pas de copie dans mon morceau de code.

Au cas ou, regarde toujours dans une doc s'il n'existe pas directement une méthode de copie mais perso je n'en connais pas.

Au fait pour écrire dans un fichier texte go faq ;)
10/08/2009, 10h39
ludojojo

En effet ma question n'était pas complète. Ce que je souhaite c'est faire une copie la plus simple possible sans image, sans frame, juste le texte brut et rien d'autre. Pour ce qui est d'écrire et de lire dans un fichier .txt pas de problème.
Mon soucis c'est la copie.
Je n'ai pas encore trouvé la méthode en passant par oIE.Document mais je vais continué à chercher.

Merci.

Tiens peu-être ;)

Code:

1
2
3
4
5
6
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "www.developpez.com"
Do While (oIE.Busy) 
	WScript.Sleep 200 
Loop
msgBox oIE.Document.documentelement.Innerhtml

10/08/2009, 10h53
_xme_
Salut, comme présicé plus haut, je ne pense pas qu'il existe une méthode de copie super simple.
(En fait la seule qui pourrait exister d'après moi c'est d'arriver à considérer la page comme un flux et de le copier directe dans un fichier texte. Dans ce cas là tu aurais encore les balises, mais je n'ai aucune idée de comment faire)
Dans l'autre cas je pense que ca va dépendre de ta page.
Donc là il faut se renseigner sur la hierachie des propriétés html
Imaginons que tout les éléments de ta page qui t'interessent soit définit par des id
Tu pourrais faire :
Code:

1 2 texte= texte & oIE.Document.getElementById().Value
en tout cas en javascript pour énumérer les différents éléments d'une page c'est getElementById(). Faut vérifier que ca existe en vbs

Mais le truc c'est que si par exemple dans ta page il y a une table qui est défini avec un id le .Value va planter. Du coup ca dépend vraiment de page

Edit : a ben bbil connaissait la bonne propriété :ccool:
11/08/2009, 13h36
ludojojo

En effet cette fonction existe

Citation:

oIE.Document.getElementById()

Mais le problème c'est j'ai plusieurs éléments à récupérer, et faire la liste des id serait un travail de fourmi. N'est il pas possible de faire un copier coller non pas du code source, mais juste de son contenu?
11/08/2009, 14h04
_xme_

8O
As-tu essayé la solution de bbil?
Car perso j'ai testé et ca affiche tout le code de la page du coup ça devrait être suffisant non?
Après il te suffit de faire de la manipulation de chaine de charactere
Sur developpez pour des exemple d'utilisation ;).
Tout balise html commence par < et fini soit par /> soit par > ca dépend comment c'est codé. Au pire sinon tu fais un dictionnaire des balises de la base pour les detecter et les traiter

Et puis sinon regarde toujours dans les propriétés de documentelement s'il n'y a pas autre chose que Innerhtml. Perso je ne connais malheureusement pas de documentation avec les propriétés des objets IE, donc je peux pas te renseigner plus.

Edit: 6 min de recherche et je tombe sur

Code:

MsgBox Document.documentElement.outerText

essaye ça, ça devrait plus te correspondre ;)
11/08/2009, 17h08
ludojojo

Oui j'ai testé la fonction proposé par bbil! J'essayais justement de re-travailler le résultat.
En revanche ce code la fonctionne exactement comme je le souhaitais !:

Citation:

MsgBox Document.documentElement.outerText

Où peut on trouver les différentes méthodes qui pour Document.documentElement ?
J'ai cherché mais sans trouver!

Voici le code final de l'application :

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
dim file 
file = "c:\madecopie.txt"
CreateAfile(file)
 
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "http://atacoss.ac750.recouv/sites/Solutions/Demserv/Equipe%20CnirParis%20INTEGRATION/TB_ProlongContrat.aspx"
Do While (oIE.Busy) 
	WScript.Sleep 200 
Loop
WriteText file,oIE.Document.documentelement.outerText
 
Function CreateAfile(resumeFile)
   Dim fso, MyFile 'fso pour File System Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile(resumeFile, True)
End Function
 
Function WriteText(MyFichier,myText)
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, f, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(MyFichier)
   Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
   ts.WriteLine myText
   ts.Close
End Function

Merci pour votre aide

Ps: si quelqu'un à un lien avec la liste des fonctionnalités de "Document.documentElement" surtout qu'il n'hésite pas à le poster !

11/08/2009, 17h30
_xme_

Comme dit précédemment je ne sais pas ou trouver celà :?
J'ai trouvé le outer.Text par google en partant d'une recherche de innerhtml et j'ai parcouru les pages :D

Je serais également interessé par un tel lien sur les propriété d'une page internet :)

Pense au tag résolu ;)