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

' 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

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