Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > извлечение в массив из файла

Автор: Drug28081985 22.5.2006, 15:43

есть файл *.ТхТ в нем следующас информация

3
3
2  3  4
2  1  2
1  6  3

где первые две цифры 3 и 3 это количество строк и столбцов
Нужно извлеч из этого файла цифры в массив
как это сделать
У меня получается задавать в массив только всю строчку как текст

Автор: Akina 22.5.2006, 15:53

ну типа такого

Код


Dim xData() As Integer
line input #1, sRows
line input #1, sCols
ReDim xData(Val(sRows), Val(sCols))

for i=1 to Val(sCols)
  for j=1 to Val(sRows)
    Input #1, xData(j,i)
  next j
next i