Seite 1 von 1

GELÖST: SaveFileRequester Extension

Verfasst: 20.06.2018 09:56
von marcelx
Hallo,
es geht um den Fall wo keine Extension in der Dateiname angegeben wurde.
Beim wählen der Typ "RichText", sollte als ext "rtf" gesetzt werden und beim Auswahl von "Text" sollte "txt" gesetzt werden:
Wie kann ich das lösen?

Code: Alles auswählen

File.s = SaveFileRequester("Name", "", "RichText (*.rtf)|*.rtf|Text (*.txt)|*.txt", 0)
If File
  ext.s = GetExtensionPart(File)
  If ext = ""
    ext = "rtf"
    File+".rtf"
  EndIf
  If ext = "rtf"
    Debug "save rtf"
  Else
    Debug "save txt"
  EndIf
EndIf
Danke und Gruß
MarcelX

Re: SaveFileRequester Extension

Verfasst: 20.06.2018 09:58
von marcelx

Code: Alles auswählen

Index = SelectedFilePattern()
Habe ich übersehen

Re: GELÖST: SaveFileRequester Extension

Verfasst: 20.06.2018 10:01
von Kiffi
marcelx hat geschrieben:Beim wählen der Typ "RichText", sollte als ext "rtf" gesetzt werden und beim Auswahl von "Text" sollte "txt" gesetzt werden
schau Dir diesbezüglich mal SelectedFilePattern() an.

Grüße ... Peter