PureBoard

Verfasst: **04.07.2005 23:43**

Hallo zusammen,

ich habe wieder einmal ein kleines Problemchen :

If OpenWindow(0,0,0,800,600,#PB_Window_Systemmenu|#PB_Window_screencentered,"Frage Save File Requester")
EndIf                                             


StandardFile$="C:\Dokumente und Einstellungen\"    ;Peter\Eigene Dateien\PureBasic Ergebnisse\" 
                                                  

DateiName.s = StandardFile$ + "Bla Bla Bla" + ".txt"
Pattern$ = "Text (*.txt)|*.txt"
Pattern = 0    
File$ = SaveFileRequester("Bitte Datei zum Speichern auswählen", DateiName.s, Pattern$, Pattern)

;
;
; Wenn ich an dieser Stelle beim geöffneten SaveFileRequester auf "Abbrechen" drücke, 
;
; wird die Datei  "C:\Dokumente und Einstellungen\Bla Bla Bla.txt" 
;
; trotzdem gespeichert !!! ??? 
; 
; Wie kann ich den Abbruch "abfangen" und eine entsprechende "Behandlung" durchführen ? 
;
; Gibt der Save File Requester überhaupt "Werte" zurück ?
;
; Jetzt läuft das Ding bis zum Ende durch ! 
;
;

If OpenFile(0,DateiName) 

Ergebnis = IsFile(0)
   If Ergebnis <> 0
   ElseIf ErrorFileOperation
   EndIf 


WriteStringN("xxxxxxxxxxxxx")


CloseFile(0)
 
EndIf  
ErrorFileOperation: ; Hier muß später natürlich auch noch was rein. 
End

In der Hilfe und in den Beispielen habe ich dazu nichts gefunden.

Für Eure Hilfe schon mal vorab ein herzliches Dankeschön.

Gruß Peter

Verfasst: **04.07.2005 23:45**

In der Hilfe nichts gefunden?

PureBasic-Hilfe hat geschrieben: 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

Verfasst: **05.07.2005 00:15**

Hallo André,

ok, großes Schämen ist angesagt, wo gibt es die gelbe Binde ?

Aber irgendwie war ich auf dem falschen Trip und hatte

If File$ = ... erwartet.

Trotzdem Danke

und gute Nacht

Peter

PureBoard

Frage : Abbruch beim Save File Requester

Frage : Abbruch beim Save File Requester