Отображение в GUICtrlCreateListView данных из txt\ini файле

#include <GUIConstants.au3>
GUICreate("",220,250, 100,200,-1)
$listview = GUICtrlCreateListView ("Данные                                                ",1,1,200,242);,$LVS_SORTDESCENDING)
GUISetState()
Do
  $msg = GUIGetMsg ()
Until $msg = $GUI_EVENT_CLOSE

#include <GUIConstants.au3>
$sText = ""
For $i = 1 To 4
	$sText &= FileReadLine("1.txt", $i) & "|"
Next

GUICreate("", 280, 250, -1, -1)
$listview = GUICtrlCreateListView("1 Данные|2 Данные|3 Данные|4 Данные", 1, 1, 300, 242)
$item1 = GUICtrlCreateListViewItem($sText, $listview)
GUISetState()
Do
	$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

; НАЧАЛО

 #Include <File.au3>

 Dim $ARRAY

 $ADDR="config.txt"

 _FileReadToArray($ADDR,$ARRAY) ; 0-ой элемент массива содержит количество строк

 MsgBox(0,"",$ARRAY[5]) ; Выводим 5-ую строку

; КОНЕЦ

$ADDR=@ScriptDir&"\text.txt"
$FILE=FileOpen($ADDR,0) ; Режим чтения
$TEXT=FileRead($FILE)
FileClose($FILE)
$TEXT=StringReplace($TEXT,@CRLF,"|")
For $i = 1 To 3
    $TEXT &= FileReadLine("text.txt", $i)
Next

$aMacciv = StringSplit($fileini, "|")
For $i = 1 to $aMacciv[0]
   $aSubMacciv = StringSplit($aMacciv[$i ], ",")
Next

В итоге $aMacciv[1] содержит A,B
$aSubMacciv[1]=A
$aSubMacciv[2]=B

#include <GUIConstants.au3>
 #Include <File.au3>
  Dim $ARRAY
   $ADDR=$sText
$sText = ""
For $i = 2 To 4
    $sText &= FileReadLine("1.txt", $i) & "|"
Next
 _FileReadToArray($ADDR,$ARRAY)
GUICreate("", 280, 250, -1, -1)
$listview = GUICtrlCreateListView("1 Данные|2 Данные|3 Данные|4 Данные", 1, 1, 300, 242)
$item1 = GUICtrlCreateListViewItem($sText, $listview)
GUISetState()
 MsgBox(0,"",$ARRAY[5]) ; Выводим 5-ую строку
Do
    $msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

$aSubMacciv[1]=A
$aSubMacciv[2]=B

;  вот оно 19.04.2010
;#NoTrayIcon ;скрыть в системной панели индикатор AutoIt
Global $Ini = @ScriptDir&'\Data.txt' ; путь к Data.txt

;Проверка существования Data.txt и создание при его отсутствии
$answer = ""
If Not FileExists($Ini) Then $answer = MsgBox(4, "Выгодное предложение", "Хотите создать необходимый Data.txt"&@CRLF&"для хранения данных?")
If $answer = "6" Then
$iniopen = FileOpen($Ini,1)
FileWrite($iniopen,  _
'1вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'2вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'3вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'4вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'5вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'6вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'7вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'8вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'9вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'0вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'13вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'32вапыа|dsfgsd|wert|45346345|ff' & @CRLF & _
'45вапыа|dsfgsd|wert|45346345|ff' )
FileClose($iniopen)
EndIf

; открываем файл, читаем его
$file = FileOpen($Ini, 0)
$filetext = FileRead($file)
FileClose($file)

;кусок кода из UDF File.au3 для разделения образца построчно в массив
	If StringInStr($filetext, @LF) Then
		$aFiletext = StringSplit(StringStripCR($filetext), @LF)
	ElseIf StringInStr($filetext, @CR) Then ;; @LF does not exist so split on the @CR
		$aFiletext = StringSplit($filetext, @CR)
	Else ;; unable to split the file
		If StringLen($filetext) Then
			Dim $aFiletext[2] = [1, $filetext]
		Else
			MsgBox(0, "Сообщение", "нет данных")
			Exit
		EndIf
	EndIf
; конец куска UDF File.au3

; теперь все переменные в основном будут обрабатываться в цикле и поэтому сохраним размерность массива в короткую переменную
$n=UBound($aFiletext) - 1

GUICreate("", 480, 350, -1, -1)
$listview = GUICtrlCreateListView("1 Данные|2 Данные|3 Данные|4 Данные|5 Данные", 1, 1, 480, 350)

For $i = 1 to $n ; создаём переменные в цикле
	Assign('item' & $i, GUICtrlCreateListViewItem($aFiletext[$i], $listview)) ; создаём переменные, итемы
	;Assign('aLine_'&$i, StringSplit($aFiletext[$i], "|")) ; создаём массивы, где каждое слово будет иметь переменную.
	$aLineItem = StringSplit($aFiletext[$i], "|")
	For $b = 1 to $aLineItem[0]
		Assign('aLineItem_'&$i&'_' & $b, $aLineItem[$b])
	Next
Next

GUISetState()
For $i = 1 to $n ; попробуем запарить мессагами
	MsgBox(0,"вот оно", Eval('aLineItem_'&$i&'_1')) ; вот один элемент массива
Next
 
Do
    $msg = GUIGetMsg()
Until $msg = -3 ; такой вот выход из скрипта