ЗОТФ-ЗФ / 4.9. Обработка строковых данных и текстовые файлы
.docx
ФЕДЕРАЛЬНОЕ АГЕНСТВО СВЯЗИ
Государственное образовательное учреждение
Высшего профессионального образования
Московский технический университет связи и информатики
Лабораторная работа
по дисциплине «Программирование и алгоритмизация».
Тема 4.9. «Обработка строковых данных и текстовые файлы».
Вариант №6.
2016 г.
Задание.
Цель работы. Изучение языковых средств работы со строковой информацией и текстовыми файлами, а также совместной обработки строковой и числовой информации, освоении операций, методов и элементов управления для работы со строковой информацией.
1. Выбрать задание в соответствии с вариантом для реализации процедуры обработки строковых данных.
2. Составить схему алгоритма обработки строк в соответствии с индивидуальным заданием и, если необходимо, провести предварительную формализацию задания.
3. Разработать интерфейс пользователя.
4. Написать программный код проекта, причем обмен данными между пользовательскими процедурами должен осуществляться через параметры, без использования глобальных переменных.
5. Подготовить тесты для контрольного решения задачи.
6. Получить решение.
Задача.
Преобразовать заданную строку, повторив в ней каждый символ, совпадающий с заданным.
Графический интерфейс.
Таблица объектов.
Имя |
Свойство |
Значение свойства |
Form1 |
Name |
Form1 |
Label1
|
Text
|
Введите строку, которую необходимо преобразовать: |
Label2 |
Text
|
Введите символ, который необходимо удвоить: |
Label3 |
Text
|
Введите имя файла: |
Label4 |
Text
|
Результат: |
Label5 |
Text
|
Преобразовать заданную строку, повторив в ней каждый символ, |
Label6 |
Text
|
совпадающий с заданным. |
Label7 |
Text
|
Задача: |
TextBox1
|
Name |
TextBox1
|
TextBox2
|
Name |
TextBox2
|
TextBox3
|
Name |
TextBox2
|
TextBox4
|
Name |
TextBox2
|
Button1
|
Name |
Button1
|
Text |
Ок |
|
Button2
|
Name |
Button2
|
Text |
Стереть |
|
Button3
|
Name |
Button3
|
Text |
Ок |
Программный код.
Public Class Form1
'Процедура чтения данных из файла
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = My.Computer.FileSystem.ReadAllText(TextBox3.Text)
End Sub
'Процедура очистки формы
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
'Процедура вызова преобразования строки
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = Preobrazovanie_Stroki(TextBox1.Text, TextBox2.Text)
End Sub
'Процедура удвоения заданного символа в строке
Function Preobrazovanie_Stroki(ByVal Vxod As String, ByVal n As Char)
Dim vixod As String 'Переменная для хранения преобразованной строки
Dim i As Short 'Переменная счётчик цикла
vixod = ""
For i = 0 To Vxod.Length - 1 'Цикл перебора каждого символа строки
If Vxod(i) = n Then 'Проверка условия совпадения символа в строке и заданного
vixod = vixod + n 'Дополнительное приписывание символа в строку
End If
vixod = vixod + Vxod(i) 'Основное приписывание символа в строку
Next i
Return vixod 'Возврат преобразованной строки
End Function
End Class
Блок-схема.
~