Забить массив из файла в программу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д