Считать матрицу из файла

Доброго времени суток.
Задача следующая: Разработать модуль, считывающий матрицу из файла и выводящую её в виде плоскостного графика на лист.

С выводом разберемся, не вопрос. По поводу считывания, желательные требования - это универсальный подход. Пока что в моем арсенале есть скудные представления о функциях и методах, поэтому ниже приведу набросок и свои мысли, а вы меня поправьте/подскажите более рациональные подходы.
Итак

filetoopen = Application.GetopenFilename(...)

Open filetoopen for input as #1
do while not eof(1)
a=input(1, #1), 'так и не понял можно ли так сделать))
if isnumeric(a) then
b=b & a
else
cells(x,y)=b 'допустим сразу на лист выводим
b=""
y+1
end if
...
Далее нужно мне определить конец строки, дабы сделать x=x+1 - это номер строчки в выводимой на листе матрице. И вот как это сделать мой уже кипящий мозг не знает(( В идеале конечно надо еще поставить условие на isnumeric(a) or a="" , потому что файл был сформирован не мой и там могут быть какие то комментарии или записи не имеющие отношения к делу.
Вот в общем мои корявые и сумбурные мысли, буду признателен за любые идеи. Котелок уже реально не варит, 5 день ночами пишу.))

0

Для начала надо определиться со структурой файла!
Какой массив. Одномерный или двумерный.
А считывать можно и весь вайл целиком в переменную и потом с ним работать: Разбивать на строки. Строки на элементы

0

хмм.
массив получается двумерный) первая строчка координаты по икс, первый стобец по игрек.
а если я файл считваю целиком в переменную, в чем будет разница?

0

первая строчка координаты по икс, первый стобец по игрек.

А вторая строчка? А третья? пятая?
А сколько всего столбцов? если первый столбец по игрек, то что во втором столбце? в третьем? в пятом? Нужны ли они?

Добавлено через 1 минуту

универсальный подход

Это считать весь файл целиком в переменную и потом с ним работать: Разбивать на строки. Строки на элементы

0

сколько всего неизвестно. поэтому и использую do while not eof.
матрица вся нужна) все кроме первого столбца и первой строчки это значения в точке с координатами (x,y).

Добавлено через 2 минуты

Это считать весь файл целиком в переменную и потом с ним работать: Разбивать на строки. Строки на элементы

Хорошо, думаю в этом действительно есть смысл, тогда все тот же вопрос, как понять что я дошел до конца строки?))

0

Добавлено через 2 минуты
'Разбиваем на массив строк
Dim ArrayLines() as String
ArrayLines = Split(CF, vbNewLine)
'Теперь tmp$ = ArrayLines(0) - первая строка, tmp$ = ArrayLines(1) - вторая, итп...
На массив слов аналогично...
Word$ = Split(ArrayLines(0), " ")

1

Спасибо, открыли для меня новую функцию.))

'Теперь tmp$ = ArrayLines(0) - первая строка, tmp$ = ArrayLines(1) - вторая, итп...

Наверное, было бы неплохо знать сколько их в итоге получилось

Вообще я пока плохо улавливаю суть предложенного вами решения.
Word$ = Split(ArrayLines(0), " ") - этой строчкой мы получаем символ пробела, при его наличии, из 1 строки, если я вообще правильно понял как работает эта функция?

0

Этой строчкой мы получаем массив элементов строки разбитый по пробелам(пробел должен быть один. Если пробел не один между элементами в строке - дополнительно обработать Replace)
Кода не известен размер массива - считали целиком в переменную, разбили построкам - узнали первую размерность массива. Разбили первую строку по символам - узнали вторую резмерность.
Назначили размер массива. А дальше в цикле заполнили его

1

спасибо, теперь все понятно))

0