OpenOffice.info

Verfasst: **Mo, 20.06.2011 12:26**

Hallo,

also einen FilePicker zum öffnen einer Datei hab ich.Der funktioniert auch super.Schönes Ding.Wie lautet den aber der Code zu Speichern einer Datei ?

Gruß Hansi

Verfasst: **Mo, 20.06.2011 12:46**

Aloha

Siehe dazu StarBasic FAQ: Wie kann man Dokumente speichern?

Verfasst: **Di, 21.06.2011 15:14**

Hi,

mmm,hab mich bestimmt nicht richtig ausgedrückt,ich meinte den Code zum Speichern auf Basis des Filepicker.

Verfasst: **Di, 21.06.2011 17:24**

Aloha

Hansi hat geschrieben:ich meinte den Code zum Speichern auf Basis des Filepicker.

Naja, was den Filepicker angeht, funktioniert das genauso wie das Öffnen von Dateien, der Filepicker liefert Dir ja nur den Pfad zurück.

Was Dir noch fehlen dürfte, ist die Möglichkeit, komplett neue Dateien anzulegen, das machst Du mit der 2. Zeile in diesem Codebeispel.

Code: Alles auswählen

oFilePicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
oFilePicker.Initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE))
oFilePicker.appendFilter("Alle Dateien","*.*")
oFilePicker.setDisplayDirectory("C:")
nResult = oFilePicker.execute
If nResult <> 0 Then MsgBox oFilePicker.Files(0)

Verfasst: **Do, 30.06.2011 11:05**

Hallo,

ich danke euch erst mal für die Hilfe.Ich habmich nach etwas längere Zeit jetzt wiedr mal damit beschäftigt.Der untenstehende Code funktioniert so erst mal,bringt mir aber wenn es ums speichern geht ne Fehlermeldung.

Wist Ihr warum ???

Code: Alles auswählen

sub speichern4 

    dim dummy()
    odoc = thiscomponent
SFileDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker") 
SFileDialog.Initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE))
SFileDialog.appendFilter("Windberechnung (*.wsb)", "*.wsb")
SFileDialog.setDisplayDirectory("file:///C:/Dokumente und Einstellungen/Rene/Eigene Dateien/Winddaten/" )
SFileDialog.setTitle("Daten speichern")

iAccept = SFileDialog.Execute()
If iAccept = 1 Then
   mDatei = SFileDialog.getFiles() + SFileDialog.Appendfilter()
   oDoc.storeasURL(mDatei,dymmy())
  else
   exit sub  
end if

        
end sub

Verfasst: **Do, 30.06.2011 11:30**

Aloha

Hansi hat geschrieben:Wist Ihr warum ???

Diese Zeile z.B.

Code: Alles auswählen

mDatei = SFileDialog.getFiles() + SFileDialog.Appendfilter()

macht von vorne bis hinten keinen Sinn.

Code: Alles auswählen

SFileDialog.getFiles()

gibt Dir ein Array aller selektierten Dateinamen zurück.
Wenn Du keine Mehrfachselektion zulässt, kriegst Du den gerade eben ausgewählten Dateinamen per

Code: Alles auswählen

SFileDialog.Files(0)

Code: Alles auswählen

SFileDialog.Appendfilter()

Du versuchst an dieser Stelle, dem FilePicker noch einen Filter mitzugeben... nachdem er schon ausgeführt und geschlossen wurde (abgesehen davon, dass der anzuhängende Filter als Parameter fehlt).

Hansi hat geschrieben:oDoc.storeasURL(mDatei,dymmy())

Du hattest Dein Array als "dummy" deklariert, hier verwendest Du "dymmy".

OpenOffice.info

Filepicker

Filepicker

Re: Filepicker

Re: Filepicker

Re: Filepicker

Re: Filepicker

Re: Filepicker