Delete first line off CSV File

[iCrypto]

hey,

im trying to get a script, which reads paths out of a txt, then opens them and deletes the first line.

The files are csv files, so it was pretty weird

Could anyone help me? I need to finish this in 3 hours, would be realllly nice!

 

#include <file.au3>
#RequireAdmin
$l = _FileCountLines(@DesktopDir & "\dateien.txt")
MsgBox(0,"",$l)
for $i = 1 to $l
$l2 = FileReadLine(@DesktopDir & "\dateien.txt",$i)
MsGBOx(0,"t",$l2)
$l3 = StringReplace($l2,".csv",".txt")
MsGBox(0,"t",$l3)
$ab = StringSplit($l2,"\")
$ub = Ubound($ab)
MsGbox(0,"",$ub)
$ub2 = $ub - "1"
$ub3 = StringReplace($ab[$ub2],".csv","")
MsgBox(0,"",$ub3)
FileDelete($l2)
Run(@ComSpec&'\c ren '& $l2 & ' " ' & $ub3 )
_FileWriteToLine($l3,"1","",1)
Run(@ComSpec&'\c ren '& $l3 & ' " ' & $l2 )
Next

 

[Melba23]

iCrypto,

This works for me:

#include <File.au3>

Local $aLines

$hFile = FileOpen("dateien.txt")

While 1

    $sPath = FileReadLine($hFile) ; This reads the next line on each pass
    If @error Then ExitLoop ; Stop when there are no more lines to read

    _FileReadToArray(@ScriptDir & "\" & $sPath, $aLines, $FRTA_NOCOUNT) ; Read file into an array

    _FileWriteFromArray(@ScriptDir & "\" & $sPath, $aLines, 1) ; Rewrite the file without the first line

WEnd

FileClose($hFile)

Please ask if you have any questions.

M23