Читання, створення, запис та друк текстових файлів

Володимир Коробицын

Створити папку з довільною назвою, наприклад, Write. Запустіть Visual Basic. У проект майбутнього програми додайте файл Cmdialog.vbx (підтримка вікна загальних діалогів). На формі Form1 розмістіть об'єкти Text1 (Текстове поле), CMDialog1 (Вікно загального діалогу). Для об'єкта Text1 властивості MultiLine (Багато рядків) надайте значення True (Істина) - тепер в тексті, що вводиться користувачем, за досягненні кінця рядка буде здійснюватися автоматичний перенос за словами. Властивості Text (Текст) цього об'єкта надайте значення порожнього множини, а властивості ScrollBars (Смуга прокрутки) значення 2-Vertical (Вертикально). Об'єкт CMDialog1 служить для виклику під час її виконання стандартних діалогових вікон:

1. Відкриття файлу.

2. Збереження файлу.

3. Вибір кольору.

4. Вибір шрифту.

5. Налаштування принтера.

Наприклад, для виклику вікна загального діалогу «Вибір кольору» необхідно використовувати рядок програмного коду:

CMDialog1.Action = 3 'активізація вікна ВИБІР ЦВЕТА

Викличте вікно розробки меню (Menu Design Window) і побудуйте систему меню за наступною схемою:

Caption (Напис) Name (Ім'я в програмі)

Файл File

---- Новий New

---- Відкрити Open

---- Зберегти Save

---- Друк Print

---- Вихід End

Проведіть обробку виборів меню - новостворені процедури наповніть програмним кодом. У процедуру переривання New_Click впишіть рядок:

Form1.Text1.Text = "" 'Очищення текстового поля

В цьому рядку очищення текстового поля від раніше введеного тексту відбувається шляхом присвоєння властивості Text (Текст) об'єкта Text1 значення, відповідного пустому безлічі.

В процедуру переривання Open_Click запишіть програмний код:

CMDialog1.Filename = "*. Txt" 'вказівка типу відкриваються файлів

CMDialog1.Action = 1 'активізація вікна діалогу ВІДКРИТТЯ Я файла

Form1.Caption = CMDialog1.Filename 'показ шляху і імені файлу

Open CMDialog1.Filename For Input As # 1 'відкриття файлу для читання

Form1.Text1.Text = Input $ (LOF (1), 1) 'читання файлу в текстове поле

Close # 1 'закриття файлу

В четвертому рядку відбувається відкриття вибраний файл для читання під номером «Перший». П'ята рядок зчитує вміст відкритого файлу в текстове поле об'єкта Text1. Тут інструкція LOF визначає довжину файлу, відкритого під номером «Перший». Шоста рядок необхідна для закриття файлу під номером «Перший».

В процедуру переривання Save_Click впишіть рядки:

CMDialog1.Action = 2 'активізація вікна ЗБЕРЕЖЕННЯ файла

' якщо ім'я файлу не вказано, то вихід з процедури

If CMDialog1.Filename = "" Then Exit Sub

Form1.Caption = CMDialog1.Filename & ". Txt" 'показ шляху і імені файлу

'відкриття файлу для запису

Open CMDialog1.Filename & ". txt" For Output As # 1

Print # 1, Form1.Text1.Text 'запис тексту у файл

Close # 1 'закриття файлу

Під другому рядку програма захищена від можливої помилки у четвертому рядку. Така помилка може виникнути в тому випадку, якщо користувач не вказав ім'я файлу,. Другий рядок здійснює вихід з процедури Save_Click, якщо ім'ям файлу є порожня множина. Третій рядок поміщає інформацію про шлях і ім'я файлу, в рядок заголовка вікна форми Form1. У четвертому рядку відкривається файл для запису під номером «Перший». П'ята рядок записує у відкритий файл вміст текстового поля. Останній рядок закриває файл під номером «Перший».

В процедуру переривання Print_Click впишіть програмний код:

Printer.FontName = "Arial Cyr" 'вибір виду шрифту для друку

Printer.FontSize = 12 'щоб вибрати розмір шрифту для друку

Printer.Print "" 'Ініціалізація об'єкта принтер

Printer.Print Form1.Text1.Text 'висновок тексту на папір

Printer.EndDoc ' зупинка друку документа

Самостійно завершіть обробку виборів меню для знайомої Вам команди «Вихід». Збережіть проект програми. Створіть виконуваний EXEфайл.

При бажанні в меню додайте команди, які дозволяють користувачеві змінювати розмір шрифту як для набору тексту, так і для друку.

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/