AUTOIT DRINGEND HILFE ZAHLE AUCH

Lalaschlumpf · 08/04/2016, 15:36

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

EngelEatos · 08/04/2016, 17:01

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.

°Incinerate · 08/04/2016, 17:08

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