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