Пытаюсь загрузить данные из 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-файле представлены в таком виде:
Код товара;Название товара
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 в двумерный массив, - так и не понял.
Помогите пожалуйста разобраться.