Script qui va récupérer le contenu balise "strong" d'une page html

Bonjour le Forum,

N'ayant que très peu de connaissances en programmation, serait-il possible via un script .vbs de récupérer le contenu de balises d'une page html et de le copier dans un fichier texte en faisant un saut de ligne à chaque nouvelle balise?
En fait, je cherche un script qui puisse récupérer tout le contenu des balises "strong" d'une page html. Celui-ci est assez court et si possible que chaque contenu des balises soient copié dans un fichier txt en sautant une ligne à chaque contenu trouvé.
Merci d'avance pour votre aide et vos idées de script.:D

Re bonjour le forum,

Pour avancer ma problématique : j'ai réussi à convertir ma page web en .txt
Maintenant, j'obtiens un fichier avec une certaine structure (qui est répétitive...) :
blablablablablablablablablablablablablablablablablablablablablablablablablablabla
blablablablablablablablablablablablablablablablablablablablabla
samsamsamsamsamsamsamsamsamsam
(un saut de ligne)
(un espace) et une durée sous la forme mm:ss

Et j'ai cette structure mélangé avec du "autre" texte que je retrouve "x" fois sur mon fichier .txt
Ma question est la suivante?
Existe-il un code qui puisse analyser l'ensemble du fichier texte et copier/coller toutes les lignes se situant 2 lignes en dessus de la durée et une ligne en dessus de l'espace (= texte en gras dans mon exemple) dans un autre fichier txt ou sur une feuille Excel? Il faudrait que ces différentes lignes se copient les une sous les autres si possible ^^ :D

Merci d'avance pour vos réponses.

bonjour,

le parsing d'un fichier html par un script VBS est toujours possible

un exemple qui utilise Internet Explorer, lit le contenu d'une page "test.htm"
récupère le contenu des tags <STRONG> et le sauvegarde dans un fichier texte "tsthtml.txt"
le chemin est à adapter évidemment...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Dim oIE,oFSO,oFile,oColTag,oItem,Result Set oIE = CreateObject("InternetExplorer.Application") Set oFSO = Createobject("Scripting.FileSystemObject") oIE.Visible = False oIE.Navigate "file://localhost/C:/Documents and Settings/User/Mes documents/test.htm" Do Until oIE.ReadyState = 4 WScript.Sleep 500 Loop Set oColTag = oIE.Document.getElementsByTagName("strong") If oColTag.length > 0 Then Set oFile = oFSO.OpenTextFile("C:\Documents and Settings\User\Mes documents\tsthtml.txt",2,True) For Each oItem In oColTag oFile.WriteLine oItem.innerText Next If IsObject(oFile) Then oFile.Close

---

Bonjour omen999,

Un GRAND MERCI pour votre code qui fonctionne à merveille et d'une vitesse à couper le souffle ^^ :lol:8O
Serait-il possible de vous demander juste encore une petite chose?
Est-ce qu'il est possible via le script de numéroter 01. 02. 03. 04. etc.... les tags récupérés par le script et copier dans le fichier tsthtml.txt ??
Le saut de ligne a déjà lieu, c'est parfait !! Si on pouvait faire une numérotation dans la foulée ça serait le TOP!!

Merci de votre aide dans tous les cas.

:salut:
Je ne sais pas si ça vous convient ou non cette modification ?

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 28 29

Option Explicit Dim oIE,oFSO,oFile,oColTag,oItem,Result,URL,OutPutFile,Count,ws URL = " http://www.developpez.net/forums/d1628719/autres-langages/general-visual-basic-6-vbscript/vbscript/script-va-recuperer-contenu-balise-strong-d-page-html/" OutPutFile = "OutPut_Strong.txt" Set oIE = CreateObject("InternetExplorer.Application") Set oFSO = Createobject("Scripting.FileSystemObject") set ws = CreateObject("wscript.shell") oIE.Visible = False oIE.Navigate URL   Do Until oIE.ReadyState = 4 WScript.Sleep 500 Loop Count = 0 Set oColTag = oIE.Document.getElementsByTagName("strong") If oColTag.length > 0 Then Set oFile = oFSO.OpenTextFile(OutPutFile,2,True) For Each oItem In oColTag Count = Count + 1 oFile.WriteLine Lpad(Count,2) & " . "& oItem.innerText & oFile.WriteLine Next oIE.Quit() If IsObject(oFile) Then oFile.Close ws.run OutPutFile '********************************************************************************* Function LPad(ByVal v, ByVal l) If Len(v) > l Then l = Len(v) LPad = Right(String(l,"0") & v, l) End Function '*********************************************************************************

---

plus simple... ;)

Code:

---

oFile.WriteLine Right("0" & Count,2) & ". " & oItem.innerText

---

Un grand merci à vous pour vos réponses.
J'ai pu faire ce que je souhaitais!! Au TOP encore merci....:D
Bonne soirée à vous et au forum.