SaveFileRequester()
Syntax
DateiName$ = SaveFileRequester(Titel$, StandardDatei$, Pattern$, PatternPosition)Beschreibung
Öffnet einen Standard-Requester zum Auswählen einer zu speichernden Datei. Der 'Title$' kann angegeben werden, um den standardmäßigen Titel zu ersetzen. Der 'StandardDatei$' ist nützlich, um den Requester mit dem richtigen Verzeichnis und dem richtigen Dateinamen zu initialisieren.
Der Pattern$ ist ein Standard-Filter, welcher nur die Anzeige von Dateien mit dieser oder jener Dateiendung erlaubt. Er muss in der folgenden Form angegeben werden: "Text-Dateien | *.txt | Musik-Dateien | *.mus;*.mod". Der Pattern arbeitet immer paarweise: Name (welcher wirklich im Filter erscheint) und Endung (z.B. *.txt). Mehrere für einen Typ mögliche Endungen können unter Benutzung des ; (Semikolon) angegeben werden.
Letztlich gibt die 'PatternPosition' an, welcher Pattern als Standard eingestellt sein soll. Mögliche Werte sind 0 bis zur Anzahl der Patterns. Sobald der Requester geschlossen wurde, kann SelectedFilePattern() benutzt werden, um den ausgewählten Pattern zu ermitteln.
Der zurückgegebene 'DateiName$' kann mit den folgenden Funktionen einfach in Datei-, Pfad- und Dateiendung-String zerlegt werden: GetFilePart(), GetPathPart() und GetExtensionPart().
Beispiel:StandardFile$ = "C:\autoexec.bat" ; anfänglichen Pfad + Dateiname festlegen ; Mit dem nächsten String werden die Pattern (mit "|" als Trennzeichen) für anzuzeigende ; Dateitypen festgelegt: ; Erster: "Text (*.txt)" als Name, ".txt" und ".bat" als erlaubte Dateiendungen ; Zweiter: "PureBasic (*.pb)" als Name, ".pb" al erlaubte Dateiendung ; Dritter: "Alle Dateien (*.*) als Name, "*.*" als erlaubte Dateiendung, gültig für alle Dateien Pattern$ = "Text (*.txt)|*.txt;*.bat|PureBasic (*.pb)|*.pb|Alle Dateien (*.*)|*.*" Pattern = 0 ; wir verwenden den ersten von drei möglichen Pattern als Standard File$ = SaveFileRequester("Bitte Datei zum Speichern auswählen", StandardFile$, Pattern$, Pattern) If File$ MessageRequester("Information", "Sie haben folgende Datei ausgewählt:"+Chr(10)+File$, 0) Else MessageRequester("Information", "Der Requester wurde abgebrochen.", 0) EndIf
Unterstützte OS
Alle