requête extraction HTML

fr-users
#1

Bonjour,

j'ai besoin de pouvoir récupérer des textes sur des pages HTML pour tenir un
référentiel à jour et j'ai donc trouver un morceau de macro utilisant
loadcomponentFromURL qui me permet de charger l'ensemble de la page en
source html dans une feuille Calc.

Mon objectif serait juste d'avoir le paragraphe que j'ai besoin dans Cal ou
writer.

Quelqu'un peut-il m'éclairer

la macro :
Sub RecupererSourcePageHtml
  'Source: linuxtalk
  Dim oDoc As Object
  Dim Cible As String
  Dim Args(1) As New com.sun.star.beans.PropertyValue

  Cible =
"http://www.legifrance.gouv.fr/affichCode.do?idSectionTA=LEGISCTA000006171062&cidTexte=LEGITEXT000006072665&dateTexte=20120226"
  
  Args(0).Name = "FilterOptions"
  Args(0).Value = "44"
  Args(1).Name = "FilterName"
  Args(1).Value = "Text - txt - csv (StarCalc)"
  
  oDoc = starDeskTop.loadComponentFromURL( Cible , "_blank" , 0 , Args )
  
End Sub

cordialement