Speicherformatproblem
Verfasst: Mi, 06.07.2011 11:19
Hallo,
Im unterern Code seht Ihr wie ich die Daten speichere.Die Datei soll nicht als ODF gespeichert werden,da dann beim Öffnen,auch andere ODF-Dateien geöffnet werden können und diese mir dann meine Formatierung des Calc-Programms durcheinander bringen.Also hab ich mir die Endung ".wsb" ausgedacht.
Dann funktioniert auch super. Aber wenn diese Datei schon existiert zb. Test.wsb und ich will die neu unter diesen Namen speichern muß ich den Dateinamen "Test" per Hand im Filepicker eingeben.Würde ich diesen mit der Maus auswählen,speichert er mit Datei mit den Namen "Test.wsb.wsb".
Wie kann man dieses Problem lösen??
Gruß Hansi
Im unterern Code seht Ihr wie ich die Daten speichere.Die Datei soll nicht als ODF gespeichert werden,da dann beim Öffnen,auch andere ODF-Dateien geöffnet werden können und diese mir dann meine Formatierung des Calc-Programms durcheinander bringen.Also hab ich mir die Endung ".wsb" ausgedacht.
Dann funktioniert auch super. Aber wenn diese Datei schon existiert zb. Test.wsb und ich will die neu unter diesen Namen speichern muß ich den Dateinamen "Test" per Hand im Filepicker eingeben.Würde ich diesen mit der Maus auswählen,speichert er mit Datei mit den Namen "Test.wsb.wsb".
Wie kann man dieses Problem lösen??
Gruß Hansi
Code: Alles auswählen
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.Files(0)+".wsb"
oDoc.storeasURL(mDatei,dummy())
else
odoc.close(true)
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 3
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
beep
exit sub
end if