Что нового

[Данные, строки] отобразить файл в массиве

Sergeich

Новичок
Сообщения
10
Репутация
0
Добрый вечер всем, тут столнулся с проблемой.существует текстовый документ вида
№ 1 | текст1 | текст2 | текст3 |
№ 2 | текст1 | текст2 | текст3 |
и так далее, проблема заключаетсяв отображении этого файла в виде таблицы(двухмерного массива)

Код:
#Include <Array.au3>
#include <file.au3>
$file = FileOpen("c:\test.txt", 0)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop

$avArray=StringSplit($line, '|', 2)
_ArrayDisplay($avArray,"",1,-1)
Wend

FileClose($file)

а вот как вывести все в одном массиве?
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Код:
#Include <Array.au3>
#Include <File.au3>

Global $aArray, $aTable

_FileReadToArray('C:\test.txt', $aArray)
If @error Then
    MsgBox(0, 'Error', 'Unable to open file.')
    Exit
EndIf
$Count = 0
Dim $aTable[$aArray[0]][4]
For $i = 1 To $aArray[0]
	$Data = StringSplit($aArray[$i], '|')
	If $Data[0] = 5 Then
		For $j = 0 To 3
			$aTable[$Count][$j] = $Data[$j + 1]
		Next
		$Count += 1
	EndIf
Next
If $Count Then
	ReDim $aTable[$Count][4]
EndIf
_ArrayDisplay($aTable)
 
Верх