Запис інформації у файл

Date: 2015-10-07; view: 314.

Для того, щоб зберегти дані у вибраний файл необхідно здійснити відкриття цього файлу з метою запису в нього даних. Це можна зробити за допомогою наступного рядка:

Open <Ім'я файлу> For Призначення As Номер

Open – оператор для відкриття файлу;

For – ключове слово для визначення призначення;

As – ключове слово для визначення змінної, що містить файловий номер, за допомогою якого буде в подальшому здійснюватись обробка файлу.

18. Створимо підпрограму для збереження даних у файл результату з виводом діалогового вікна збереження “Збереження даних у файл”. При цьому збереження повинно відбуватися в разі, коли встановлено прапорець “Вивести результат у файл”:

Sub FunSave()

If CheckFile.Value = 0 Then Exit Sub

Dim SaveFile As String

With DialogSaveData

.Filter = "Файл результату (*.dat) |*.dat | Текстовий файл (*.txt) |*.txt"

.FileName = "Result1.dat"

.ShowSave

End With

SaveFile = DialogSaveData.FileName

If DialogSaveData.FileName = Empty Then Exit Sub

Open SaveFile For Output As #2

RezText = TextFun.Text

Print #2, RezText

Close #2

End Sub

За умовою, можливість збереження даних повинна з'являтися при завершені роботи, тобто при виконанні команди Вихід, або при закритті додатку.

19. Створимо процедуру обробки події при виборі команди Вихід:

Private Sub mnuEnd_Click()

Call FunSave

End

End Sub

20. Створимо процедуру обробки події вивантаження вікна додатку з пам'яті:

Private Sub Form_Unload(Cancel As Integer)

Call FunSave

End Sub

21. Збережіть проект і перевірте як він працює.