Программирование на BASIC / Visual Basic / Лабораторные работы / Информатика Л.Р6
.docУфимский Государственный Авиационный
Технический Университет.
Отчет по лабораторной работе №6
Работа файлами и строками
Выполнил: студент группы ОД – 144
Хасанов Э. Р.
Проверил: Сираева Л. Р.
2004г.
Цель работы
Целью работы является изучение возможностей разработки приложений, взаимодействующих с файловой системой персонального компьютера и работы со строками.
-
Какие основные операции с файлами есть в Visual Basic?
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.
Коды программ
1.
Private Sub Command1_Click()
a = Text1
Open a For Input As #1
Do While Not (EOF(1))
Input #1, strtemp
Picture1.Print strtemp
Loop
Close #1
End Sub
2.
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
file = Text1
Open file For Input As #1
Input #1, n
Picture1.Print n
Picture2.Print n
For i = 0 To n - 1
For j = 0 To n - 1
Input #1, am(i, j)
Picture3.Print Format(am(i, j), "0.0 ");
Next
Picture3.Print
Next
Close #1
For i = 0 To n - 1
If am(i, i) > 0 And am(i, n - 1 - i) > 0 Then
a = am(i, i)
am(i, i) = am(i, n - 1 - i)
am(i, n - 1 - i) = a
End If
Next
For i = 0 To n - 1
For j = 0 To n - 1
Picture4.Print am(i, j);
Next
Picture4.Print
Next
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, strtemp
Picture1.Print strtemp
Loop
retwal = replase("Microsoft Windows", "windows", "wondos", 1, 2)
Debug.Print retval
Close #1
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub