Leere Zeilen aus Text-Array löschen...

#include <Array.au3>
#include <File.au3>
#include <String.au3>

Dim $aSource

If _FileReadToArray("D:\Eigene Dateien\Register-1.reg", $aSource) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf

_ArrayDisplay($aSource, "before...")

For $i = $aSource[0] to 1 step -1
If $aSource[$i] = "" Then _ArrayDelete($aSource, $Pos)
Next

_ArrayDisplay($aSource, "after !")

So in der Art?

peethebee

Hi,

oder andersrum:

[autoit]

#include <Array.au3>
#include <File.au3>

[/autoit][autoit][/autoit][autoit]

Global $aSource
Global $path = "D:\Eigene Dateien\Register-1.reg"

[/autoit][autoit][/autoit][autoit]

If Not _FileReadToArray($path, $aSource) Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

_ArrayDisplay($aSource, "before...")
Global $tmp[1]

[/autoit][autoit][/autoit][autoit]

For $i = 1 To $aSource[0]
If $aSource[$i] <> "" Then _ArrayAdd($tmp, $aSource[$i])
Next
$tmp[0] = UBound($tmp)
_ArrayDisplay($tmp, "after !")

[/autoit]

So long,

Mega

Hi,

wenn es mehr nicht ist. :rofl_devil:

So long,

Mega