Отправлено: 13.10.15 16:55. Заголовок: xHarbour и SyBase

Добрый день, давно не был у нас на форуме.
Поставлена задача: выбрать данные из нескольких таблиц Sybase и записать их в DBF файлы. Есть исходный текст макроса на Excel, который выбирает данные, но поменялась структура таблиц, их наименование и взаимосвязи между ними...
Описание полей и таблиц Sybase есть.
Хотелось бы создать модуль в программе на xHarobour и выбирать из таблиц Sybase данные...

С чего начать и Как это сделать ?
Спасибо.

 Отправлено: 28.05.16 10:37. Заголовок: xHarbour Compiler bu..

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)

 Отправлено: 28.05.16 14:31. Заголовок: Oskar_AAA пишет: Ба..

Oskar_AAA пишет:

цитата:

База DBF уже создана из SYBASE посредством выбора данных по условию и экспортирована в формате DBF. П

База в харбуре нормально открывается и читабельна ?

 Отправлено: 28.05.16 15:07. Заголовок: HAZ, спасибо за вним..

HAZ, спасибо за внимание.
База создана из SYBASE и спокойно читается в xHarbour, проблема только с символьными полями
В SYBASE есть возможность экспорта результата выборки в различные форматы (Xls, Txt. Dbf...) при экспорте в Xls символьные поля тоже с "кракозябрами"....
формат XLS не подходит по причине ограничения на 65535 строк.

 Отправлено: 28.05.16 15:26. Заголовок: Oskar_AAA пишет: п..

Oskar_AAA пишет:

цитата:

проблема только с символьными полями

Если при текстовом просмотре и выборе UTF содержимое видно правильно, то перекодировку можно написать на Fopen() - FWrite()
Формат DBF известен , читаем блоками и пишем туда же

 Отправлено: 28.05.16 15:31. Заголовок: Oskar_AAA пишет: (X..

Oskar_AAA пишет:

цитата:

(Xls, Txt. Dbf...)

Текстовой кстати легче преобразовать будет.
Тхт - кстати открывается Excel без крякозябров , а в последних версиях Excel нет ограничения на 64К срок

 Отправлено: 28.05.16 15:57. Заголовок: Oskar_AAA попробуйт..

Oskar_AAA
попробуйте посмотреть dbf в harbour (можно взять от MiniGui, если нет hb 3.2 у вас)
REQUEST HB_CODEPAGE_UTF8EX
HB_SetCodePage( "UTF8EX" )
RDDSetDefault('DBFCDX')
Use UTF8 Alias UTF Exclusive NEW
browse()
или

HB_SetCodePage( "RU866" )
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8EX'
browse()

что то похожее пробовал давно с dbf в utf8 кодировке, но только средствами hb - получалось ok

 Отправлено: 28.05.16 16:01. Заголовок: Друзья, все таки нуж..

Друзья, все таки нужен DBF, с ним потом нужно работать...
Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

 Отправлено: 28.05.16 16:04. Заголовок: Oskar_AAA пишет: По..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

возможно ей нужен вызов REQUEST HB_CODEPAGE_UTF8EX , в Xharbour 1.2.3 ни чего такого
не нашел (может искал плохо).
Если это разовая операция я бы двигался в сторону которую предложил SergKis

 Отправлено: 28.05.16 16:06. Заголовок: Oskar_AAA пишет:Поче..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")

Вы уверены, что в поле данные в utf8 ?

 Отправлено: 28.05.16 16:08. Заголовок: Oskar_AAA пишет: По..

Oskar_AAA пишет:

цитата:

Почему не работает функция Hb_Utf8ToStr(Name,"RU866")???

попробуй hb_Translate( cStr, "UTF8", "RU1251" ), использовал ее когда то

 Отправлено: 28.05.16 16:13. Заголовок: SergKis при *REQU..

SergKis

при *REQUEST HB_CODEPAGE_UTF8EX
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_UTF8EX'

такой код проходит,
HB_CDPSelect("UTF8")
HB_SetCodePage( "RU866" )
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8EX'
browse()

Но, результат - крякозябры

 Отправлено: 28.05.16 16:21. Заголовок: Oskar_AAA возможно ..

Oskar_AAA
возможно надо
USE UTF8 ALIAS INP VIA 'DBFCDX' NEW CODEPAGE 'UTF8'
xHb в руках не держал и в нем не разбираюсь
но возможно перекодировку dbf из SyBase сделать на hb (режим export\import присутсвует по любому), а работать с dbf 866 xHb

 Отправлено: 28.05.16 16:28. Заголовок: попробовал - тоже са..

попробовал - тоже самое...
Есть алгоритм пересчета кодов UTF8 в RU866 ? /может написать самому блок кода по пересчету кодов старше 127.../

 Отправлено: 28.05.16 16:38. Заголовок: Haz попробуй hb_Tran..

Haz
попробуй hb_Translate( cStr, "UTF8", "RU1251" ), использовал ее когда то
не прошло, крякозябры...
может что-то надо подключить из LIB, CH?

# Include 'Achoice.Ch'
# Include 'Inkey.Ch'
# Include 'Directry.Ch'
# Include 'Setcurs.Ch'
# Include 'Dbstruct.Ch'
# Include 'Command.Ch'
# Include 'Dbedit.Ch'
# Include 'Excel.Ch'
# Include 'Hbgtinfo.Ch'

 Отправлено: 28.05.16 16:47. Заголовок: Oskar_AAA Какую код..

Oskar_AAA
Какую кодировку показывает Dbedit из темы ?
http://clipper.borda.ru/?1-4-0-00001125-000-0-0-1463462933

 Отправлено: 28.05.16 16:55. Заголовок: Dima, DBEDIT из темы..

Dima, DBEDIT из темы нет... но при выгрузке из SYBASE в TXT файл, FAR правильно показывает в OEM кодировке, в ANSI крякозябры...

 Отправлено: 28.05.16 16:59. Заголовок: DIMA. скачал DBEDIT ..

DIMA. скачал DBEDIT - показывает верно (F3)!!!
Что делать дальше,,,?

 Отправлено: 28.05.16 17:03. Заголовок: Кодировка 1251 - ОК,..

Кодировка 1251 - ОК, 866 - крякозябры

 Отправлено: 28.05.16 17:05. Заголовок: я уже что то совсем ..

я уже что то совсем потерялся в плане чего нужно сделать если честно
все смешалось в кучу RU866 , UTF8 , CP1251.
какова исходная задача то ?

 Отправлено: 28.05.16 17:13. Заголовок: Oskar_AAA пишет: Ко..

Oskar_AAA пишет:

цитата:

Кодировка 1251 - ОК

и причем тут UTF ?