Internetseite auslesen lassen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Internetseite auslesen lassen

Beitrag von komma4 »

Martial57 hat geschrieben:Die anderen Daten (Regisseur, Premierendatum, Genre, usw.) kann man wie schon leider gesagt nur über den Link erreichen.
Und wie sollte OOo / Calc das können?

Dazu musst Du eine Anwendung schreiben!
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Benutzeravatar
lorbass
********
Beiträge: 4116
Registriert: Mo, 01.05.2006 21:29
Wohnort: Bonn

Re: Internetseite auslesen lassen

Beitrag von lorbass »

Martial57 hat geschrieben:Und wie kann man das? Würde das gerne erlernen.
Dann verschaffe dir zunächst einen Überblick und Einstieg: Informationen zur StarBasic-Programmierung. Und deine Fragen zur Programmierung stellst du dann im Forum OOo Basic und Java.

Gruß
lorbass
bst
*****
Beiträge: 222
Registriert: Mo, 18.01.2010 16:14
Wohnort: Ilsfeld

Re: Internetseite auslesen lassen

Beitrag von bst »

Hallo auch,

hier in LibreOffice 3.4.0 unter Windows XP funktioniert so etwas, wenn auch ziemlich langsam.

HTH, Bernd
--

Code: Alles auswählen

REM  *****  BASIC  *****
Option VBASupport 1

Sub Main
   Dim oSheet As Object
   Dim IEApp As Object
   Dim IEDocument As Object
   Dim objNode As Object
   Dim objRow As Object
   Dim objCol As Object
   Dim i As Long, j As Integer

   oSheet = ThisComponent.currentController.ActiveSheet
   
   Set IEApp = CreateObject("InternetExplorer.Application")
   IEApp.Visible = False
   IEApp.Navigate "http://www.imdb.de/chart/top"
   Do: Loop Until IEApp.Busy = False
   Do: Loop Until IEApp.Busy = False
   
   Set IEDocument = IEApp.Document
   Do: Loop Until IEDocument.readyState = "complete"
   
   i = -1
   For Each objNode In IEDocument.getElementsByTagName("TBODY")
      For Each objRow In objNode.childNodes
         i = i + 1
         j = -1
         For Each objCol In objRow.childNodes
            j = j + 1
            oSheet.getCellByPosition(j, i).String = objCol.innerText
         Next
      Next
   Next
   
   Set IEApp = Nothing
End Sub
OnkelFritz
Beiträge: 4
Registriert: Sa, 18.06.2011 10:54

Re: Internetseite auslesen lassen

Beitrag von OnkelFritz »

Hallo,

ich beschäftige mich erst seit kurzem mit OOo / Calc und habe keine Ahnung ob das was Du möchtest damit geht.
Für deinen Zweck kann ich Dir aber AutoHotkey sehr empfehlen: http://de.autohotkey.com/.
Ist zwar am Anfang recht kompliziert, aber wenn Du es mal "raus" hast ist das ein sehr mächtiges Werkzeug.
Dort gibt`s auch, genau so wie hier, ein Top-Forum.
Deine "Freunde" dort sind u.a. "UrlDownloadToFile" und "FileRead". Such einfach mal im Forum danach, der Rest ergibt sich von selbst...

Und um die 250 Links der Filme nicht manuell kopieren zu müssen würde ich den GSiteCrawler benutzen: http://gsitecrawler.com/

Viel Erfolg damit!

Onkel Fritz
Antworten