powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
7 сообщений из 7, страница 1 из 1
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34188923
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вообщем то вопрос думаю понятен не могу сделать текстовый файл,

если кто делал то откликнитесь плиззз...
...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34189040
mazdayвообщем то вопрос думаю понятен не могу сделать текстовый файл,

если кто делал то откликнитесь плиззз...
Я, конечно, текстового файла именно для Сбербанка не делал. Но различных текстовых файлов в свое время наформитровал "по самое нехочу"...
Варианты:
1. сделать репорт и перенаправить вывод репорта в текстовый файл
2. формировать файл при помощи низкоуровневых функций: fcreate(), fputs(), fwrite() и т.д.

А в чем конкретно вопрос-то?
...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34189315
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mazdayвообщем то вопрос думаю понятен не могу сделать текстовый файл,

если кто делал то откликнитесь плиззз...
Если вы знаете формат файла, то нет никаких проблем.
Я делаю примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
*-- Пишу в файл m.lcFileName
SET TEXTMERGE ON NOSHOW
SET TEXTMERGE ON
SET TEXTMERGE TO (m.lcFileName)
m.lnFileHandle = _TEXT
*--Дальше запись в файл
\Твой текст  c новой строчки
\\Твой текст  в той же  строке
*-- Запись с новой строки даты
\<<DATE()>>
...
*-- Запись с новой строки из поля MyTable.MyField
\<<MyTable.MyField>>
...
..
SET TEXTMERGE OFF
m.llRetValue = FCLOSE(m.lnFileHandle)
IF !m.llRetValue
   MESSAGEBOX("Не могу закрыть файл: " + m.lcFileName,  16 , "ОШИБКА ФОРМИРОВАНИЯ ФАЙЛА")
   RETURN .F.
ENDIF

Вообщем, читайте HELP по командам SET TEXTMERGE.. и \\ и \
С уважением, Алексей.
...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34189806
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну примерно тоже самое....
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Select sb
* Табличка с данными
Set Textmerge To .\tdbf\sb.txt On Noshow
\\<<"#FILESUM ">><<ALLTRIM(STR(s, 20 , 2 ))>>
\<<'#TYPE 7'>>
\<<'#SERVICE 19'>>
\<<'#NOTE'>>
	SCAN 
\<<ALLTRIM(fio)>><<';'>><<ALLTRIM(adr)>>
\\<<';'>><<lic2>><<';'>>
\\<<deb>><<';;;;'>>
	ENDSCAN
\<<>>
Set Textmerge To
RETURN  

...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34194772
ORAselect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такие выгрузки на самом деле делаются ув соответствии с шаблоном и имеют разделитель |, так что самый простой вариант :
1. Создай файл на диске, предварительно убив старый, если есть с таким именем.
2. Открой таблицу, в которой данные для выгрузки
SCAN
3. Запомни в переменную сформированную строку
4. Запиши переменную в файл.
5. Запиши в следующую позицию (chr(13)+chr(10))
ENDSCAN

закрой файл.

Если есть проблемы с созданием файла, читай HELP
...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34194793
ORAselect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вдогон:
FCREATE() создает файл
FOPEN() открывает существующий
FCLOSE() закрывает файл

FPUTS() читает
FREAD()

FWRITE() пишет

FSEEK() перемещает указатель в файле

FFLUSH() принудительно пишет на диск из буфера.
...
Рейтинг: 0 / 0
Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
    #34194799
ORAselect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Тьфу,
FPUTS пишет строку, а не читает
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом сделать текстовый файл в Сбербанк(зарплата) ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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