Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Запись строчки в текстовый файл  [new]
Нагимов Тимур
Member

Откуда: Нефтекамск
Сообщений: 10
Один из сотрудников в отпуск ушел, а мне на сопровождение осталась написаная им на foxpro 2.6 программа, которая сразу же начала глючить:) В фоксе слабо разбираюсь, кто может подсказать как записать (добавить) какую либо информацию в текстовый файл по ходу работы программы?
8 июн 06, 07:04    [2752129]     Ответить | Цитировать Сообщить модератору
 Re: Запись строчки в текстовый файл  [new]
piva
Member

Откуда: Курган
Сообщений: 1096
Set Text to MyFile.TXT On NoShow Additive
\Твоя строка
Set Text to
или
FOpen, FSeek, FWrite/FPuts, FClose
8 июн 06, 08:01    [2752174]     Ответить | Цитировать Сообщить модератору
 Re: Запись строчки в текстовый файл  [new]
Valerii
Member

Откуда:
Сообщений: 749
Text_file = 'C:\test.txt'
hndl = FCREATE(Text_file,0)
IF hndl < 1
MESSAGEBOX(' Невозможно создать текстовый файл.',16+8+256,'Внимание')
RETURN
ENDIF
txtItemName = 'Твоя сторока1.... '
= FPUTS(hndl, 'S,1,______,_,__;'+CPCONVERT(1251, 866, Alltrim(txtItemName))

txtItemName = 'Твоя сторока2.... '
= FPUTS(hndl, 'S,1,______,_,__;'+CPCONVERT(1251, 866, Alltrim(txtItemName))

txtItemName = 'Твоя сторока3.... '
= FPUTS(hndl, 'S,1,______,_,__;'+CPCONVERT(1251, 866, Alltrim(txtItemName))
= FCLOSE(hndl)
Или в цикле запулить данные таблицы ...

CPCONVERT(1251, 866,'') -для досовских русских букв...

Пользуйся...
8 июн 06, 10:19    [2752554]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить