Изменение кодировки cpzero не помогает / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменение кодировки cpzero не помогает

7 сообщений из 7, страница 1 из 1

Изменение кодировки cpzero не помогает

#34638534

nrs

Гость

use weight
? cpdbf()

*866 кодировка
Brow
*ok русский текст читается
* Excel дбф-ка открывается русский текст читается

*делаю запрос с какими либо условиями, для простоты так:
select * from weight.dbf into table temp
? cpdbf()

*1251 кодировка поменялась
Brow
*ok русский текст читается
* Excel дбф-ку не открывает ругается неизвестный формат файла

use temp
copy to temp1.dbf as 866
use temp1
? cpdbf()

*866 кодировка вернулась
Brow
*ok русский текст читается
*Excel дбф-ку не открывает ругается неизвестный формат файла

Возвращаясь к temp.dbf который 1251
do cpzero with "temp.dbf" , 866
use temp
? cpdbf()

*866 кодировка вернулась
Brow
*абракатабра
*Excel дбф-ку не открывает

А мне нужно вывести результат запроса в excel
***
XX.Application.Cells(2,1)="№п/п"
XX.Application.Cells(2,2)="Машина"
XX.Application.Cells(2,3)="Водитель"
XX.Application.Cells(2,4)="Отправитель"
XX.Application.Cells(2,5)="Получатель"
XX.Application.Cells(2,6)="груз"
XX.Application.Cells(2,7)="Дата"
***
XX.Application.Cells(i+1,1)=temp.NADMISSION
XX.Application.Cells(i+1,2)=temp.CAR
XX.Application.Cells(i+1,3)=temp.DRIVER
XX.Application.Cells(i+1,4)=temp.FIRM
XX.Application.Cells(i+1,5)=temp.PLACE
XX.Application.Cells(i+1,6)=temp.GRUZ
XX.Application.Cells(i+1,7)=dtoc(temp.WDATEout)
***

...

Рейтинг:

0 / 0

04.07.2007, 15:55

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34638560

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

А copy to temp.xls type xl5 не подойдет?

...

Рейтинг:

0 / 0

04.07.2007, 16:00

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34638601

nrs

Гость

copy to temp.xls type xl5
Excel открывает русский текст читается.
Но, ведь это содержимое dbf с заголовками как в dbf.
А я вывожу отчет
Где в заголове название с периодом дат и времени
XX.Application.Cells(1,2)="Отчет по грузу за период ";
+dtoc(tdatain)+" по "+dtoc(tdataout)+" г."+ttimein+"-"+ttimeout
И плюс названия полей
XX.Application.Cells(2,1)="№п/п"
XX.Application.Cells(2,2)="Машина"
XX.Application.Cells(2,3)="Водитель"

...

Рейтинг:

0 / 0

04.07.2007, 16:08

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34638622

nrs

Гость

Более того еще и макрос стартует
**Запуск макроса
XX.Application.Run("my")

...

Рейтинг:

0 / 0

04.07.2007, 16:13

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34638641

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

А что тебе cтроку вставить мешает? Например:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

	copy to (recv.cTopPath) type xl5
	oEx = newobject("Excel.Application")
	with oEx
		.Visible= 1 
		.Workbooks.Open(recv.cTopPath)
		.cells( 1 , 1 ).value = 'Наименование'
		.cells( 1 , 2 ).value = 'Остаток'
		.cells( 1 , 3 ).value = 'Заказ'
		.range(.cells( 1 , 1 ), .cells( 1 , 3 )).font.bold = .t.
	    .cells( 1 , 1 ).Columns.ColumnWidth =  50 
	    .Rows("1:1").Insert(- 4121 ) && Добавление заголовка
	    with .cells( 1 , 1 )
	    	.value = alltrim(iif(empty(recv.cKioskAdr), recv.adress, recv.cKioskAdr))
	    	.font.size = .font.size +  2 
	    	.font.bold = .t.
	 	endwith
		.ActiveWorkbook.Save()
	endwith

Но если отчет сложный, то я предпочитаю делать текстовый файл с разделителями, потом его открывать экселем и добавлять форматирование, формулы и т.п.

...

Рейтинг:

0 / 0

04.07.2007, 16:17

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34638997

nrs

Гость

ок, спасибо.
Тогда будет еще вопрос, уже не по кодировке.
У меня готовый файл xsl и в нем макрос.
Теперь как его программно создать и записать в excel. Получается чушь. Переформулирую: переделать макрос в код foxpro VPF5.0a

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

Sub my()
*итоги по грузу сумма нетто ,итог по отправителю сумма нетто
Cells.Select
    
    Selection.Subtotal GroupBy:= 4 , Function:=xlSum, TotalList:=Array( 11 ), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    Selection.Subtotal GroupBy:= 6 , Function:=xlSum, TotalList:=Array( 11 ), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True

*рисуем ч/з условное форматирование горизонтальные линии
*не хороший вариант нарисовать горизонтальные линии, чтоб лучше читалось
Columns("A:K").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ОСТАТ(СТРОКА(A2);2)=0"
    Selection.FormatConditions( 1 ).Borders(xlLeft).LineStyle = xlNone
    Selection.FormatConditions( 1 ).Borders(xlRight).LineStyle = xlNone
    With Selection.FormatConditions( 1 ).Borders(xlTop)
        .LineStyle = xlDash
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions( 1 ).Borders(xlBottom)
        .LineStyle = xlDash
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions( 1 ).Interior.ColorIndex =  2 
        
 *защита листа(только без пароля)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

...

Рейтинг:

0 / 0

04.07.2007, 17:46

| Ответить | Цитировать | Написать

Изменение кодировки cpzero не помогает

#34639413

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

По вопросу о DBF.

Кроме кодовой страницы существует еще такая вещь, как версия файла DBF.

Excel напрямую (файл/открыть) открывает только файлы DBF созданные в версии FP2.x Для старших версий FoxPro требуется открывать такие таблицы уже с использованием ODBC. Из Excel - это пункт меню Данные/Импорт внешних данных. О чем Excel честно и сообщает.

Чтобы "трансформировать" таблицу в младшую версию используют синтаксис

Код: plaintext

copy to temp1.dbf as  866  TYPE FOX2X

По поводу макроса

Перевод макроса Excel в синтаксис FoxPro

...

Рейтинг:

0 / 0

04.07.2007, 21:31

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменение кодировки cpzero не помогает

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=34638534&tid=1589060]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	12ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	1ms
others:	224ms

total:	366ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы