OpenOffice.info

Danke, habe schon eine Lösung gefunden und oben gepostet.

[color=#008000].removeByName[/color] erwartet eine Zeichenkette, kein Array von Zeichenketten.

Nur mal so, als Anmerkung.

In der Bibliothek [color=#0040FF]TOOLS[/color] finden sich Routinen zur Bearbeitung von Arrays. Vielleicht ist da etwas dabei (nach dem Muster [color=#0040FF]array1 - array2[/color])

Nehme meine Erweiterung [url=http://extensions.services.openoffice.org/project/OOoBTL2]BTL2 - BasicTextListe2[/url]zur Erstellung eines lesbaren Dokuments der installierten Makros.


HTH, Viel Erfolg!

Sub StandortlistenDialog
	DialogLibraries.LoadLibrary("Standard")
 	oDialog = createUnoDialog(DialogLibraries.Standard.StandortlistenDialog)
 	oView = oDialog.getView()
 	oModel = oDialog.getModel()
 	oBut = odialog.getControl("ListBox1").getModel()
	oDialog.execute()
Endsub

   oAuswahl = odialog.getControl("ListBox1").getSelectedItems()
   oAlleEintraege = odialog.getControl("ListBox1").getItems()
  oTabelle = oDoc.sheets.removeByName(oNichtAusgewält)

Sub ListenVergleichen
rem-----------Anfang
Dim found
f = 0
    For m = 0 To UBound(aAllQueries)   
      For t = 0 To UBound(aQueries)
          If UCase(aAllQueries(m)) = UCase(aQueries(t)) Then
 							'match
            found = false
            exit for
          Else
							'no match
            found = true
          End If
      Next
      
      If found Then          
          ReDim Preserve aQueriesUnselected(f)
          aQueriesUnselected(f) = aAllQueries(m)
          f = f + 1
      End If
    Next

For z = 0 To UBound(aQueriesUnselected)   
oTabelle = oDoc.sheets.removeByName(aQueriesUnselected(z))
Next
rem-----------Ende
End sub

Hallo, ich habe mal wieder ein Problem,

ich habe einen Dialog mit einer ListBox, der hat 15 Einträge

[code]
Sub StandortlistenDialog
DialogLibraries.LoadLibrary("Standard")
oDialog = createUnoDialog(DialogLibraries.Standard.StandortlistenDialog)
oView = oDialog.getView()
oModel = oDialog.getModel()
oBut = odialog.getControl("ListBox1").getModel()
oDialog.execute()
Endsub
[/code]
Hier der Teil aus dem anderen Code der benötigt wird.
[code]
oAuswahl = odialog.getControl("ListBox1").getSelectedItems()
oAlleEintraege = odialog.getControl("ListBox1").getItems()
oTabelle = oDoc.sheets.removeByName(oNichtAusgewält)
[/code]

Ich Habe eine Vorlage mit mehreren Sheets. Es sollen aber nur die ausgewählten bleiben, die anderen sollen gelöscht werden.
Wie bekomme ich das (oNichtAusgewält) Array, in dem nur die Listeneinträge sind, die nicht Ausgewählt wurden.


Kann mir da wer helfen?

[b][color=#FF0000]*Edit[/color][/b]

So hier die Lösung des Problems. Es werden die beiden Arrays verglichen und ein neues erstellt.

[code]
Sub ListenVergleichen
rem-----------Anfang
Dim found
f = 0
For m = 0 To UBound(aAllQueries)
For t = 0 To UBound(aQueries)
If UCase(aAllQueries(m)) = UCase(aQueries(t)) Then
'match
found = false
exit for
Else
'no match
found = true
End If
Next

If found Then
ReDim Preserve aQueriesUnselected(f)
aQueriesUnselected(f) = aAllQueries(m)
f = f + 1
End If
Next

For z = 0 To UBound(aQueriesUnselected)
oTabelle = oDoc.sheets.removeByName(aQueriesUnselected(z))
Next
rem-----------Ende
End sub
[/code]