Лабораторная
.docМинистерство образования и науки Российской Федерации
Уфимский Государственный Авиационный Технический Университет
Кафедра Информатики
Отчет по лабораторной работе
№ 6
Среда Visual Basic
Работа с файлами и строками
Вариант №3
Выполнил:
Студент группы ЭСиС-11?
Приняла: Хамзина Е.А.
Уфа 2005
ВОПРОСЫ к Лабораторной работе №6 :
-
Какие основные операции операции с файлами есть в Visual Basic?
-
Как открыть или создать файл?
-
Как закрыть файл?
-
Как закрыть все открытые файлы?
-
Как прочитать данные из файла?
-
Как записать данные в файл?
-
Как задать имя файла, находящегося в некоторой папке на жестком диске?
-
Как добавить данные в файл?
-
Как определить метку конца файла?
-
Что должно присутствовать в текстовом файле, чтобы запятые не
воспринимались как признак перехода на новую строку?
-
Какой объект можно использовать для вывода текста, прочитанного из
текстового файла?
-
Какой символ является разделителем при вводе числовых данных из файла?
-
Какой объект используется для визуального выбора диска?
-
Какой объект используется для визуального выбора папки?
-
Какой объект используется для визуального выбора файла?
№3.
Дан текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.
Dim a As String
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
a = Text2
k = 0
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, StrTemp
Picture1.Print StrTemp
For i = 1 To Len(StrTemp) - Len(a)
If Mid(StrTemp, i, Len(a)) = a Then
k = k + 1
End If
Next i
Loop
Picture2.Print k
Close #1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'выбираем диск
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path 'выбираем папку
End Sub