
Программирование на BASIC / Visual Basic / Лабораторные работы. Вариант 11 / лаба 6
.docФедеральное агентство по образованию
Государственное образовательное учреждение
профессионального высшего обучения
Уфимский государственный авиационный университет
Кафедра информатики
Отчет по лабораторной работе № 6
По теме «Работа с файлами и строками»
Выполнил:
Проверила: старший преподаватель Хамзина Е.А.
Уфа 2006
Отчет
Цель работы
Изучение возможностей разработки приложений, взаимодействующих с файловой системой персонального компьютера и работы со строками.
Задание 1
Удалить часть символьной строки, заключенной в скобки (вместе со скобками).
Таблица
Объект |
Свойство |
Значение |
Form1 |
Caption |
лаба 6-1 |
Text1 |
Text |
- |
Text2 |
- |
|
Label1 |
Caption |
Введите текст |
Command1 |
преобразовать |
Интерфейс
Код программы
Private Str1, str2 As String
Private pos1, pos2 As Long
Private Sub Command1_Click()
Str1 = Text1.Text
pos1 = InStr(Str1, "(")
pos2 = InStr(Str1, ")")
str2 = Left(Str1, pos1 - 1) & Right(Str1, Len(Str1) - pos2)
Text2.Text = str2
End Sub
Задание 2
Дан текст. Преобразовать его, удалив каждый символ «*».
Таблица
Объект |
Свойство |
Значение |
Form1 |
Caption |
6-2 |
Text1 |
Text |
- |
Text2 |
- |
|
Text3 |
in.txt |
|
Text4 |
out.txt |
|
Label1 |
Caption |
Исходный текст |
Label2 |
Текст, из которого удалили звездочки |
|
Label3 |
Входной файл |
|
Label4 |
Выходной файл |
|
Command1 |
переделать |
Интерфейс
Код программы
Private tmp As String
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
infile = Text3.Text
outfile = Text4.Text
Open infile For Input As #1
Open outfile For Output As #2
Do Until EOF(1)
Line Input #1, tmp
Text1.Text = Text1.Text & tmp & vbCrLf
Do Until InStr(tmp, "*") = 0
tmp = Left(tmp, InStr(tmp, "*") - 1) & Right(tmp, Len(tmp) - InStr(tmp, "*"))
Loop
Text2.Text = Text2.Text & tmp & vbCrLf
Print #2, tmp
Loop
Close (1)
Close (2)
End Sub
Вопросы:
-
Какие основные операции операции с файлами есть в Visual Basic?
-
Как открыть или создать файл?
-
Как закрыть файл?
-
Как закрыть все открытые файлы?
-
Как прочитать данные из файла?
-
Как записать данные в файл?
-
Как задать имя файла, находящегося в некоторой папке на жестком диске?
-
Как добавить данные в файл?
-
Как определить метку конца файла?
-
Что должно присутствовать в текстовом файле, чтобы запятые не воспринимались как признак перехода на новую строку?
-
Какой объект можно использовать для вывода текста, прочитанного из текстового файла?
-
Какой символ является разделителем при вводе числовых данных из файла?
-
Какой объект используется для визуального выбора диска?
-
Какой объект используется для визуального выбора папки?
-
Какой объект используется для визуального выбора файла?