[Résolu][Calc] Lecture source page Web

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
parent.d
Membre lOOyal
Membre lOOyal
Messages : 42
Inscription : 08 août 2008 12:52

[Résolu][Calc] Lecture source page Web

Message par parent.d »

Bonjour,
Je vous fais part de quelques lignes de code pour lire le source d'une page web.

Code : Tout sélectionner

BasicLibraries.LoadLibrary("XrayTool")
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.Dispatcher")
mondocument = thiscomponent
lesfeuilles = mondocument.sheets

obj = createUnoService("com.sun.star.bridge.OleObjectFactory")
ie = obj.createInstance("InternetExplorer.application.1")
ie.visible = false
mafeuille = lesfeuilles.getByName("feuille1")
macellule = mafeuille.getCellRangeByName("a3")
l = 2
do while macellule.string <> ""
valeur = macellule.string
ie.navigate("http://www.boursorama.com/cours.phtml?symbole=" &  valeur)
do until ie.ReadyState = 4
wait(50)
loop

mapage = ie.document
texte = mapage.body.innetext
texte1 mapage.body.innerhtml
la variable texte est remplieavec les bonnes valeurs
La variable texte1 est une chaine vide.

Merci de m'aider à résoudre ce problème.

Bonne soirée à tous
LibreOffice version 4.2.7.2 sous Ubuntu version 14.04 LTS
Avatar de l’utilisateur
Vulcain
InconditiOOnnel
InconditiOOnnel
Messages : 989
Inscription : 01 juin 2009 09:52
Localisation : Poitou

Re: [Calc]Lecture source page Web

Message par Vulcain »

Bonsoir,
parent.d a écrit :pour lire le source d'une page web.
Pour le code source d'une page web, vous utilisez Firefox et faites Ctrl + U
Bref, un peu de mal à voir l'intérêt d'exporter l'intégrité de la page html dans Calc.
Vous avez demandé l'autorisation au site avant de leur pomper des données ?? Car moi je lis: Copyright © 2010 BOURSORAMA :evil: J'ai mis en gras les parties intéressantes
boursorama a écrit :2. Propriété intellectuelle / Copyright BOURSORAMA

BOURSORAMA est propriétaire et/ou dispose de l'autorisation d'utiliser l'ensemble des droits portant sur les logos, marques, signes distinctifs ainsi que les bases de données et logiciels utilisés dans le cadre de l'exploitation du site BOURSORAMA. Toute représentation ou reproduction totale ou partielle des logos, marques, signes distinctifs ainsi que les bases de données utilisées sur le site BOURSORAMA par quelque procédé que ce soit sans l'autorisation expresse et préalable de BOURSORAMA est interdite et constituerait une contrefaçon sanctionnée par les articles L. 335-2 et suivants du Code de la Propriété Intellectuelle.
Cordialement
LibreOffice 3.5.7.2 sous Ubuntu 12.04 (vient des dépôts)
--
"Un logiciel Libre est gratuit une fois qu'il a été payé" F.ELIE
orveo
Membre OOrganisé
Membre OOrganisé
Messages : 86
Inscription : 25 août 2007 16:45
Localisation : paris est (disney)

Re: [Calc]Lecture source page Web

Message par orveo »

bonsoir

voici une toute autre methode que j'ai trouve sur le livre de M.MARCELLY et de M.GODARD et qui fonctionne bien .

Code : Tout sélectionner

sub lecturecodesource()

 oDoc = ThisComponent
 Feuilcp1 = oDoc.getSheets.getByName("MaFeuille")
dim monurl as string
dim lareponse as string
dim n as integer
dim i as integer
dim nl as integer
monurl=ConvertToURL("http://www.MonSite")


Open monurl for input as #1
 line input #1, lareponse
     
  

 do while not eof(#1)
      line input #1, lareponse
      n = n + 1
       feuilcp1.getCellByPosition( 1 ,n ).formula=lareponse
        
   loop
 

close #1


end sub
cordialement
orveo
libreoffice 4.2.4.2 sous linux ubuntu 14.04
parent.d
Membre lOOyal
Membre lOOyal
Messages : 42
Inscription : 08 août 2008 12:52

Re: [Calc]Lecture source page Web

Message par parent.d »

Bonsoir,
je vous remercie pour les réponses.
Je ne vais pas rentrer dans une discution concernant l'utilisation des données d'une page BOURSORAMA : Ceci reste à l'appréciation de chacun en fonction de l'usage qui en est fait.

La réponse d'Orveo fonctionne et j'aurai du trouver la trouver dans le livre de Messieurs Marcelly et Godard.

En fait je souhaitais savoir par rapport au code transmis pourquoi la chaine :

Code : Tout sélectionner

mapage = ie.document
texte = mapage.body.innetext
texte1 mapage.body.innerhtml
Texte1 est vide.

En réalite j'ai fait ce genre de macro en Visual Basic

Code : Tout sélectionner

    lien = "http://www.boursorama.com/cours.phtml?symbole=" & valeur
xml.Open "GET", lien, False
xml.send
data = xml.responsetext
et je voulais migrer sous OpenOffice pour le plaisir.

Bonsoir à tous

Cordialement
LibreOffice version 4.2.7.2 sous Ubuntu version 14.04 LTS
Avatar de l’utilisateur
Bidouille
RespOOnsable forum
RespOOnsable forum
Messages : 12727
Inscription : 08 nov. 2005 16:23
Localisation : Brest, France

Re: [Calc]Lecture source page Web

Message par Bidouille »

Bonsoir,
parent.d a écrit :Je ne vais pas rentrer dans une discution concernant l'utilisation des données d'une page BOURSORAMA : Ceci reste à l'appréciation de chacun en fonction de l'usage qui en est fait.
Non Monsieur, les règles de Boursorama citées par Vulcain sont claires et nous ne voulons pas risquer de poursuites judiciaires.
parent.d a écrit :et je voulais migrer sous OpenOffice pour le plaisir.
Plaisir qui doit rimer avec respect.

Merci donc de ne pas poursuivre ce fil en faisant référence à ce site sous peine de verrouillage.
 Ajout : au 20/03/2011 
Un an plus tard, l'auteur n'ayant pas poursuivi la problématique en axant son problème sur un autre site. Le présent fil est déclaré [Résolu].