Презентация, доклад по информатике на темуПрограммирование в среде VB. Работа с текстовыми файлами

к полям:

Dim emp1 As Recordes
emp1.Number =12345
emp1.LName =”фамилия”
emp1.FName =”имя”
emp1.Gruppa =”код”

Таким образом доступ к полям записи аналогичен доступу к отдельным объектам.

файла с собственным форматом необходимо указать длину записи:
Dim emp1 As Recordes
Open “имя файла” for Random as #1 Len=Len(emp1)

Для записи информации в файл используется функция InputBox и операторы Print #1 или Write #1.

кода:
For i=1 to 5
emp1.LName = InputBox(“введи фамилию”)
emp1.FName = InputBox(“введи имя”)
emp1.Title = InputBox(“введи код”)
emp1.Empid = InputBox(“введи число”)
Print #1, emp1
Next i
Т.е. отдельно вводим все поля записи и затем заносим эту запись в файл.

информации из файла необходимо его открыть:
Open “имя файла” for Input as #1 Len=Len(emp1)
А затем можно считывать всю запись или её поля:
Line Input #1, emp1.FName
Закрывается файл обычным способом: Close #1

две кнопки Command4 (запись1), Command5 (чтение1) – для записи и считывания строк пользователь- ского формата.

поля: номер, имя, фамилия, группа)

Private Type Stroka
Number As Integer
LName As String * 10
FName As String * 10
Gruppa As String * 5
End Type
Dim Element As Stroka

Output As #1 Len = Len(Element)
Do
Element.Number = InputBox(«введите номер", «ввод")
Element.LName = InputBox(«введите имя", «ввод")
Element.FName = InputBox(«введите фамилию", «ввод")
Element.Gruppa = InputBox(«введите группу", «ввод")
Print #1, Element.Number, Element.LName, Element.FName,
_ Element.Grupp
Loop Until a = ""
Close #1

End Sub

Input As #1 Len =Len(Element)
n = 0
Do Until EOF(1)
n = n + 1
Input #1, Element.FName, Element.Grupp
List2.AddItem Element.FName
Text1.Text = Element.Grupp
Loop
Close #1
End Sub