GELÖST: SaveFileRequester Extension

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

GELÖST: SaveFileRequester Extension

Beitrag 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
Zuletzt geändert von marcelx am 20.06.2018 09:59, insgesamt 1-mal geändert.
Win-10, PB 5.31 (Windows - x86)
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: SaveFileRequester Extension

Beitrag von marcelx »

Code: Alles auswählen

Index = SelectedFilePattern()
Habe ich übersehen
Win-10, PB 5.31 (Windows - x86)
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: GELÖST: SaveFileRequester Extension

Beitrag 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
Hygge
Antworten