Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
31
Добавлен:
02.05.2014
Размер:
45.06 Кб
Скачать

Уфимский Государственный Авиационный

Технический Университет.

Отчет по лабораторной работе №6

Работа файлами и строками

Выполнил: студент группы ОД – 144

Хасанов Э. Р.

Проверил: Сираева Л. Р.

2004г.

Цель работы

Целью работы является изучение возможностей разработки приложений, взаимодействующих с файловой системой персонального компьютера и работы со строками.

  1. Какие основные операции с файлами есть в Visual Basic?

Visual Basic позволяет открывать текстовый файл для чтения из него данных, создавать файл для записи в него данных,  добавлять данные в уже существующий файл и изменять атрибуты файлов.

  1. Как открыть или создать файл?

Для открытия или создания файла используется функция Open, после которой идет имя файла. Например:

Open C:\Эрик.txt

  1. Как закрыть файл?

Чтобы закрыть файл используется функция Close, после которой идет имя файла. Например:

Close C:\Эрик.txt

  1. Как закрыть все открытые файлы?

Чтобы закрыть все открытые файлы, используется функция Reset.

  1. Как прочитать данные из файла?

Чтобы прочитать данные из файла, надо сначала его открыть. С помощью функции Input производится чтение данных из файла. Например:

Open "test.dat" For Input As #1

Input #1, strS

Close #1

  1. Как записать данные в файл?

Чтобы записать данные в файл, надо сначала его открыть. С помощью функции Output производится запись данных в файл. Например:

Open "test.dat" For Output As #1

Print #2, "Сумма  ="; sngSum

Close #2

  1. Как задать имя файла, находящегося в некоторой папке  на жестком диске?

Для того чтобы задать имя файла находящегося в некоторой папке на жестком диске надо указать его полное имя.

  1. Как добавить данные в файл?

Чтобы дописать данные в файл, надо сначала его открыть. С помощью функции Append производится запись данных в конец файла. Например:

Open "test1.txt" For Append As #3

Print #3, strSS

Close #3

  1. Как определить метку конца файла?

Для определения метки конца файла используется функция EOF.

  1. Что должно присутствовать в текстовом файле, чтобы запятые не воспринимались как признак перехода на новую строку?

Чтобы запятые не воспринимались как признак перехода на новую строку в текстовом файле текст должен быть заключён в двойные кавычки.

  1. Какой объект можно использовать для вывода текста, прочитанного из текстового файла?

Для вывода текста, прочитанного из текстового файла можно использовать picturebox.

  1. Какой символ является разделителем при вводе числовых данных из файла?

Разделителем при вводе числовых данных из файла является запятая.

  1. Какой объект используется для визуального выбора диска?

Для визуального поиска файла на диске и его открытия (задания имени) используем объект DriveListBox. 

  1. Какой объект используется для визуального выбора папки?

Для визуального поиска файла на диске и его открытия (задания имени) используем объект DirListBox.

  1. Какой объект используется для визуального выбора файла?

Для визуального поиска файла на диске и его открытия (задания имени) используем объекты 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