[GELÖST] Brauche Hilfe beim entbuggen

[Tompazi]

Ähh wo ist da bitte ein Fehler ?
Jedenfalls passiert im Fall 100 garnichts außer dem OpenFileRequester.
und wenn ich listname$ gleich Debugge kommt nicht mal das Debugger Fenster...

Code: Alles auswählen

          Case 100
           If ListName$ = OpenFileRequester("Wähle eine Liste", "", "All files|*.*", 0)
             If ListName$
              OpenFile(1,ListName$)
               While Eof(1) = 0
                Name$ = ReadString(1)
                a$ = GetFilePart(Name$)
                AddGadgetItem(0,1,a$ + Chr(10) +Name$) ;; soll in einem List Gadget hinzugefügt werden.
                count = count +1
               Wend 
              CloseFile(1)
            Else
           EndIf            
           Else
           EndIf

Ich kann einfach keinen Fehler finden

Tompazi

[STARGÅTE]

weil das doppelt ist und der syntax nicht ganz richtig

machs mal so:

Code: Alles auswählen

Case 100 
  ListName$ = OpenFileRequester("Wähle eine Liste", "", "All files|*.*", 0) 
  If ListName$ 
    OpenFile(1,ListName$) 
    While Eof(1) = 0 
      Name$ = ReadString(1) 
      a$ = GetFilePart(Name$) 
      AddGadgetItem(0,1,a$ + Chr(10) +Name$) ;; soll in einem List Gadget hinzugefügt werden. 
      count = count +1 
    Wend 
    CloseFile(1) 
  Else 
  EndIf            

[Tompazi]

Danke funktioniert jetzt

[edel]

Gleich kommt Kiffi

[Kiffi]

Gleich kommt Kiffi

wollte ich gestern Abend schon schreiben. Aber so langsam ist das ewige
daraufhinweisen ziemlich ermüdend.

Grüße ... Kiffi

[Bisonte]

Gleich kommt Kiffi

das hat doch tatsächlich keine 3 Sekunden gedauert, bis ich wusste, was du meinst

[STARGÅTE]

jaja ist ja gut :

Code: Alles auswählen

Case 100 
  ListName$ = OpenFileRequester("Wähle eine Liste", "", "All files|*.*", 0) 
  If ListName$ 
    If OpenFile(1,ListName$) 
      While Eof(1) = 0 
        Name$ = ReadString(1) 
        a$ = GetFilePart(Name$) 
        AddGadgetItem(0,1,a$ + Chr(10) +Name$) ;; soll in einem List Gadget hinzugefügt werden. 
        count = count +1 
      Wend 
      CloseFile(1)
    Else
      Debug "Fehler beim Dateiöffnen"
    EndIf 
  Else 
  EndIf            

und wo wir schon dabei sind sollte man sicherheitshalbe noch das weiterzählen überprüfen, vllt bleibt er ja irgendwann stehen (Overload):

Code: Alles auswählen

old_count = count
count = count + 1
If Not count > old_count
  Debug "Overload"
EndIf