Загрузка исходных данных из файла - VB
Формулировка задачи:
Подскажите, как реализовать следующее. В файле храниться матрица, размером 5 на 5, числа между собой отделены пробелом. Как их оттуда записать в массив?
Решение задачи: «Загрузка исходных данных из файла»
textual
Листинг программы
Sub LoadMatrix(fname as string) As Single() Dim Res() As Single fi%=FreeFile Open fname For Binary read As #fi% L&=LOF(fi%) Buf$=Space$(L&) Get #fi%,,Buf$ Close #fi% Redim Res(1 to 5, 1 to 5) As Single Buf$=Replace$(Buf$, chr$(10)," ") Buf$=Replace$(Buf$, chr$(13),"") V=Split(Buf$) k%=0 For i%=1 to 5 For j%=1 to 5 Res(i%,j%)=Val(V(k%)) k%=k%+1 Next j% Next i% LoadMatrix=Res End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д