Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись строчки в текстовый файл / 3 сообщений из 3, страница 1 из 1
08.06.2006, 07:04
    #33779320
Нагимов Тимур
Нагимов Тимур
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись строчки в текстовый файл
Один из сотрудников в отпуск ушел, а мне на сопровождение осталась написаная им на foxpro 2.6 программа, которая сразу же начала глючить:) В фоксе слабо разбираюсь, кто может подсказать как записать (добавить) какую либо информацию в текстовый файл по ходу работы программы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2006, 08:01
    #33779350
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись строчки в текстовый файл
Set Text to MyFile.TXT On NoShow Additive
\Твоя строка
Set Text to
или
FOpen, FSeek, FWrite/FPuts, FClose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2006, 10:19
    #33779627
Valerii
Valerii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись строчки в текстовый файл
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
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,'') -для досовских русских букв...

Пользуйся...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Запись строчки в текстовый файл / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 457ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1591461]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 159ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 216ms
total:  457ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]