Министерство цифрового развития, связи и массовых коммуникаций Российской Федерации

Ордена Трудового Красного Знамени федеральное государственное бюджетное образовательное учреждение высшего образования

Московский технический университет связи и информатики

Кафедра «Системное программирование»

Лабораторная работа №9

по дисциплине «Информационные технологии и программирование»

«Текстовые файлы»

Выполнила:

студентка группы БФИ2203

Мячина Лада Андреевна

Проверил:

Клешнин Никита Геннадиевич

Москва, 2024 г.

Оглавление

Введение 3

Выполнение работы 4

Результат работы программы 6

Вывод 7

Введение

Умение эффективно работать с данными является ключевым навыком, особенно в контексте использования программных средств, таких как MS Excel. Приобретенные в ходе выполнения лабораторной работы навыки не только облегчат повседневные задачи, но и откроют двери к более сложным аналитическим и организационным возможностям. Лабораторная работа поможет улучшить свои навыки в работе с MS Excel и научиться работать с текстовыми файлами.

Цель работы: получение навыков работы с текстовыми файлами.

Задание: разработать программу записи ФИО в текстовый файл. Название текстового файла определяется в программе, а пользователь должен иметь возможность добавления ФИО в текстовый файл через интерфейс программы и вывода его содержимого на лист MS Excel с нумерацией строк. Используя программу, добавить в текстовый файл более пяти записей, включая Ваше ФИО, и вывести содержимое файла на лист MS Excel. Подготовить отчет по лабораторной работе.

Выполнение работы

1. Создать новый лист в MS Excel и разработать интерфейс программы, результат представлен на рисунке 1.

Рисунок 1 – Интерфейс программы

2. Код макроса для записи в текстовый файл, представлен в листинге 1.

Листинг 1 - Программный код для записи в текстовый файл

Sub WriteToFile()

Dim f1 As Integer

f1 = 1

Debug.Print f1

Open "C:\Users\Лада\Desktop\lab9itip.txt" For Append As #f1

Write #f1, Range("C3").Value

Close #f1

End Sub

3. Код макроса для чтения из текстового файла, представлен в листинге 2.

Листинг 2 - Программный код для чтения из текстового файла

Sub ReadFromFile()

Dim s As String

Dim f1 As Integer

f1 = 1

count_ = 1

Range("B9").Value = "Содержимое файла:"

Open "C:\Users\Лада\Desktop\lab9itip.txt" For Input As #f1

Do While Not EOF(f1)

Line Input #f1, s

Range("B" + CStr(10 + count_)).Value = s

count_ = count_ + 1

Loop

Close #f1

End Sub

Результат работы программы

1. Результат записи в текстовый документ, представлен на рисунке 2.

Рисунок 2 - Результат записи в текстовый документ

2. Результат чтения из текстового документа, представлен на рисунке 3.

Рисунок 3 - Результат чтения из текстового документа

Вывод

В ходе выполнения лабораторной работы были получены навыки работы с текстовыми файлами.