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

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

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

lcOutput="...."
STRTOFILE(CPCONVERT(CPCURRENT(), 866 ,lcOutput),'Output.txt')
...
Рейтинг: 0 / 0
24.03.2005, 14:24
    #32978668
ЕленаШ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
Спасибо Алекс, работает как надо, но только для одной строки , потом перезаписывает файл, как все вывести (в хэлпе команду StrToFile Не нашла)
...
Рейтинг: 0 / 0
24.03.2005, 14:26
    #32978674
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
А Фокс то у тебя какой?
...
Рейтинг: 0 / 0
24.03.2005, 14:29
    #32978688
ЕленаШ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
Фокс то 6-й , хелп какой нашла стоит
...
Рейтинг: 0 / 0
24.03.2005, 14:34
    #32978710
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
Точно не помню, но по-моему в 6-ке эта ф-ция уже была. Ты спробую сам код, если не выругается то все ОК.
...
Рейтинг: 0 / 0
24.03.2005, 14:40
    #32978735
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
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
24.03.2005, 14:41
    #32978740
ЕленаШ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
Функция прокатывает, но как я уже сказала выше записывается одна строка затем файл перезаписывается, и в результате там одна последняя строка
...
Рейтинг: 0 / 0
24.03.2005, 14:43
    #32978753
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
См. пост выше, третий параметр ф-ции в .T. и будет дозаписывать.
...
Рейтинг: 0 / 0
24.03.2005, 14:54
    #32978783
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка данных в TXT файл в кодировке DOS
Дико извеняюсь но как вариант
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
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка данных в TXT файл в кодировке DOS / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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