Отправлено: 04.07.09 20:49. Заголовок: OLE: Сделать DBF из XLS

Возникла такая вот необходимость... есть у кого рабочий вариант? Нужно ведь проверять все колонки на содержание в первой строке беспробельного латинского наименования, и чтобы ни одно наименование не повторялось, приводить ширину колонки к целочисленной, и наверное кучу ещё тонкостей...
И ещё интересно: в Excel 2007 через OLE сохранение в виде DBF-файла сработает, или она там обрублено напрочь - в меню сохранения файла ведь DBF-варианта уже нет...

 Отправлено: 03.10.11 18:43. Заголовок: СевДон пишет: Мож е..

СевДон пишет:

цитата:

Мож есчо раз выложить эти проги по конвертации?

Можна....
http://files.mail.ru/8DJQAL

Коментарии приветсвуются ...

 Отправлено: 28.10.15 16:53. Заголовок: А ещё, если не трудн..

А ещё, если не трудно.
Или программку прямо в посте написать, чтобы с обменниками не связываться,
которые через месяц удаляют файлы.

 Отправлено: 28.10.15 17:18. Заголовок: azoo пишет: Или про..

azoo пишет:

цитата:

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

По идее можно завести общий почтовый ящик на mail.ru , доступ к нему давать через личные сообщения.

 Отправлено: 30.10.15 15:33. Заголовок: azoo пишет: А ещё, ..

azoo пишет:

цитата:

А ещё, если не трудно.

Поддерживаю!

 Отправлено: 30.10.15 15:34. Заголовок: Dima пишет: По идее..

Dima пишет:

цитата:

По идее можно завести общий почтовый ящик на mail.ru , доступ к нему давать через личные сообщения.

Наверное проще яндекс или гугл диск расшареный

 Отправлено: 30.10.15 18:06. Заголовок: MIKHAIL пишет: Наве..

MIKHAIL пишет:

цитата:

Наверное проще яндекс или гугл диск расшареный

Нет, не нужно.
Лучше делать типа так, как в другой теме:
https://gist.github.com/VerchenkoAG/40c50f644459caa7ce3c

И найти можно будет всем и не потеряется.
Правда базы куда выкладывать к примеру, не знаю.

 Отправлено: 26.11.15 20:04. Заголовок: Добрый день, Возникл..

Добрый день,
Возникла необходимость обработки значения Excel в формате "дата ЧЧ:ММ:СС" и разделить на два поля : формате "D" и формат "С". Как это сделать?

Xl_Dat_Upr:=oSheet:Cells(Ni,2):Value возвращает D....

Спасибо...

 Отправлено: 26.11.15 21:20. Заголовок: Oskar_AAA что верне..

Oskar_AAA
что вернет ?
? Xl_Dat_Upr

 Отправлено: 26.11.15 22:11. Заголовок: Возвращает тип поля ..

Возвращает тип поля "D"...

 Отправлено: 26.11.15 22:21. Заголовок: я не про тип..

я не про тип

set date to german
? hb_datetime()
вернет 26.11.15 21:24:30.408
а что вернет EXCEL через олю в переменной Xl_Dat_Upr ?

 Отправлено: 27.11.15 16:46. Заголовок: возвращает 01.10.20..

возвращает 01.10.2015 09:25:31.00
остается конвертировать в нужный тип

 Отправлено: 27.11.15 16:56. Заголовок: Тип поля получается ..

Тип поля получается "D", если вывести Xtoc(Xl_dat_Upr) = 01.10.2015 09:25:31.00.
B=Xtoc((Xl_dat_Upr)
?b
20151001
показания по времени отсутствуют...?

 Отправлено: 27.11.15 17:12. Заголовок: Oskar_AAA Попробуй ..

Oskar_AAA
Попробуй результат загнать в hb_tstostr() или в hb_valtoexp()
а после разбери строку как нужно.

 Отправлено: 27.11.15 17:46. Заголовок: Dima что за функция..

Dima

что за функция tstostr(), valtoexp()?

у меня xharbour 1.2.1 rev.6476

 Отправлено: 27.11.15 18:00. Заголовок: Oskar_AAA пишет: чт..

Oskar_AAA пишет:

цитата:

что за функция tstostr()

см ChangeLog
http://sourceforge.net/p/xharbour/mailman/message/33552640/
за дату 2015-03-01 15:10

 Отправлено: 27.11.15 18:37. Заголовок: Где скачать hbextern..

Где скачать hbextern.ch, в версии от 2015-03-01 15:10

 Отправлено: 27.11.15 18:48. Заголовок: Oskar_AAA пишет: Гд..

Oskar_AAA пишет:

цитата:

Где скачать hbextern.ch, в версии от 2015-03-01 15:10

http://sourceforge.net/p/xharbour/code/HEAD/tree/trunk/xharbour/include/hbextern.ch

PS
Боюсь этот CH ни чего не даст.
Возможно достаточно там же дернуть сырец HB_TSTOSTR

 Отправлено: 27.11.15 19:02. Заголовок: Dima Спасибо, уже н..

Dima
Спасибо, уже нашел, скопировал,

# Include 'Command.Ch'
# Include 'Inkey.Ch'
# Include 'Dbedit.Ch'
# Include 'Setcurs.Ch'
# Include 'Excel.Ch'
# Include 'Hbgtinfo.Ch'
# Include 'Hbextern.Ch'

A:=oSheet:Cells(Ni,1):Value
?a
?valtype(a)
b=TSTOSTR(a)
?Valtype(b)
?b
wait
Error: Unresolved external '_HB_FUN_TSTOSTR' referenced from AVTO_002.OBJ

как быть?

 Отправлено: 27.11.15 20:09. Заголовок: Oskar_AAA пишет: ка..

Oskar_AAA пишет:

цитата:

как быть?

Вот сырец http://sourceforge.net/p/xharbour/code/HEAD/tree/trunk/xharbour/source/rtl/dateshb.c
Дерни от туда HB_TSTOSTR и прилинкуй к проге