| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.2 ListOfAllUrls
ListOfAllUrls(ListOfUrl()) Die Prozedur liest alle geöffneten URL-Pfade aus. Neue Dateien, die noch nicht gespeichert worden sind, werden nicht erkannt. ("UnbenanntX"). Beispiel: Sub BeispielListAll dim listall(1) listofallurls(listall()) for i=0 to ubound(listall())-1 msgbox "URL "+i+": "+listall(i) next End Sub 'Autor: Michael Dannenhöfer 'mail: starbasic@dannenhoefer.de 'Version: 19.11.2003 ' Die Prozedur liest alle geöffnet URL-Pfade aus. ' Zur Zeit werden neue Dateien "Unbenannt" nicht erkannt ' Der Aufruf erfolgt über ' dim listall(1) ' listofallurls(listall()) ' Beispiel siehe unten sub ListOfAllUrls(ListOfUrl()) 'Variablendeklaration Dim oComponents as Object Dim oDocs as Object Dim oDoc as Object Dim i as integer Dim j as integer Dim k as integer 'Aufruf des Desktops oComponents = StarDesktop.getComponents() oDocs = oComponents.createEnumeration() 'Anzahl der offenen Fenster auslesen i=0 Do While oDocs.hasMoreElements() oDoc = oDocs.nextElement() i=i+1 Loop 'Neudimensionierung des arrays redim ListOfUrl(i) 'Audruf der Unterfunktion ListOfAllDocs(ListOfUrl()) 'Anzahl der wirkliche Urls auslesen j=0 for k=0 to i if ListOfUrl(k)<>"" then j=j+1 next 'Neudimensionierung Dim TempList(j) l=0 for k=0 to j if ListOfUrl(k)<>"" then TempList(l)=ListOfUrl(k) l=l+1 end if next redim ListOfUrl(j) ListOfUrl()=TempList() end sub 'Autor: Michael Dannenhöfer 'mail: starbasic@dannenhoefer.de 'Version: 19.11.2003 sub ListOfAllDocs(ListAllDocs()) Dim oComponents as Object Dim oDocs as Object Dim oDoc as Object Dim i as integer oComponents = StarDesktop.getComponents() oDocs = oComponents.createEnumeration() i=0 Do While oDocs.hasMoreElements() oDoc = oDocs.nextElement() on error goto nextelement ListAllDocs(i)=odoc.url i=i+1 nextelement: Loop end sub |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009