Prüfen ob Datei schon geöffnet ist

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Benutzeravatar
taraxacum
****
Beiträge: 163
Registriert: Mi, 14.10.2009 22:58
Wohnort: Rhein-Neckar Kreis

Prüfen ob Datei schon geöffnet ist

Beitrag von taraxacum »

Hallo Forum,

Ich will, bevor ich eine Datei mit 'loadComponentFromURL' öffne prüfen, ob die Datei bereits geöffnet ist, finde es aber nicht.
Kann mir jemand helfen?


schönen Dank schon mal.
Viele Grüße,
Tara
-------------
OOo 3.3 unter Windows XP_SP3, W7 und (K)Ubuntu
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Prüfen ob Datei schon geöffnet ist

Beitrag von turtle47 »

Hi Tara,

guckst Du hier.

Jürgen
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
Benutzeravatar
taraxacum
****
Beiträge: 163
Registriert: Mi, 14.10.2009 22:58
Wohnort: Rhein-Neckar Kreis

Re: Prüfen ob Datei schon geöffnet ist

Beitrag von taraxacum »

Hi Jürgen,
ich danke mal ganz herzlich!
nach dem ersten 'drüberfliegen' werde ich damit die Lösung finden.

ich meld mich nochmal.
Viele Grüße,
Tara
-------------
OOo 3.3 unter Windows XP_SP3, W7 und (K)Ubuntu
Benutzeravatar
taraxacum
****
Beiträge: 163
Registriert: Mi, 14.10.2009 22:58
Wohnort: Rhein-Neckar Kreis

Re: Prüfen ob Datei schon geöffnet ist

Beitrag von taraxacum »

Auf dass alle was davon haben ...
(Dank an Jürgen)

Code: Alles auswählen

Function fIsOpen (StrUrl) as Boolean
'  returns true if StrUrl is already opened, false if not
'  StrUrl is the Filename with Path converted to url
   fIsOpen = false
   oComponents = StarDesktop.getComponents() 
   ' Walk through the components looking for documents of a specific type. 
   oComponentWalker = oComponents.createEnumeration() 
   Do While oComponentWalker.hasMoreElements() 
       oComponent = oComponentWalker.nextElement()
       if oComponent.getURL()= StrUrl then
           fIsOpen = true
           exit function
       end if       
   Loop
End Function
Viele Grüße,
Tara
-------------
OOo 3.3 unter Windows XP_SP3, W7 und (K)Ubuntu
Antworten