Свойства #
EndOfFile #
Описание
Получает значение, определяющее, находится ли текущая позиция чтения файла в конце файла.
EndOfFile : Boolean
Значение свойства (ReadOnly)
Тип: Boolean
True - если достигнут конец файла, False - в противном случае.
Set f = ag.app.NewObject("File")
f.Open "Read", ag.database.FolderPath & "Test.txt"
Do While Not f.EndOfFile
ag.app.MsgBox f.ReadLn
Loop
almaGRID APIМетоды #
Close #
Описание
Закрывает файл.
Close
Комментарии
Внимание! Файл необходимо закрывать в каджом скрипте, где он открывается. В противном случае, файл может остаться заблокированным до конца работы приложения.
f.Close
Delete #
Описание
Закрывает и удаляет файл.
Delete
f.Delete
Open #
Описание
Открывает текстовый файл.
Open ( OpenMode String , FilePath String , [PrmXML String = '' ] )
Параметры
| OpenMode | String | Режимы открытия файла:
'Read' - файл будет открыт для чтения. 'Write' - файл будет открыт для записи, если файл уже существует, он будет перезаписан. 'Append' - файл будет открыт для добавления записей в существующий файл, если файл отсутствует, то он будет создан.
|
| FilePath | String | Путь файла.
|
| PrmXML | String | Необязательный параметр. Значение по умолчанию '' . Строка параметров в виде <prm name1='value1' name2='value2' ... nameN='valueN'/> Параметры: autoFlush - Boolean. Если 'True', то после выполнения каждой операции записи буфер будет в сбрасываться в файл. Значение по умолчанию: 'True'. addTimeToBeginningOfLine - Boolean. Если 'True', то в начало каждой записываемой строки будет добавляться текущее дата и время. Значение по умолчанию: 'False'. |
'Пример использования лог-файлов для связанных скриптов
Set logf = ag.app.NewObject("File")
logf.Open "Write", ag.database.FolderPath & "Test.log" , "<prm addTimeToBeginningOfLine='true'/>"
logf.WriteLn "Сообщение1"
logf.Write "Длительная операция"
For i = 1 to 10
logf.Write "."
Next
logf.WriteLn
logf.WriteLn "Сообщение2"
'....
'вызов Скрипта2
'....
logf.Close
''Скрипт2
Set logf = ag.app.NewObject("File")
logf.Open "Append", ag.database.FolderPath & "Test.log" , "<prm addTimeToBeginningOfLine='true'/>"
logf.WriteLn "Сообщение3"
'....
logf.CloseReadLn #
Описание
Читает строку из файла.
ReadLn : String
Возвращаемое значение
Тип: String
Строка.
Set f = ag.app.NewObject("File")
f.Open "Read", ag.database.FolderPath & "Test.txt"
Do While Not f.EndOfFile
ag.app.MsgBox f.ReadLn
LoopWrite #
Описание
Записывает строку в файл, не записывает символы конца строки.
Write ( [Str String = '.' ] ) : String
Возвращаемое значение
Тип: String
Строка.
Параметры
| Str | String | Необязательный параметр. Значение по умолчанию '.' . Строка.
|
f.Write 2.2 f.Write 'обычно используется для индикации прогресса длительных операций
WriteLn #
Описание
Записывает строку в файл и добавляет символы конца строки.
WriteLn ( Str String ) : String
Возвращаемое значение
Тип: String
Строка.
Параметры
| Str | String | Строка.
|
f.WriteLn f.WriteLn "Строка1" & vbTab & 55.3 & vbTab & (33 = 25)
