Array to listview?

[autoit]

unc _ditoimport()
$sText= FileRead(FileOpenDialog("Datei wählen","","All (*.*)"))
If @error Then $sText = ClipGet()

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

$aData = StringRegExp($sText,"(\S+)\s+(\S+)\s+(\S+)\s+(\S+\s+\S+)(?>.+)?",3)
If @error Then Exit MsgBox(0,"","No Match!")
_ArraySplit($aData,4)
_ArrayDisplay($aData)
For $i = 0 to Ubound($aData) - 1
GUICtrlCreateListViewItem($aData[$i], $hListView1)
Next
EndFunc

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

Func _ArraySplit(ByRef $aArray, $iCol)
Local $iUB = Ceiling(UBound($aArray) / $iCol)
If $iUB < 1 Then Return
Local $aRet[$iUB][$iCol], $iC, $iUB2 = UBound($aArray)
For $i = 0 To UBound($aArray) - 1 Step $iCol
For $j = 0 To $iCol - 1
If $i + $j >= $iUB2 Then ExitLoop
$aRet[$iC][$j] = $aArray[$i + $j]
Next
$iC += 1

Next
;GUICtrlCreateListViewItem($aArray[0], $hListView1)
$aArray = $aRet
EndFunc ;==>_ArraySplit

[/autoit]