Automatically append to beginning of file

[josheee12]

Hi guys. I have not worked with text files in a while, so any assistance is appreciated. How can I add 3 lines of text to the beginning of all files in a directory that end in .php?

[enaiman]

FileFindFirstFile

For ...

FileFindNextFile

FileRead

... append the 3 lines to the content

... create backup of original file

... empty original file content (FileOpen flag 2)

FileWrite (new content)

FileClose

Next

[Hawkwing]

This should work

$filefind = FileFindFirstFile(@ScriptDir & "\*.php")

While 1
    $file = FileFindNextFile($filefind)
    If @error = 1 Then ExitLoop
    $previoustext = FileRead(@ScriptDir & "\" & $file)
    $fileopen = FileOpen(@ScriptDir & "\" & $file, 2)
    FileWrite($fileopen, "your 1st line" & @CRLF & "your 2nd line" & @CRLF & "your 3rd line" & @CRLF & $previoustext)
    FileClose($fileopen)
WEnd

[goldenix]

there are also _FileReadToArray & _FileWriteFromArray functions. they are pretty useful, but if you have tons of files & looking for a little bigger speed go with the sample above. Cuz arrays are wery slow.

It takes times to write the whole file tho. So if you have 1 million files it will still be slow. In this case, there are other ways to do it, like hex edit the file. im not sure how much speed you will gain tho.

[PsaltyDS]

For future reference, the operation is "prepend" or "prefix", not "append".

I'm not trying to be the grammar-Nazi, it's just that some languages have append() and prepend() operations or operator symbols, and it would be good to call for the right one.