Автор работы: Пользователь скрыл имя, 31 Января 2014 в 20:18, лабораторная работа
Целью работы является изучение возможностей разработки приложений, взаимодействующих с файловой системой персонального компьютера и работы со строками.
Какие основные операции с файлами есть в Visual Basic?
Как открыть или создать файл?
Как закрыть файл?
Как закрыть все открытые файлы?
Министерство образования и науки Российской Федерации
Уфимский государственный
авиационный технический
Кафедра Информатики
Отчет
по лабораторной работе №6
«Работа файлами и строками»
Вариант №5
Выполнил: студент Галиакберов Н.Г.
Гр. ТЭ-117
Проверила: Смирнова Е.А.
УФА - 2011
Цель работы
Целью работы является изучение возможностей разработки приложений, взаимодействующих с файловой системой персонального компьютера и работы со строками.
Задание 2.
Задание первого уровня сложности.
Текст программы.
Private Sub Command1_Click()
s = Text1
k = Len(s)
j = 1
Do While j <= k
st = Mid(s, j, 1)
If st = "*" Then
d1 = Mid(s, 1, j - 1)
d2 = Mid(s, j + 1, k)
s = d1 & d2
k = k - 1
End If
st = Mid(s, j, 1)
If st = "*" Then j = j - 1
j = j + 1
Loop
Text2 = s
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Command4_Click()
Form1.Hide
Form3.Show
End Sub
Private Sub Command5_Click()
Form1.Hide
Form4.Show
End Sub
Пример работы.
Задание 2.
Задание второго уровня сложности.
Текст программы.
Private Sub Command1_Click()
s = Text1
Picture1.Cls
k = Len(s)
For i = 1 To k
Sum = 1
t = Mid(s, i, 1)
For j = 1 To k
If t = Mid(s, j, 1) Then Sum = Sum + 1
Next j
If Sum = 2 Then Picture1.Print t:
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Command4_Click()
Form2.Hide
Form3.Show
End Sub
Private Sub Command5_Click()
Form2.Hide
Form4.Show
End Sub
Пример работы.
Задание 2.
Задание третьего уровня сложности.
Текст программы.
Private Sub Command1_Click()
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, Stroka
Picture1.Print Stroka
Loop
Close #1
End Sub
Private Sub Command2_Click()
Picture2.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, Stroka
s = s + Stroka
Loop
Close #1
p = 0
m = Split(s, " ")
For i = 1 To UBound(m)
k = Mid(m(i), 1, 1)
d = Len(m(i))
l = Mid(m(i), d, 1)
If k = l Then p = p + 1
Next
Picture2.Print p
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Form1.Show
Form3.Hide
End Sub
Private Sub Command5_Click()
Form2.Show
Form3.Hide
End Sub
Private Sub Command6_Click()
Form4.Show
Form3.Hide
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Пример работы.
Задание 3.
Задание первого уровня сложности.
Текст программы.
Private Sub Command1_Click()
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, Stroka
Picture1.Print Stroka
Loop
Close #1
End Sub
Private Sub Command2_Click()
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, Stroka
s = s + Stroka
Loop
Close #1
j = 0
m = Split(s, " ")
For i = 0 To UBound(m)
k = Mid(m(i), 1, 1)
d = Len(m(i))
l = Mid(m(i), d, 1)
If k = "(" Then j = 1
If j = 1 Then m(i) = " "
If l = ")" Then j = 0
s2 = s2 + m(i) + " ":
Next i
Picture1.Print s2
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub Command5_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub Command6_Click()
Form3.Show
Form4.Hide
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Пример работы.
Контрольные вопросы.
Visual Basic позволяет открывать текстовый файл для чтения из него данных, создавать файл для записи в него данных, добавлять данные в уже существующий файл и изменять атрибуты файлов.
Для открытия или создания файла используется функция Open, после которой идет имя файла. Например:
Open C:\Эрик.txt
Чтобы закрыть файл используется функция Close, после которой идет имя файла. Например:
Close C:\Эрик.txt
Чтобы закрыть все открытые файлы, используется функция Reset.
Чтобы прочитать данные из файла, надо сначала его открыть. С помощью функции Input производится чтение данных из файла. Например:
Open "test.dat" For Input As #1
Input #1, strS
Close #1
Чтобы записать данные в файл, надо сначала его открыть. С помощью функции Output производится запись данных в файл. Например:
Open "test.dat" For Output As #1
Print #2, "Сумма ="; sngSum
Close #2
Для того чтобы задать имя файла находящегося в некоторой папке на жестком диске надо указать его полное имя.
Чтобы дописать данные в файл, надо сначала его открыть. С помощью функции Append производится запись данных в конец файла. Например:
Open "test1.txt" For Append As #3
Print #3, strSS
Close #3
Для определения метки конца файла используется функция EOF.
Чтобы запятые не воспринимались как признак перехода на новую строку в текстовом файле текст должен быть заключён в двойные кавычки.
Для вывода текста, прочитанного из текстового файла можно использовать picturebox.
Разделителем при вводе числовых данных из файла является запятая.
Для визуального поиска файла на диске и его открытия (задания имени) используем объект DriveListBox.
Для визуального поиска файла на диске и его открытия (задания имени) используем объект DirListBox.
Для визуального поиска файла на диске и его открытия (задания имени) используем объекты FileListBox.