powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка данных в TXT файл в кодировке DOS
14 сообщений из 14, страница 1 из 1
Выгрузка данных в TXT файл в кодировке DOS
    #32978476
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пробую командой SAY в Windows кодировке полдучается(
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978489
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Формируй данные в стринговой переменной, потом CPCONVERT() и STRTOFILE()
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978572
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CPCONVERT(nCurrentCodePage, nNewCodePage, cExpression)

nNewCodePage должен быть = 866?
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978581
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если хочешь в DOS-кодировке, то да.
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978607
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
напиши пожалйста пример, не успеваю разобраться
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978634
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЕленаШнапиши пожалйста пример, не успеваю разобраться

Код: plaintext
1.
2.
3.
local lcOutput as string

lcOutput="...."
STRTOFILE(CPCONVERT(CPCURRENT(), 866 ,lcOutput),'Output.txt')
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978668
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо Алекс, работает как надо, но только для одной строки , потом перезаписывает файл, как все вывести (в хэлпе команду StrToFile Не нашла)
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978674
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А Фокс то у тебя какой?
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978688
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Фокс то 6-й , хелп какой нашла стоит
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978710
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Точно не помню, но по-моему в 6-ке эта ф-ция уже была. Ты спробую сам код, если не выругается то все ОК.
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978735
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Writes the contents of a character string to a file.

STRTOFILE(cExpression, cFileName [, lAdditive | nFlag])
Return Value
Numeric; the number of bytes written to the file.

Parameters
cExpression
Specifies the character string that is written to the file. cExpression can be a literal character string, an expression that evaluates to a character string, or a character type variable, array element, or field.
cFileName
Specifies the name of the file to which the character string is written. Include a path with the file name if the file is in a directory other than the current default directory. If the file you specify does not exist, Visual FoxPro automatically creates it.
lAdditive (for backward compatibility)
Specifies whether the character string is appended to the end of the file. If lAdditive is true (.T.), the character string is appended to the end of the file.
If lAdditive is false (.F.) (the default), the file is overwritten with the character string. You are asked if you want to overwrite an existing file if SET SAFETY is set to ON. If SET SAFETY is set to OFF, the file is overwritten without warning.

nFlag
In this version of Visual FoxPro, you can use the nFlag parameter instead of lAdditive which enables you to also chose to write UTF-8 and Unicode Byte Order Marks. The following table describes the valid nFlag values. nFlag Bit Description
0 (default) 0000 The file is overwritten with the character string (formerly lAdditive=.f.)
1 0001 The string is appended to the end of the file (formerly lAdditive=.t.).
2 0010 Write Unicode Byte Order Mark (BOM) FF FE at the beginning of file. cExpression is assumed to be UNICODE, therefore no translation is performed. The file is overwritten
4 0100 Write UTF-8 Byte Order Mark (BOM) EF BB BF at the beginning of file. cExpression is assumed to be UTF-8, therefore no translation is performed. The file is overwritten.

Remarks
An nFlag value of 3 or 5 is not valid. You cannot attempt to write a new Byte Order Mark if nFlag bit 1, Additive, is set.

Unlike earlier versions of Visual FoxPro, STRTOFILE( ) opens a file in Shared rather than Exclusive mode. This is useful when multiple servers attempt to simultaneously write to the same file. Because of this change, you might not need to check for STRTOFILE( ) to return 0 (failure to open a file).
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978740
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Функция прокатывает, но как я уже сказала выше записывается одна строка затем файл перезаписывается, и в результате там одна последняя строка
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978753
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
См. пост выше, третий параметр ф-ции в .T. и будет дозаписывать.
...
Рейтинг: 0 / 0
Выгрузка данных в TXT файл в кодировке DOS
    #32978783
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дико извеняюсь но как вариант
g1=fopen("oldFile",2)
g2=fopen("newFile",2)
if g1>0 and g2>0
do while feof(g1)
ss=fgets(g1)
fputs(g2,cpconvert(1251,866,ss))
enddo
endif
fclose(g1)
fclose(g2)
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка данных в TXT файл в кодировке DOS
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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