FoxClub Forums > Visual Foxpro, Foxpro for DOS > Очистить текстовый файл ::

• Войти

Очистить текстовый файл
hztp_serg Сообщений: 577 Откуда: Хмельницкий Дата регистрации: 19.06.2007	hztp_serg 24.11.20 17:07:36 Получаю с 1С текстовый файл. Читаю его: 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 дальше хочу очисть файл, чтобы он был пустой. Не подскажите как это сделать?

hztp_serg

Сообщений: 577
Откуда: Хмельницкий
Дата регистрации: 19.06.2007

hztp_serg

24.11.20 17:07:36

Получаю с 1С текстовый файл. Читаю его:


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

дальше хочу очисть файл, чтобы он был пустой. Не подскажите как это сделать?

Re: Очистить текстовый файл
Taran Сообщений: 13623 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 24.11.20 17:25:26 См. Fchsize

Re: Очистить текстовый файл
hztp_serg Сообщений: 577 Откуда: Хмельницкий Дата регистрации: 19.06.2007	hztp_serg 24.11.20 17:25:35 И ещё вопрос в догонку. Когда читаю текстовый файл, то вместо этого: [attachment 34265 1c_txt_vfp_002.jpg] получаю это: [attachment 34264 1c_txt_vfp_001.jpg] что нужно сделать, чтобы получить желаемый результат?

Re: Очистить текстовый файл
Taran Сообщений: 13623 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 24.11.20 17:28:52 Cpconvert

Re: Очистить текстовый файл
hztp_serg Сообщений: 577 Откуда: Хмельницкий Дата регистрации: 19.06.2007	hztp_serg 24.11.20 17:44:48 Кодовая страница текстового файла определяется так: [attachment 34267 1c_txt_vfp_003.jpg] Чтобы сделать конвертирование нужно указать исходную кодовую страницу, например: CPCONVERT(10000, 1252, gcCharExpr) не знаю как в моём случае её определить.

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

hztp_serg

Сообщений: 577
Откуда: Хмельницкий
Дата регистрации: 19.06.2007

hztp_serg

24.11.20 17:44:48

Кодовая страница текстового файла определяется так:

[attachment 34267 1c_txt_vfp_003.jpg]

Чтобы сделать конвертирование нужно указать исходную кодовую страницу, например:

CPCONVERT(10000, 1252, gcCharExpr)

не знаю как в моём случае её определить.

Re: Очистить текстовый файл
Taran Сообщений: 13623 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 24.11.20 18:03:28 Пардон. Видимо strconv надо. Давненько не писал на фоксе.

Re: Очистить текстовый файл
hztp_serg Сообщений: 577 Откуда: Хмельницкий Дата регистрации: 19.06.2007	hztp_serg 24.11.20 18:30:42 В результате конвертации: STRCONV(cString,11) получаю результат: [attachment 34268 1c_txt_vfp_004.jpg] так уже лучше. Только знак вопроса почему-то вначале появляется.

Re: Очистить текстовый файл
Taran Сообщений: 13623 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 24.11.20 18:36:01 Скорее всего это BOM или как там точно не помню. Один или два байта вначале файла. Указывт на кодировку. Просто выкинь их.

Re: Очистить текстовый файл
Igor Korolyov Автор Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 27.11.20 21:17:21 FILETOSTR() - и не нужно 90% приведенного кода. Проверить "на пустоту" можно и через Empty(). Отрезать BOM, а точнее проверить что в самом начале именно BOM и стоит, и в зависимости от этого уже производить конвертацию из UTF-8 (при том той части "строки" что находится после BOM) - это ещё более правильно. Не знаю что делает RzbStr - но т.к. он зачем-то возвращает результат в курсоре, то вполне вероятно он много всего абсолютно ненужного делает. Советую почитать про функцию ALINES() - конкретно для "разбора строки с разделителем ;" он вполне подходит. ------------------ WBR, Igor

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

Igor Korolyov
Автор

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

27.11.20 21:17:21

FILETOSTR() - и не нужно 90% приведенного кода. Проверить "на пустоту" можно и через Empty(). Отрезать BOM, а точнее проверить что в самом начале именно BOM и стоит, и в зависимости от этого уже производить конвертацию из UTF-8 (при том той части "строки" что находится после BOM) - это ещё более правильно.
Не знаю что делает RzbStr - но т.к. он зачем-то возвращает результат в курсоре, то вполне вероятно он много всего абсолютно ненужного делает.
Советую почитать про функцию ALINES() - конкретно для "разбора строки с разделителем ;" он вполне подходит.

------------------
WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 25 (Гостей: 25)