Создание на основе данных, получаемых из каждой строки текстового файла, соответствующего массива

#include <Array.au3>
#include <FileConstants.au3>
#include <StringConstants.au3>
 
; Объявляем пустой массив
Dim $MyMas[0]
 
; Вызов функции, имя файла и столбец
$MyMas = MyReadFile("list.txt",3);
 
MsgBox(4096,"Заголовок","Запись номер 1: " & $MyMas[1]);
 
; Проверяем что получился массив
if VarGetType($MyMas) == "Array" Then
   ; Красиво вывести массив
   _ArrayDisplay($MyMas);
EndIf
 
; Объявление функции
Func MyReadFile($file,$col)
; Объявляем пустой массив
Local $Array[0];
; Открываем файл на чтение
Local $hFile = FileOpen($file,$FO_READ);
; Проверяем открылся ли файл, иначе выход из функции
if $hFile = -1 Then
   MsgBox(4096,"Error","Файла нет");
   Return False;
EndIf
; Прочитать одну строку из файла
Local $line = FileReadLine($hFile);
 
; Цикл-перебор всех строк, работает пока есть строки
While $line
 
   ; Получить значение между второй и третьей запятой
   ;Local $aNumbers = StringRegExp($line,'.*?,.*?,(.+?),',1);
   Local $aNumbers = StringSplit($line,',');
 
   ; Если нет нужного столбца то пропустить итерацию
   if UBound($aNumbers) < $col Then
      ContinueLoop();
   EndIf
 
   ; Изменить размерность массива на 1
   ReDim $Array[UBound($Array)+1];
 
   ; Записать в массив
   $Array[UBound($Array,1)-1] = $aNumbers[$col];
 
   ; прочитать стрроку
   $line = FileReadLine($hFile);
WEnd
; Вернуть массив
Return $Array;
 
EndFunc

#include <Array.au3>
#include <FileConstants.au3>
#include <StringConstants.au3>
 
 
; Вызов функции, имя файла и столбец
MyReadFile("list.txt",3);
 
 
MsgBox(4096,"Заголовок","Запись номер 1: " & eval("Str_1"));
MsgBox(4096,"Заголовок","Запись номер 2: " & eval("Str_2"));
 
 
; Объявление функции
Func MyReadFile($file,$col)
; Открываем файл на чтение
Local $hFile = FileOpen($file,$FO_READ);
; Проверяем открылся ли файл, иначе выход из функции
if $hFile = -1 Then
   MsgBox(4096,"Error","Файла нет");
   Return False;
EndIf
; Прочитать одну строку из файла
Local $line = FileReadLine($hFile);
 
; Счетчик
Local $i = 1;
 
; Цикл-перебор всех строк, работает пока есть строки
While $line
 
   ; Получить значение между второй и третьей запятой
   Local $aNumbers = StringSplit($line,',');
 
   ; Если нет нужного столбца то пропустить итерацию
   if UBound($aNumbers) < $col Then
      ContinueLoop();
   EndIf
 
   ; Привязать данные к имени
   Assign("Str_" & $i,$aNumbers[$col],2);
   ;ConsoleWrite("Str_" & $i & " = " & $aNumbers[$col] & @CRLF);
   ;MsgBox(4096,"Заголовок","Запись номер "&$i&": " & eval("Str_"&$i));
 
   ; Инкремент счетчика
   $i = $i + 1;
 
   ; прочитать стрроку
   $line = FileReadLine($hFile);
WEnd
Return True;
EndFunc