How to delete contents of a text file? :S

[darkmaster071]

Hi, im wondering if there is a function or any way to delete text content of a text file (.log file) without deleting the actual file. I have been searching through the help file and the forums but ive come across nothing usefull. Help much appreciated. Thanks.

Edited July 31, 2010 by darkmaster071

[smashly]

Hi,

$hFO = FileOpen("test.log", 2)
FileWrite($hFO, "")
FileClose($hFO)

Cheers

[ProgAndy]

Just open the file in overwrite mode and close it without writing anything to it

$hFile = FileOpen($sFile, 2)

FileClose($hFile)

[darkmaster071]

Thanks, didnt think of that.

[MvGulik]

Just tinkering around a bit.

test()
If @error Then Exit @error

Func test()
    Local $sFilespec = @ScriptDir & '\' & 'TestFile.tmp'
    If FileExists($sFilespec) And Not FileDelete($sFilespec) Then Return SetError(1)
    If Not FileWrite($sFilespec, 'abcdef') Then Return SetError(2)
    If Not _ZeroWipe_FileContent($sFilespec) Then Return SetError(@error)
    If Not _Zero_FileSize($sFilespec) Then Return SetError(@error)
EndFunc

;; http://www.autoitscript.com/forum/index.php?showtopic=117880&view=findpost&p=820821
Func _ZeroWipe_FileContent($sFilespec)
    Local $iFileSize = FileGetSize($sFilespec)
    If @error Or Not $iFileSize Then Return SetError(11, 0, 0)
    Local $hFile = FileOpen($sFilespec, 2 + 16)
    If $hFile = -1 Or $hFile < 1 Then Return SetError(12, 0, 0)
    If Not FileSetPos($hFile, $iFileSize - 1, 0) Then Return SetError(13, 0, 0)
    If Not FileWrite($hFile, Binary(Chr(0))) Then Return SetError(14, 0, 0)
    If Not FileClose($hFile) Then Return SetError(15, 0, 0)
    Return 1
;~  If Not FileSetPos($hFile, (Ceiling(($iFileSize) / 512) * 512)-1, 0) Then Return SetError(3,0,0) ;; MFT note: This is only good for files that are not stored in MFT system file.
EndFunc
Func _Zero_FileSize($sFilespec)
    Local $hFile = FileOpen($sFilespec, 2)
    If $hFile = -1 Or $hFile < 1 Then Return SetError(22, 0, 0)
    If Not FileClose($hFile) Then Return SetError(25, 0, 0)
    Return 1
EndFunc

+ MFT note.

Edited July 31, 2010 by MvGulik

[ProgAndy]

_ZeroWipe_FileContent wont work i think.

Edit: OK. Did not understand it

Edited July 31, 2010 by ProgAndy

[MvGulik]

Why do you think that ?

Last time I checked (before posting) it was working fine.

... yep, still working correct on this side.

Edited July 31, 2010 by MvGulik

[ProgAndy]

OK it works, but why would you need that?

[MvGulik]

Don't know.

Edited August 3, 2010 by MvGulik