13.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; - установить флаг в TRUE при окончании записи.
Описание некоторых строк кода для чтения из файл данных в строковую переменную ReadBuf:
IF xwriteCompleted AND NOT xReadCompleted THEN – если запись строковой переменной WriteBuf в файл закончена, а чтение из файла еще не выполнилось.
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.