Практическая работа 18. Объекты файловой системы. Использование объекта CommonDialog

Проводится работа с объектом TextStream:

· создание объекта stream - потока данных (текстового файла). Для создания используется метод CreateTextFile () объектаFileSystemObject,

· запись данных в файл с использованием метода Write объекта TextStream,

· чтение файла с использованием метода Read объекта TextStream.

Работа выполняется с использованием объекта CommonDialog, его функции, используемые в данном случае, описаны под комментариями в коде, данном ниже. Объект CommonDialog нужно включить в коллекцию инструментов: меню Проект > Компоненты > Управления > Microsoft CommonDialog Contro l, затем cледует поместить его на форму и присвоить значение свойству Name (здесь - cdlgStudy).

Для создания возможности использования объектов файловой системы нужно подключить библиотеку DLL, содержащую эти объекты: меню Разработать > Ccылки > Microsoft Scriptlet Component (сделать щелчок на соответствующем элементе управления CheckBox).

Последовательность действий:

1. создать на форме 2 элемента управления CommandButton, рис. 3.2 (справа вверху),

2. для ввода/вывода текста создать на форме 2 текстовых поля (Name = txtInput и Name = txtOutput), см. код и рис. 3.2 в центре (свойство Multiline = -1: ' True),

3.

Рис. 3.2. Объекты файловой системы; объект CommonDialog. Форма после старта

4. вывести на форму элемент управления CommonDialog, см. выше,

5. ввести код, данный ниже, стартовать проект и далее:

o сделать щелчок на верхней командной кнопке - ввести в диалоговом окне Открытие файла имя файла,

o сделать повторный щелчок - проверить наличие созданного файла,

o ввести текст в левое текстовое поле,

o сделать повторный щелчок на верхней командной кнопке - запись данных,

o сделать щелчок на нижней командной кнопке - чтение файла, см. рис. 3.2

Option Explicit' описание объекта fileSys Dim fileSys As New FileSystemObject Dim stream As TextStream 'описание объекта поток данныхDim str1 As String, 'описание строки данныхDim fileName As String 'описание имени создаваемого файла' ввод имени файла, создание потока данных, ' закрыть объект Private Sub Command1_Click()' для открытия стандартного диалогового окна ' использовать метод ShowOpen объекта CommonDialog cdlgStudy.ShowOpen fileName = cdlgStudy.FileName ' задать имя файла' создать поток данных с заданным именемSet stream = fileSys.CreateTextFile(fileName, True) ' строковые данные получить вводом в текстовое поле str1 = txtInput.Text ' запись данных: использовать метод Write объекта streamstream.Write (str1) ' использовать метод Close для того, чтобы закрыть объектstream.Close End SubPrivate Sub Command2_Click() ' чтение потока данных' использовать метод ShowOpen объекта CommonDialog cdlgStudy.ShowOpenfileName = cdlgStudy.FileName ' определить имя файла' открыть поток данныхSet stream = fileSys.OpenTextFile(fileName)' чтение: выполнять конкатенацию до тех пор, пока не' появится признак конца файлаDo While stream.AtEndOfStream <> True str1 = str1 & stream.Read(1)Loopstream.Close ' закрыть поток данныхtxtOutput.Text = str1 ' вывести данные в текстовое поле End Sub

Работа с файлами: запись данных в файл, чтение из файла

Запись /чтение данных из приложения в файл проводится через коммуникационные каналы ввода/вывода. При открытии файлов им ставятся в соответствие каналы, имеющие номера. Есть ограничения на число открытых файлов. Функция FreeFile () возвращает номера свободных каналов (их можно использовать для открытия файлов).Рассматриваются следующие типы доступа к файлам: последовательный, произвольный, двоичный