Запись массива в файл и его чтение в 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

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


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

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

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