14.3. ПРОГРАММА FileExamlpe

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

WriteBuf : STRING[12]:= 'Hello world’; - текстовая строка, которая записывается в файл.

ReadBuf : STRING[12]:= ‘’; - текстовая строка, в которую вычитываются данные из файла.

 

IF NOT SetFolder( file_name) THEN     - создание папки с именем test

     RETURN;               при помощи метода SetFolder

END_IF                   

 

Описание некоторых строк кода для записи строковой переменной WriteBuf в файл:

hFile:=SysFile.SysFileOpen('test/myLogFile.log',SysFile.AM_APPEND_PLUS, ADR(result)); - открывается файл с указанием полного пути к нему (если файла нет, то он будет создан), дописывание строки в конец файла.

 

result:=SysFile.SysFileWrite(hFile,ADR(WriteBuf),SIZEOF(writeBuf),ADR(result)); - запись в файл содержимого буфера.

 

xWriteCompleted :=TRUE; - переменная, по изменению которой в FALSE выполняется запись строки переменной WriteBuf в файл (устанавливается в TRUE при окончании записи).

 

Описание некоторых строк кода для чтения из файла данных в строковую переменную ReadBuf:

IF xwriteCompleted AND NOT xReadCompleted THEN – условие для вычитывания строки из файла «myLogFile.log» в переменную ReadBuf. Номер требуемой записи задается в переменной N (вычитывается 13 символов).

 

SysFile.SysFileSetPos(hFile,Offset); - установка указателя (курсора) в заданную позицию в файле.

 

hFile:=SysFile.SysFileOpen('test/myLogFile.log',SysFile.AM_READ, ADR(result)); - открывается файл myLogFile.log с правами на чтение (AM_READ).

 

result:=SysFile.SysFileRead(hFile,ADR(ReadBuf),SIZEOF(readBuf),ADR(result)); - вычитывается содержимое файла myLogFile.log в строковую переменную ReadBuf.