Загрузка исходных данных из файла - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы