Speichern ,standart speichern Dialog , Filter

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Speichern ,standart speichern Dialog , Filter

Speichern mit Standart Speichern Dialog

von Frankvas » Fr, 22.10.2004 13:15

Nach einigen Experiimenten htte ich folgendes Programm erstellt .
Es scheint sein Zweck zu erfüllen .

sub speichern
dim ok ,datei
dim filter as string
'doc dec####################
doc=StarDesktop.CurrentComponent
DateiDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
dim Dialogtyp(0)
Dialogtyp(0)=com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
DateiDialog.initialize( DialogTyp())
DateiDialog.appendFilter( "SO/OOo Tabellendokument (*.sxc)", "*.sxc" )
DateiDialog.appendFilter( "Graphics Files (bmp, gif, jpg)", "*.bmp;*.gif;*.jpg" )
DateiDialog.appendFilter("Textdateien (txt)", "*.txt")
ok=DateiDialog.execute
if ok=1 then
datei = dateidialog.getFiles()
filter=dateidialog.CurrentFilter
msgbox filter
URL = datei(0)
msgbox url
dim fileproperties(0) as new com.sun.star.beans.PropertyValue
fileproperties(0).Name="Filtername"
fileproperties(0).Value=filter

doc.storeAsUrl(URL,fileproperties())


end if
end sub



gruß Frank

von Stephan » Sa, 16.10.2004 14:29

Wenn Du einzelne Dateitypen oder Gruppen von Dateitypen auflisten willst dann so:

Code: Alles auswählen

sub speichern 
DateiDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker") 
dim Dialogtyp(0) 
Dialogtyp(0)=com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
DateiDialog.initialize( DialogTyp())
DateiDialog.appendFilter( "Graphics Files (bmp, gif, jpg)", "*.bmp;*.gif;*.jpg" )
DateiDialog.appendFilter("Textdateien (txt)", "*.txt")
DateiDialog.execute 
end sub


Wenn Du alle Standard-Dateitypen willst die OO in der Situation vorgeben würde kannst Du das per makro aufzeichnen:

Code: Alles auswählen

sub mak1
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub
ob oder ob nicht gespeichert wurde kannst Du in der letzten Zeile als Rückgabe auch auslesen (BOOL), ich bin allerdings im Moment etwas überfragt falls Du im aufgeführten Fall weitere Rückgabewerte zur Verarbeitung benötigst, ich nehme an das Du die aus Array() auslesen kannst versucht habe ich es nicht.

Falls Du weiteres auslesen mußt hatte ich hier schon mal eine Code gepostet der das erläutert (speichern mußt Du dann aber gesondert, steht auch in dem Thread): viewtopic.php?t=1661#6286

Gruß
Stephan

Speichern ,standart speichern Dialog , Filter

von Frankvas » Fr, 15.10.2004 18:48

Ich möchte eine Tabelle üder den Standart Speichern Dialog speichern .
In dem Dialog werden aber keine Dateitypen angegeben . Wie muß ich den Dialog aufrufen um die Dateitypen auswählen zu können ?


sub speichern

DateiDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
dim Dialogtyp(0)
Dialogtyp(0)=com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
DateiDialog.initialize( DialogTyp())
DateiDialog.execute
end sub


gruß Frank

Nach oben