VB-2012 / 2-cеместр / Дневники / Практики-2011 / Практ2-текст-файлы

РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ

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

Основные указания по реализации.

1. Главная форма приложения кроме представленных на ней элементов управления (командных кнопок) должна содержать компонент CommonDialog.

2. Программные коды, связанные с командными кнопками представлены ниже.

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

Private Sub Exit_Click()

End

End Sub

3. Модуль приложения должен содержать описание переменной определяющей имя файла

4. Результат отображения содержимого файла на Form3

5. Программный код, связанный с Form3

Private Sub Form_Load()

If F_name <> "" Then

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

6. Пополнение файла при помощи Form2

7. Программный код, связанный с Form2

Private Sub Command1_Click()

str = Text1.Text

Write #1, str

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_Load()

Open F_name For Append As #1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Close #1

End Sub

2