Функция возвращает символьную строку, содержащую
SAVEFSEEK() --> cFileSeekEnvironment
Возвращаемое значение
cFileSeekEnvironment - символьная строка, содержащая информацию,
восстанавливаемую функцией RESTFSEEK().
Описание
Функция возвращает символьную строку, содержащую информацию о текущей
среде функции FILESEEK(). Это позволяет, прервав обработку и сохранив
полученное значение в переменной, вызвать FILESEEK() с заданием других
параметров. После циклической обработки выделенных файлов, передав
функции RESTFSEEK() сохраненную в переменной символьную строку, можно
восстановить среду и продолжить прерванную обработку.
Примечания
. При рекурсивных вызовах следует заботиться о наличии доступной
оперативной памяти для сохранения возвращаемых функцией значений.
Примеры
. Вывод имен всех файлов во всех поддиректориях, начиная от корневой
директории текущего диска. Процедура GETFILES() рассчитана на
рекурсивные вызовы:
GetFiles("\") // Вызов рекурсивной процедуры
// с заданием корневой директории
RETURN
PROCEDURE GetFiles(cPath)
LOCAL cFile, cSeekEnv // Переменная для сохранения
// среды FILESEEK()
? // Вывод пустой строки для
// отделения директории
cFile := FILESEEK(cPath + "*.*", 63) // Выделение всех файлов с
// любыми атрибутами
DO WHILE .NOT. EMPTY(cFile)
IF cFile <> "." // ".." и "." - фиктивные
IF ISBIT(FILEATTR(), 5) // Поддиректория?
cSeekEnv := SAVESEEK() // Сохранение среды
GetFiles(cPath + cFile + "\") // Рекурсивный вызов с путем
