Habe eine Textdatei, in der in jeder Zeile eine URL gespeichert wird.
Durch Laden soll jede einzelne Zeile der URL in das Edit-Feld geladen werden, um dann weiterverabeitet zu werden.
Leider habe ich das Problem, dass nach einem Ladevorgang immer ein Enter offenbar zu viel ist und der Inhalt des Editfelds so aussieht:
[Blockierte Grafik: http://www.abload.de/thumb/27-06-201120-13-579iwo.png]
Ich habe bereits Varianten mit @CR, @LF und @CRLF probiert, allerdings ohne Erfolg.
Beim Speichern funktioniert alles problemlos.
Case $Laden
[/autoit][autoit][/autoit][autoit]$file = FileOpen($datei, 0)
; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
; Zeilen des Textes einlesen bis EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$summe = $summe & $line &@CRLF
WEnd
FileClose($file)
Case $Speichern
$file = FileOpen($datei, 2)
; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geschrieben werden.")
Exit
EndIf
$text = GUICtrlRead($Edit1)
$i = 1
While $i < UBound($neu, 1) - 1
$neu = StringSplit($text, @LF)
If $neu[0] = 1 Then
Else
FileWriteLine($datei, $neu[$i] & @CRLF)
$i += 1
EndIf
WEnd
FileClose($file)
MsgBox(0, "Info", "Gespeichert")
;Msgbox(0,"Übersicht",$summe)
;GuiCtrlSetData($Edit1,$summe)