Очистить текстовый файл

Получаю с 1С текстовый файл. Читаю его:
[code]Local gnFileHandle,nSize,cString
gnFileHandle = FOPEN(VDTXTFILE)
*Поиск конца файла
nSize = FSEEK(gnFileHandle, 0, 2)
IF nSize <= 0
* Если файл пустой
THIS.prj_AppName = ''
THIS.prj_UserLogin = ''
ELSE
* Если файл не пустой, читаем его содержимое
= FSEEK(gnFileHandle, 0, 0) && Стаём на начало файла (BOF)
cString = FREAD(gnFileHandle, nSize)
* Делим символьную строку через разделитель
RzbStr(cString, VDTXTZ, "Cur1C")
SELECT Cur1C
GO TOP
THIS.prj_UserLogin = ALLTRIM(f1)
SKIP
THIS.prj_AppName = ALLTRIM(f1)
ENDIF[/code]
дальше хочу очисть файл, чтобы он был пустой. Не подскажите как это сделать?

0

Автор публикации

Пользователи не найдены
Оставить комментарий
Авторизация
*
*
Генерация пароля