File Management

[anixon]

What is the simple solution for clearing out the contents of a *.txt file rather than deleting and then recreating it? The solution has just not jumped out of Help

CODE

;//Empty the Batch File [Delete and then Recreate]

FileClose($sBatchFile)

ProcessWaitClose($sBatchFile, 30)

FileSetAttrib($BatchFile, "-RS")

FileDelete($BatchFile)

;//New Batch File

If Not FileExists($BatchFile) Then

$sBatchFile = FileOpen($BatchFile, 9)

FileClose($sBatchFile)

ProcessWaitClose($sBatchFile, 30)

FileSetAttrib($BatchFile, "+RS")

EndIf

Assistance is always appreciated. Ant..

[AdmiralAlkex]

Do an empty FileWrite()??

[anixon]

Do an empty FileWrite()??

This does not work

CODE

FileSetAttrib($BatchFile, "-RS")

$SmsFile = FileOpen($BatchFile, 9)

FileWrite()

FileClose($SmsFile)

ProcessWaitClose($SmsFile, 30)

FileSetAttrib($BatchFile, "+RS")

and neither does this

CODE

FileSetAttrib($BatchFile, "-RS")

$SmsFile = FileOpen($BatchFile, 9)

FileWrite($batchfile,"")

FileClose($SmsFile)

ProcessWaitClose($SmsFile, 30)

FileSetAttrib($BatchFile, "+RS")

Why is it so??? Ant..

Edited February 20, 2009 by anixon

[leos]

This does not work

CODE

FileSetAttrib($BatchFile, "-RS")

$SmsFile = FileOpen($BatchFile, 9)

FileWrite()

FileClose($SmsFile)

ProcessWaitClose($SmsFile, 30)

FileSetAttrib($BatchFile, "+RS")

Try with opening the file in mode 2

...

$SmsFile = FileOpen($BatchFile, 2)

...

Are you sure you need ProcessWaitClose to reset the attributes?

[BrettF]

Step 1.

RTFM.

FileWrite does not accept no parameters. Set the file to the file/opened handle and the text to be "".

Cheers,

Brett

[jvanegmond]

Func _FileClear($pFile)
    $hFile = FileOpen($pFile, 2)
    If @error Then Return SetError(@error,0,0)
    FileClose($hFile)
    Return 1
EndFunc

[ResNullius]

Func _FileClear($pFile)
    $hFile = FileOpen($pFile, 2)
    If @error Then Return SetError(@error,0,0)
    FileClose($hFile)
    Return 1
EndFunc

Manadar! You should know better: FileOpen doesn't set an error on failure, just returns -1.

Func _FileClear($pFile)
    $hFile = FileOpen($pFile, 2)
    If $hfile = -1  Then Return SetError($hfile,0,0)
    FileClose($hFile)
    Return 1
EndFunc

[ReaImDown]

Manadar! You should know better: FileOpen doesn't set an error on failure, just returns -1.

Func _FileClear($pFile)
    $hFile = FileOpen($pFile, 2)
    If $hfile = -1  Then Return SetError($hfile,0,0)
    FileClose($hFile)
    Return 1
EndFunc

same sort of question, but, how would you go about erasing 1 letter (backspace) in a text document

[AdmiralAlkex]

same sort of question, but, how would you go about erasing 1 letter (backspace) in a text document

Read in the file, use the string* funcs to edit your text and then write it back.

Edit: Backspace is a letter?

Edit2: Apparently it is, did't know that

Edited February 20, 2009 by AdmiralAlkex

[ReaImDown]

Read in the file, use the string* funcs to edit your text and then write it back.

Edit: Backspace is a letter?

Edit2: Apparently it is, did't know that

sorry, by using backspace

[jvanegmond]

Manadar! You should know better: FileOpen doesn't set an error on failure, just returns -1.

A minor trivial problem.

Ofcourse, my logic does not apply here since the OP had bad logic to begin with.

[jvanegmond]

Edit: Backspace is a letter?

Only in old implementations of programs. It has become redundant today, and many applications will not handle it.

[ReaImDown]

Only in old implementations of programs. It has become redundant today, and many applications will not handle it.

StringTrimRight() would work, but it would take too long to process...anything alittle faster?

[jvanegmond]

StringTrimRight() would work, but it would take too long to process...anything alittle faster?

I think any solution that works goes beyond the scope of AutoIt. Consider using another language to do this task for you.

[BrettF]

This does work, but if I use a larger text file (6.5MB) it still does it with reasonable speed...

Global $diff, $diff2
$file = FileOpenDialog ("File", @MyDocumentsDir, "Text Documents (*.txt)")

$ret = _FileClear($file)
MsgBox (0, "", $ret & @CRLF & "Time 1 = " & $diff & "ms" & @CRLF & "Time 2 = " & $diff2 & "ms")

Func _FileClear($pFile)
    $timer = TimerInit ()
    $sRead = FileRead ($pFile)
    $diff = TimerDiff ($timer)
    $timer = TimerInit ()
    $sTemp = StringTrimRight ($sRead, 1)
    $diff2 = TimerDiff ($timer)
    $hFile = FileOpen($pFile, 2)
    If $hfile = -1  Then Return SetError($hfile,0,0)
    FileWrite ($hfile, $sTemp)
    FileClose($hFile)
    Return 1
EndFunc

Cheers,

Brett

[seandisanti]

I think any solution that works goes beyond the scope of AutoIt. Consider using another language to do this task for you.

There are actually a few ways to remove from the end of a file on the forum, use the search function to find them. As far as the view that something is beyond the scope of AutoIt, I think that the scope of a language is only as broad as the coder is creative.

[jvanegmond]

There are actually a few ways to remove from the end of a file on the forum, use the search function to find them. As far as the view that something is beyond the scope of AutoIt, I think that the scope of a language is only as broad as the coder is creative.

You are entitled to your own opinion. Enjoy writing kernel drivers in AutoIt.

[seandisanti]

You are entitled to your own opinion. Enjoy writing kernel drivers in AutoIt.

Touche, but the two scenarios are hardly comparable.

[jvanegmond]

Touche, but the two scenarios are hardly comparable.

You're probably right. File operations can not be sped up much by choosing another language. This isn't my question though, so I'm going to crawl back under my programmer rock.

[seandisanti]

You're probably right. File operations can not be sped up much by choosing another language. This isn't my question though, so I'm going to crawl back under my programmer rock.

For the record i didn't mean to come off as condescending as i did, it's just a bit of a peeve of mine when people blame the language for their inability to solve a problem.