OpenOffice.info

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: [url]http://de.autohotkey.com/[/url].
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: [url]http://gsitecrawler.com/[/url]

Viel Erfolg damit!

Onkel Fritz

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

Hallo auch,

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

HTH, Bernd
--
[code]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
[/code]

[quote="Martial57"]Und wie kann man das? Würde das gerne erlernen.[/quote]
Dann verschaffe dir zunächst einen Überblick und Einstieg: [url=http://de.openoffice.info/viewtopic.php?&t=1553]Informationen zur StarBasic-Programmierung[/url]. Und deine Fragen zur Programmierung stellst du dann im Forum [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url].

Gruß
lorbass

[quote="Martial57"]Die anderen Daten (Regisseur, Premierendatum, Genre, usw.) kann man wie schon leider gesagt nur über den Link erreichen. [/quote]

Und wie sollte OOo / Calc das können?

Dazu musst Du eine Anwendung schreiben!