Запись массива в файл и его чтение в Portable Microsoft Visual Basic 6.0 SP6

@Pavelelementary · Регистрация: 30.11.2015

Студворк — интернет-сервис помощи студентам

Добрый вечер!
Нужно записать матрицу matrix(116,116) в файл и затем считать оттуда нажимая на кнопки CommandButton
+записать и считать пару рядов, например plusmnoj(10)
и пару обычных переменных
Все переменные типа integer
если можно с подробностями т.к. программирую на школьном уровне

@Alex77755 · 30.11.2015, 10:35

Pavelelementary, а открыть какую-нить книжку, справочник, учебник, страницу сайта....Религия не позволяет? Тебе как оформить? И прям с подробностями?!
В справке Оооочень доходчиво расписано! Выключи лень, включи мозги!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
В данном примере инструкция Print # используется для записи данных в файл.
 
Open "TESTFILE" For Output As #1    ' Открывает файл для записи.
Print #1, "Пример"    ' Печатает текст в файл.
Print #1,   ' Печатает пустую строку в файл.
Print #1, "Зона 1"; Tab ; "Зона 2"  ' Печатает в двух зонах печати.
Print #1, "Пример" ; " " ; "всем" ' Строки разделяются пробелом.
Print #1, Spc(5) ; "5 пробелов" ' Печатает пять пробелов.
Print #1, Tab(10) ; "Привет"  ' Печатает слово в столбце 10.
 
' Присваивает значения типа Boolean, Date, Null и Error.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Вместо слов True, False, Null и Error записываются слова, 
' соответствующие им в текущем языке. Текстовые константы даты 
' записываются в кратком системном формате даты.
Print #1, MyBool ; " - логическое значение"
Print #1, MyDate ; " - дата"
 
Print #1, MyNull ; " - значение Null"
Print #1, MyError ; " - значение типа Error"
Close #1    ' Закрывает файл.

@Catstail · 30.11.2015, 11:17

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'::: Выгрузка массива в файл с именем 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

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Pavelelementary 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 1

	Запись массива в файл и его чтение в Portable Microsoft Visual Basic 6.0 SP6 30.11.2015, 04:38. Показов 2168. Ответов 2 Метки нет (Все метки) Добрый вечер! Нужно записать матрицу matrix(116,116) в файл и затем считать оттуда нажимая на кнопки CommandButton +записать и считать пару рядов, например plusmnoj(10) и пару обычных переменных Все переменные типа integer если можно с подробностями т.к. программирую на школьном уровне 0