Kann Fehler nicht finden...

[DrShrek]

... und ich weiß auch,
dass ich nicht immer schreiben sollte, was ich denke...

Gerade das aber macht es doch so interessant

[Deluxe0321]

konnte mich nicht beherschen

Code: Alles auswählen

NewList FileNames.s()
 
AddElement(FileNames())
 FileNames() = "C:\testdatei.txt"
 
Procedure OverWriteAndDelete(FileNames.s(),wdh.l)
 Protected Counter, b, a, FileSize
 If CountList(FileNames()) And wdh.l > 0
     ForEach FileNames()
      FileSize = FileSize(FileNames())
      If FileSize >= 1 : Counter + 1 ; Wenn du immer 2 Byte schreibst bringt eine Datei mit einem Byte nichts..
        Debug "Lösche Datei "+Str(Counter)+" von "+Str(CountList(FileNames()))+" ("+Str(FileSize)+") bytes..."
        If OpenFile(0, FileNames())
          For b = 0 To wdh Step 1
            For a = 0 To FileSize Step 2
              WriteWord(0, Random($FFFF))
              FlushFileBuffers(0)
            Next
            Debug b
            FlushFileBuffers(0)
            FileSeek(0,0)
          Next
          CloseFile(0)
          DeleteFile(FileNames())
        Else
          Debug  "ERROR: Es ist ein Fehler aufgetreten."
        EndIf
      Else
        Debug "Datei nicht gefunden!"
      EndIf
     Next
  Else
    Debug "Falsche Parameter!"   
  EndIf   
 EndProcedure
 
 OverWriteAndDelete(FileNames(),1000)

[DrNo]

Hm...Danke für den Code.
Allerdings wusste ich garnicht, dass es den Befehl OverWriteAndDelete gibt, sonst hätte ich dass ja viel einfacher machen können

Oder funktioniert OverWriteAndDelete anders als mein Prinzip? bzw. Wie sicher?

Ich werd den COde mal in multiselection umbauen (ist ja nur für eine Datei).

@ Kaeru Gaman:
Das mit den Gedanken kenn ich, aber wiegsagt, ich möchte ja eigentlic nur meinen alten löschcode des alten shredders in den neuen mit multiselection per NextSelectedFileName() einbauen und gerade dass hat nicht geklappt. Aber selbst der alte (wo alles noch mit Repeat...Until x = y statt For...Next ist), funktionierte nicht.
Auserdem musst du beachten, dass ich PureBasic jettz vieleicht ein knappes halbes Jahr kenne und du, wenn ich von deinem Anmeldedatum ausgehe schon mind. 4 Jahre...

[Deluxe0321]

@ DrNo
Oh oh.. ich glaube da muss einer noch eine Menge lernen...
1. Der Code ist für mehr als eine Datei ( AddElement(FileNames()) )
2. Das ist eine Procedure, weist du eigentlich was das ist? Sry wenn ich frage.
3. Das ist einfach dein Code funktionsfähig umgeschrieben. Daher nicht sicher, denn du weist ja nicht wo Windows gerade auf die Platte schreiben lässt.

Gruß Marv
PS: RTFM

[DrNo]

@ DrNo
Oh oh.. ich glaube da muss einer noch eine Menge lernen...

Wäre möglich...

1. Der Code ist für mehr als eine Datei ( AddElement(FileNames()) )

Das hab ich 10 mins nach dem post auch bemerkt dann...

2. Das ist eine Procedure, weist du eigentlich was das ist? Sry wenn ich frage.

Nein, nicht wirklich. rsbasic meinte sowas ist nicht zwingend notwendig. Du kannst es mir aber gerne erklären

PS: RTFM

RTFM ?
man lernt nie aus...


gruß DrNo

[Kaeru Gaman]

RTFM ?

= read the f**king manual = lies das verdammte handbuch

[DrNo]

English kann ich auch Danke für den Hinweis...
Französisch kann ich auch
Latein kann ich auch

Wie ist das jetzt mit OverWriteAndDelete() ?
Ist das sicherer wie meine Methode/das gleiche vom Prinzip her?
Steht nicht im f***ing manual!

//Ehm vergesst es was schwätz ich da für ein scheiss^^

[Deluxe0321]

Eine Procedure ist ein Programmteil, welcher unabhängig vom Hauptcode innerhalb des Programms ist und seine eigenen Parameter und haben kann. In PureBasic wird bei Prozeduren die Rekursion voll unterstützt, jede Prozedur kann sich auch selbst aufrufen. Die Variablen innerhalb der Prozedur erhalten bei jedem Aufruf der Prozedur standardmäßig den Wert 0 (null). Um auf Variablen des Hauptprogramms zugreifen zu können, müssen diese mit der Prozedur "geteilt" (shared) werden. Dies ist mit den Shared oder Global Schlüsselworten möglich (siehe auch die Protected und Static Schlüsselwörter).

Kurzum: Proceduren erleichtern dir die arbeit, da du diese nur einmal schreiben musst und dein Programm diese dann an deinen bestimmten Stellen aufruft. Was bedeutet das gleichzeitig? Die Übersicht in deinem Programm wird um einiges gesteigert.
Als bsp: (passt in deinen Code)

Code: Alles auswählen

If EventGadget() = 7
  OverWriteAndDelete(FileNames(),GetGadgetState(4))
EndIf 

Jetzt schau dir mal deinen Code auf der ersten Seite an.. Ziemlich entschlackt oder?
----

So, das zum Thema RTFM, wie es Kaeru schon erklärt hat
Arbeite dich mal durch die Tutorials; gibts ne Menge und da du ja Französisch, Englisch UND sogar Latein kannst sollte es garkein Thema sein etwas zu finden.

Gruß Marv