Запись массива в файл и его чтение в Portable Microsoft Visual Basic 6.0 SP6 - VB
Формулировка задачи:
Добрый вечер!
Нужно записать матрицу matrix(116,116) в файл и затем считать оттуда нажимая на кнопки CommandButton
+записать и считать пару рядов, например plusmnoj(10)
и пару обычных переменных
Все переменные типа integer
если можно с подробностями т.к. программирую на школьном уровне
Решение задачи: «Запись массива в файл и его чтение в Portable Microsoft Visual Basic 6.0 SP6»
textual
Листинг программы
'::: Выгрузка массива в файл с именем fname Sub UnloadArr(A() As Integer, fname As String) fo% = FreeFile Open fname For Binary Access Write As #fo% Put #fo%, , A Close #fo% End Sub '::: Чтение строки из выгруженного массива '::: n - размерность массива, r - номер строки Function GetRow(fname As String, r As Integer, n As Integer) As Integer() Dim Res() As Integer ReDim Res(1 To n) As Integer fi% = FreeFile Open fname For Binary Access Read As #fi% Pos& = (r - 1) * n * 2 + 1 Seek #fi%, Pos& Get #fi%, , Res Close #fi% GetRow = Res End Function '::: Тест Sub Test() Dim Z() As Integer Dim X(1 To 5, 1 To 5) As Integer For i% = 1 To 5 '::: Формируем матрицу For j% = 1 To 5 X(i%, j%) = i% * j% Next j% Next i% HomeDir$ = ThisWorkbook.Path fname$ = HomeDir$ + "\aaa.dat" UnloadArr X, fname$ '::: Выгружаем... Z = GetRow(fname$, 3, 5) '::: Читаем 3-ю строку For i% = 1 To 5 '::: Печатаем Debug.Print Z(i%) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д