![]() |
А. Последовательный доступ: запись в файл в одну строку, в несколько строкDate: 2015-10-07; view: 374. Практическая работа 19. Работа с файлами: запись данных в файл, чтение из файла Двоичный (Binary) доступ Двоичный доступ в отличие от произвольного возможен не к определeнному набору данных, а к отдельному байту. Приводятся примеры работы с файлами, пояснения даны под комментариями к коду. Создать требуемые элементы управления, ввести код, данный ниже, см. также (схема формы) и
Задание: создать несколько переменных типа String, вывести их значения в поле списка и значения записать в файл. Dim a1 As String, a2 As String, a3 As String, a4 As StringDim a5 As String, a6 As String, d1 As IntegerDim j As Integer, mass(6) As String, nomZ As IntegerDim b1 As String, b2 As String, b3 As String, b4 As String Private Sub Form_Load()' присвоить значения переменным и вывести в поле List1a1 = "a": a2 = "b": a3 = "c": a4 = "d" List1.List(0) = a1: List1.List(1) = a2List1.List(2) = a3: List1.List(3) = a4End Sub Private Sub Command1_Click() ' запись в файл' открыть файл для записи; файл можно просмотреть в ' приложении "Блокнот"Open "file11.txt" For Output As #1Write #1, "Name", a1, a2, a3, a4 ' запись в файлClose #1 ' закрыть файлEnd Sub Private Sub Command2_Click() ' запись в файлOpen "file22.txt" For Output As #1' запись в файл строки и данных из поля списка в 4 ' строки (записи)Write #1, "Name"For j = 0 To 3Write #1, List1.List(j)Next jClose #1End Sub
|