VB-2012 / 2-cеместр / Дневники / Методика / Пример-текст-файл-07 / Пример решения задачи(текстовые файлы)

Пример решения задачи (ФАЙЛЫ ПРЯМОГО ДОСТУПА)

Постановка задачи: разработать приложение демонстрирующее основные операции с текстовыми файлами (создание, открытие существующего, запись в файл, отображение содержимого файла)

Главная форма приложения

Private Sub Command1_Click() “Открытие файла

CommonDialog1.ShowOpen

F_name = CommonDialog1.FileName

End Sub

Private Sub Command2_Click() “Отобразить содержимое файла

Form3.Show

End Sub

Private Sub Command3_Click() Пополнение файла

Form2.Show

End Sub

“ Содержимое модуля приложения

Public F_name As String

Public str As String

Dim i As Integer

Private Sub Command1_Click() Пополнение файла (Form2)

str = Text1.Text

Write #1, str

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_Load()

“Открытие файла для добавления данных к уже имеющимся Form2

Open F_name For Append As #1

End Sub

Private Sub Form_Unload(Cancel As Integer) “Закрытие файла при выгрузке Form2

Close #1

End Sub

Private Sub Form_Load()

If F_name <> "" Then

“Открытие файла для последовательного чтения данных Form2

Open F_name For Input As #1

Do While Not EOF(1)

Input #1, str

str = Mid(str, 1, Len(str))

Form3.Print str

Loop

Close #1

Else

MsgBox "Укажите рабочий файл"

End If

End Sub

“Открытие файла для последовательной записи данных. Информация пишется всегда с начала файла (предыдущая информация стирается)

Open F_name For Output As #1