:: Архив конференции по VFP до 2005 года
txt in Win to Dos
GoshaS
В кратце: В таблицу из левого приложения экспортируется текстарь, после обработки, опять же возвращает тексарь с группировками и пр., в общем отчет. Все эти заморочки, для печати из под DOS-а ибо печатать надобно много и на матричном принтере. Текстовый документ формируется следующими командами:
F=FCREATE('rezalt.txt')
FPUTS(F, 'что')
FCLOSE(F)
Как програмно создать текстарь под DOS т.е. 866 к.страницу? чтоб сразу можно отправлять на печать (copy rezalt.txt LPT1) без преобразования текстового файла в другую кодовую страницу левыми приложениями.
Ratings: 0 negative/0 positive
Re: txt in Win to Dos
Владимир Максимов

Сообщений: 14095
Откуда: Москва
Дата регистрации: 02.09.2000
Примерно так:

FPUTS(F, CPCONVERT(1251,866,'что'))

Хотя, все то же самое можно сделать и с готовым файлом прогнав через

StrToFile(CPCONVERT(1251,866,FileToStr('rezalt.txt'),'rezaltDOS.txt')

PS: Функции StrToFile() и FileToStr() появились только в VFP6. В младших версиях придется качать через мемо-поле (APPEND MEMO, COPY MEMO). Кстати, у этих команд есть возможность указать кодовую странцу (опция AS)




------------------
Ratings: 0 negative/0 positive
Re: txt in Win to Dos
Igor Korolyov

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

CPCONVERT()




------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: txt in Win to Dos
Gosha$
Автор
Спасибо, только ошибочка в написании, надобно так:

StrToFile(CPCONVERT(1251, 866, FileToStr('rezalt.txt')),'rezaltDOS.txt')

Работает все на ура. Еще раз спасибо.
Ratings: 0 negative/0 positive


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

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

© 2000-2024 Fox Club 
Яндекс.Метрика