PureBoard

Verfasst: **18.10.2006 20:36**

@Kaeru

Sorry, aber was meinst Du damit?

Hab das jetzt nicht so richtig verstanden.

Verfasst: **18.10.2006 20:39**

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

Verfasst: **18.10.2006 20:42**

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.

Verfasst: **18.10.2006 20:45**

Vielen Dank Key Pusher

Verfasst: **18.10.2006 21:32**

@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

Verfasst: **19.10.2006 08:38**

>> Du hast noch einen Fehler bei CreateFile().

fight for the If-Abfragen

Verfasst: **19.10.2006 16:32**

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?

Verfasst: **19.10.2006 17:04**

> 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

Verfasst: **19.10.2006 17:09**

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

Verfasst: **19.10.2006 17:13**

Danke für die Erklärung.

PureBoard

Speichern unter !!!