Забить массив из файла в программу - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, программисты, проблема такая, дан файл нам, там массив вида: 120 145 365 156 222 145 122 789 589 357 123 456 147 258 369 159 753 456 852 982 задача такая: забить этот массив из файла текст.txt(там может быть больше строчек, столбцов - 5) в двумерный массив используя компонент MSFlexGrid. ниже код для кнопки, она создает массив рандомно, но как из файла, не понятно(

Решение задачи: «Забить массив из файла в программу»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
  Dim n As Integer, i As Integer, j As Integer
  Dim fn As String, ff As Integer, s, st As String
  Dim A() As Double
   ff = FreeFile
   fn = App.Path & "\1.txt"
   Open fn For Input As #ff
         Do While Not EOF(ff)
              Input #ff, st
              n = n + 1
              ReDim Preserve A(1 To Grid.Cols - 1, 1 To n)
              s = Split(st)
              For i = 1 To Grid.Cols - 1
                  A(i, n) = Val(s(i - 1))
              Next i
         Loop
   Close #ff
   MsgBox n
   Grid.Rows = n + 1
   
 
   For i = 1 To Grid.Rows - 1
      'If Grid.TextMatrix(i, 0) = "" Then
        Grid.TextMatrix(i, 0) = i
      'End If
   Next i
   For i = 1 To Grid.Rows - 1
     For j = 1 To Grid.Cols - 1
       'If Grid.TextMatrix(i, j) = "" Then
          Grid.TextMatrix(i, j) = A(j, i)
       'End If
     Next j
   Next i
End Sub
 
Private Sub Form_Load()
   Dim i As Integer
   Grid.Cols = 6
   Grid.TextMatrix(0, 0) = "I/J"
   For i = 1 To Grid.Cols - 1
     Grid.TextMatrix(0, i) = i
   Next i
End Sub

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


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

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

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