Страницы: 1
RSS
Создание двумерного массива из TXT
 
Пытаюсь загрузить данные из txt-файла в двумерный массив.  
Данные в txt-файле представлены в таком виде:  
 
Код товара;Название товара  
24123;яблоки  
353454;груши  
55463;апельсины  
 
Смог написать такой вот код:  
 
Dim str1() As String  
Dim x As Integer  
Dim y() As String  
 
str1 = Split(ЗагруженныеДанныеИзTXT, vbCrLf)  
 
For i = 0 To UBound(str1)  
y = Split(str1(i), ";")  
For x = 0 To UBound(y)  
If x = 0 Then MsgBox(y(x))  
If x = 1 Then MsgBox(y(x))  
Next  
Next  
 
 
В общем, запутался окончательно: что делать дальше, как переопределять размерность и тд. И самое главное, как загрузить данные из txt в двумерный массив, - так и не понял.  
Помогите пожалуйста разобраться.
 
А просто Открыть текстовый файл, показав в мастере разделитель [;], а затем с листа диапазон в массив не проще?
 
Или скопировать содержимое .txt, вставить на лист, Данные - Текст по столбцам, затем снова одним махом диапазон в массив.
 
Или после  
str1 = Split(ЗагруженныеДанныеИзTXT, vbCrLf)  
создать пустой двумерный массив нужного размера, далее перебором str1 его заполнить.
 
спасибо. буду пробовать
 
Если бы вы поискали ответ в интернете - наверняка увидели бы готовое решение: <BR> http://excelvba.ru/code/TextFile2Array  http://excelvba.ru/code/Text2Array
Страницы: 1
Читают тему
Наверх
Loading...