also ich habe ein txt file in dem ich 2 zeilen löschen will ich habe es mit stringreplace versucht aber der hat daruas
#######
test123
123test
#######
das gemacht
#######
#######
code:
[autoit]
$text = StringReplace($file, "test123", "")
FileWrite(@TempDir & "\lol.txt", $text)
wie kann ich machen des er die 2 zeilen löscht?
Edit GtaSpider: Bitte immer auf gelöst stellen, wenn es gelöst ist (1. Beitrag editieren und auf Gelöst umstellen)
Du hast nur den Text durch Leerstring ersetzt - die Zeile wird aber beendet mit einem @CRLF. Das mußt du auch entfernen, wenn die Zeile komplett verschwinden soll.
thx habs hinbekommen
wie denn?
$sFile = "test.txt"
$hFile = FileOpen ( $sFile, 0)
$iLine = 1
$sContent = ""
While 1
$sLine = FileReadLine ( $hFile )
If @error <> 0 Then ExitLoop
If $iLine <> 2 Then ;Die Zeile die ausgelassen werden soll, hier könnt auch ein Regulärer Ausdruck stehen usw.
$sContent &= $sLine & @CRLF
EndIf
$iLine += 1
WEnd
FileClose ($hFile)
$hFile = FileOpen ($sFile, 2)
FileWrite ($hFile, $sContent)
FileClose ($hFile)
Was haltet ihr von dieser Lösung ?
_ZeileLoeschenTxt("in.txt", 5, "out.txt")
Func _ZeileLoeschenTxt($InName, $zeilennr, $OutName = "")
$in = FileRead($InName)
If $OutName = "" Then $OutName = $InName
FileWrite($OutName, StringLeft($in, StringInStr($in, @CRLF, 1, $zeilennr - 1) + 2) & StringMid($in, StringInStr($in, @CRLF, 1, $zeilennr) + 3))
EndFunc
Moin,
ich habe mir das mal "angeckukt" 
(sorry) habe es auch gleich mal als Beispiel gespeichert! Man kann ja nie wissen.
Das es funktioniert, davon gehe ich einfach mal aus 
MfG
Der_Doc
