AUTOIT DRINGEND HILFE ZAHLE AUCH

08/04/2016 15:36 Lalaschlumpf#1

Hallo,
ich hab ein Script, was eine Datei in eine txt umwandeln soll, die erste Zeile l�schen und wieder zum alten Format zur�ckkehren soll

Code:

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

Kann mir bitte irgendjemand helfen :(

08/04/2016 17:01 EngelEatos#2

Was genau funktioniert denn nicht? Gibt es eine Fehlermeldung?
Wie schaut die Dateien.txt aus?

Ein paar mehr Informationen w�ren gut, wenn man dir helfen soll.

08/04/2016 17:08 �Incinerate#3

Hiermit ist die 1. Zeile einfach nur leer.

Code:

#include <File.au3>
$path = @DesktopDir & "\dateien.txt" 
_ReplaceStringInFile($path, FileReadLine($filename, 1), "")

Ich versteh nur nicht ganz wieso du die Datei umbenennen und wieder zur�ckbenennen willst ...

Edit:
Dashier l�scht die komplette 1. Zeile sodass jede Zeile eine nach oben rutscht.

Code:

#include <File.au3>

$path = @DesktopDir & "\dateien.csv"

Dim $array
_FileReadToArray($path, $array)
FileMove($path, $path & ".old")

For $i = 2 To UBound($array)
	FileWrite($path, $array[$i] & @CRLF)
Next