РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ И ОБРАБОТКА СТРОК ЛАБОРАТОРНАЯ РАБОТА №1

РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ И ОБРАБОТКА СТРОК
ЛАБОРАТОРНАЯ РАБОТА №1
Рассмотрим, как использовать для открытия текстового файла элемент
управления OpenFileDialog и функцию FileOpen, а также функции LineInput
и EOF для отображения содержимого текстового файла в текстовом поле и
функцию FileClose для закрытия файла.
Создайте форму данного вида рис. 1. Эта форма содержит большое
текстовое поле, которое имеет полосы прокрутки. Она также содержит
главное меню (с командами Открыть, Закрыть и Выход), диалог открытия
файла.
Рисунок 1.1- Вид формы проекта
Таблица 1.1- Загрузочные свойства объектов формы
Объект
Свойство
Установка
txtNote
Enabled False
Multiline True
Name
txtNote
ScrollBars Both
Text
пустой (empty)
mnuOpenItem Name
mnuOpenItem
mnuCloseItem Enabled False
Name
mnuCloseItem
lblNote
Text
"Загрузите текстовый файл с
команды Открыть"
Name
lblNote
Form1
Text
"Просмотр текста"
помощью
Теперь рассмотрим на две процедуры событий этой программы.
Процедура события mnuOpenItem_Click содержит следующий код
программы:
Dim AllText, LineOfText As String
OpenFileDialog1.Filter = "Текстовые файлы (*.TXT)¦*.TXT"
OpenFileDialog1.ShowDialog()
' отображаем диалоговое окно Open
If OpenFileDialog1.FileName <> "" Then
Try
'открываем файл и перехватываем все ошибки с помощью
' обработчика
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
'читаем строки из файла
LineOfText = LineInput(1)
'добавляем каждую строку в переменную AllText
AllText = AllText & LineOfText & vbCrLf
Loop
lblNote.Text = OpenFileDialog1.FileName
'обновляем метку
txtNote.Text = AllText
' отображаем файл
txtNote.Select(1, 0)
'удаляем выделение текста
txtNote.Enabled = True
'включаем текстовый курсор
mnuCloseItem.Enabled = True 'включаем команду Закрыть
mnuOpenItem.Enabled = False 'отключаем команду Открыть
Catch
MsgBox("Ошибка открытия файла.")
Finally
FileClose(1) 'закрываем файл
End Try
End If
Индивидуальные задания
1) Создать текстовый файл, содержащий произвольное количество гласных
букв русского алфавита. Длину каждой строки должен определять
пользователь. Просчитать количество символов каждой буквы и дописать
в файл полученную информацию.
2) Создать текстовый файл, содержащий произвольное количество букв
русского алфавита. Длину каждой строки должен определять пользователь.
Просчитать количество символов гласных и согласных букв и дописать в
файл полученную информацию.
3) Создать текстовый файл, содержащий произвольное количество символов.
Длину каждой строки должен определять пользователь. Просчитать
количество символов каждой буквы русского алфавита и дописать в файл
полученную информацию.
4) Создать текстовый файл, содержащий произвольное количество символов.
Длину каждой строки должен определять пользователь. Просчитать
количество цифр и дописать в файл полученную информацию.
5) Создать текстовый файл, содержащий произвольное количество символов.
Длину каждой строки должен определять пользователь. Просчитать
количество символов каждой буквы латинского алфавита и дописать в файл
полученную информацию.
6) Создайте файл целых чисел (числа вводятся с клавиатуры). Поменяйте
местами первый и третий элементы файла. Выведите на форму содержимое
первоначального и измененного файлов. Предусмотрите в программе вывод
соответствующего сообщения, если в файле не оказалось третьего элемента.
7) Создайте файл целых чисел (числа вводятся с клавиатуры). Выведите
числа
a. - с четным порядковым номером,
b. - с нечетным порядковым номером,
c. - с порядковым номером, кратным 7,
d. - с порядковым номером, кратным 15,
e. используя в программе процедуру Seek.
f. Предусмотрите в программе вывод соответствующего
сообщения, если в файле не оказалось нужных элементов.
8) Создайте файл символов (символы вводятся с клавиатуры). Выведите на
экран символы
a. - с пятого по пятнадцатый,
b. - с третьего по двадцатый,
c. - с k-го по s-ый.
8) Создайте проект, в котором вы вносите 7 вопросов тестов в файл
последовательного доступа.И эти вопросы выводятся на форме по порядку.
9) Создайте простейший текстовый редактор (со срокой меню, панелью
инструментов и окнами диалога). Программирование функций кнопок
панели инструментов. Ниже предложена процедура кодировки двух кнопок
сохранения и создания нового текстового файла с использованием
стандартвых диалогов.