Verfasst: 01.10.2008 23:21
Gerade das aber macht es doch so interessantKaeru Gaman hat geschrieben:... und ich weiß auch,
dass ich nicht immer schreiben sollte, was ich denke...
Seite 2 von 2
Verfasst: 02.10.2008 11:32
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)Verfasst: 02.10.2008 14:54
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...
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...
Verfasst: 02.10.2008 15:42
@ 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
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
Verfasst: 02.10.2008 15:50
Wäre möglich...Deluxe0321 hat geschrieben:@ DrNo
Oh oh.. ich glaube da muss einer noch eine Menge lernen...
Das hab ich 10 mins nach dem post auch bemerkt dann...Deluxe0321 hat geschrieben:1. Der Code ist für mehr als eine Datei ( AddElement(FileNames()) )
Nein, nicht wirklich. rsbasic meinte sowas ist nicht zwingend notwendig. Du kannst es mir aber gerne erklärenDeluxe0321 hat geschrieben: 2. Das ist eine Procedure, weist du eigentlich was das ist? Sry wenn ich frage.
RTFM ?Deluxe0321 hat geschrieben: PS: RTFM
man lernt nie aus...
gruß DrNo
Verfasst: 02.10.2008 15:57
DrNo hat geschrieben:RTFM ?
= read the f**king manual = lies das verdammte handbuch
Verfasst: 02.10.2008 16:25
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^^
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^^
Verfasst: 02.10.2008 18:30
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.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).
Als bsp: (passt in deinen Code)
Code: Alles auswählen
If EventGadget() = 7
OverWriteAndDelete(FileNames(),GetGadgetState(4))
EndIf
----
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