Speichern unter !!!

[sebsch80]

@Kaeru

Sorry, aber was meinst Du damit?

Hab das jetzt nicht so richtig verstanden.

[sebsch80]

Verdammt,

irgendwas stimmt immernoch nicht.

Ich hab das jetzt alles so eingegeben und das Programm läuft auch ohne Fehlermeldung.
Aber er speichert mir die Datei nicht ab.

Hab das nur nicht gleich gemerkt weil ich wieder über die test datei drüber gespeichert hab.

Wo könnte mein Fehler liegen???

Code: Alles auswählen

If OpenWindow(0,100,100,610,130,"Fussball-Tipp",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
 If CreateToolBar(0, WindowID(0))
    ToolBarStandardButton(0, #PB_ToolBarIcon_New)
    ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
    ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
 EndIf
StringGadget (0,5,28,60,14,"Spiel",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (1,70,28,50,14,"1",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (2,130,28,50,14,"2",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (3,190,28,50,14,"3",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (4,250,28,50,14,"4",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (5,310,28,50,14,"5",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (6,370,28,50,14,"6",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (7,430,28,50,14,"7",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (8,490,28,50,14,"8",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (9,550,28,50,14,"9",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
For Z1 = 0 To 9
SetGadgetColor (Z1,#PB_Gadget_BackColor,$000000)
SetGadgetColor (Z1,#PB_Gadget_FrontColor,$0000FF)
Next
StringGadget (10,5,47,60,16,"Ergebnisse",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (11,70,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (12,130,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (13,190,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (14,250,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (15,310,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (16,370,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (17,430,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (18,490,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (19,550,45,50,20,":",#PB_Text_Center | #PB_String_Numeric)
For Z1 = 10 To 19
SetGadgetColor (Z1,#PB_Gadget_BackColor,$0000FF)
SetGadgetColor (Z1,#PB_Gadget_FrontColor,$33FFFF)
Next
StringGadget (20,5,67,60,16,"Tipp",#PB_String_BorderLess|#PB_Text_Center|#PB_String_ReadOnly)
StringGadget (21,70,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (22,130,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (23,190,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (24,250,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (25,310,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (26,370,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (27,430,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (28,490,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
StringGadget (29,550,65,50,20,":",#PB_Text_Center | #PB_String_Numeric)
For Z1 = 20 To 29
SetGadgetColor (Z1,#PB_Gadget_BackColor,$00FFFF)
SetGadgetColor (Z1,#PB_Gadget_FrontColor,$000000)
Next
ButtonGadget (30,200,95,70,30,"Vergleiche",#PB_Text_Center)
EndIf
Repeat                                                                
 Event = WaitWindowEvent() 
 If Event = #PB_Event_CloseWindow
 Quit = 1
 EndIf
 If Event = #PB_Event_Menu
  If EventMenu()=2
    StandardDatei$ = "D:\Programme\PureBasic\test.txt"
    Pattern$ = "Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
    PatternPosition = 0
    DateiName$ = SaveFileRequester("Speichern unter...", StandardDatei$, Pattern$, PatternPosition) 
    CreateFile (0,"DateiName$")
    For E=11 To 19 
      For T=21 To 29
            WriteStringN(0,GetGadgetText(E))
             WriteStringN(0,GetGadgetText(T))
         Next T
       Next E 
     CloseFile(0)
     Else 
      Debug "..weil die datei vermutlich nicht erstell werden konnte" 
   EndIf 
         EndIf                                   ; }Event Funktion
If Event = #PB_Event_Gadget And EventGadget() = 30      
EndIf            
Until Quit = 1

[KeyPusher]

Code: Alles auswählen

CreateFile (0,"DateiName$")

sollte wohl

Code: Alles auswählen

CreateFile (0,DateiName$)

heissen. sonst versuchst du einen datei mit dem namen DateiName$ anzulegen und nicht mit dem was die variable DateiName$ enthält.

[sebsch80]

Vielen Dank Key Pusher

[Kiffi]

@sebsch80:

Du hast noch einen Fehler bei CreateFile().

so sollte es aussehen:

Code: Alles auswählen

If CreateFile (0,"DateiName$")
  [...]
Else 
  Debug "..weil die datei vermutlich nicht erstell werden konnte" 
EndIf

Grüße ... Kiffi

[#NULL]

>> Du hast noch einen Fehler bei CreateFile(). fight for the If-Abfragen

[sebsch80]

Danke Kiffi

und warum ist das so wichtig?

Da kann doch nichts passieren, oder?
Geht nur darum das man schneller den Fehler lokalisieren kann, wenn mal was schief geht, oder?

[Kiffi]

> und warum ist das so wichtig?

wenn CreateFile() fehlschlägt (weil Du beispielsweise auf ein
schreibgeschütztes Medium schreiben willst), dann kannst Du keine Daten
speichern. Das kann im Extremfall auch dazu führen, dass Deine App
abstürzt.

Grüße ... Peter

[#NULL]

..oder festplatte voll
..oder ungültiger dateiname (z.b. durch nicht erlaubte sonderzeichen)
..oder ordner, bzw pfad existiert nicht
..

[sebsch80]

Danke für die Erklärung.