Создать XML-объект

User

Сообщений: 33 Регистрация: 07.06.2008

Москва, ООО "БЭСТ-Программы"

05.02.2012 16:41:43

Текст кода:

WIN32_OLEINITIALIZE()
TRY
//oXml := oleCreateObject( "Excel.Application" )
oXml := oleCreateObject("MSXML2.DomDocument.4.0.Application" )
CATCH
Alert("Невозможно создать объект!")
RETURN aVal
END

Объект не создает, пишет "Невозможно создать объект. Опции ALERT не указаны!"
В чем ошибка? Объект Excel создает замечательно.

С уважением, Ростовцева Екатерина

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

06.02.2012 11:37:54

Мы про БЭСТ-5 говорим ?
Вот примерчик

Код
LOCAL oXml:=HXMLDoc():New("UTF-8")

Екатерина Ростовцева

User

Сообщений: 33 Регистрация: 07.06.2008

Москва, ООО "БЭСТ-Программы"

06.02.2012 19:32:51

Спасибо огромное что ответили!!!!
Да правильно, мне нужно в БЭСТ5 открыть XML файл и достать оттуды информацию. Код взяла из БЭСТ4, там программа отрабатывала замечательно.

Цитата
nordk пишет: LOCAL oXml:=HXMLDoc():New("UTF-8")

Это у меня отрабатывает, а дальше у меня был такой код:

oXml:setProperty("NewParser",.T.)
cOldTrapShift := TRAPSHIFT("")
oXml:async:=.F.
oXml:load(cXml)
tables := oXml:selectNodes("/*/*/*/*")
FOR i:=0 TO tables:length-1
table:=tables:item(i)
cTable:=table:nodeName
k:=ASCAN(aNodes3,cTable)

Этот код отрабатывать не хочет. В БЭСТ534 другой принцип работы с XML-объектом?

С уважением, Ростовцева Екатерина

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

07.02.2012 08:46:20

Код

CLASS HXMLNode

   DATA title
   DATA type
   DATA aItems  INIT {}
   DATA aAttr   INIT {}

   METHOD New( cTitle, type, aAttr )
   METHOD Add( xItem )
   METHOD GetAttribute( cName )
   METHOD SetAttribute( cName,cValue )
   METHOD Save( handle,level )
   METHOD Find( cTitle,nStart )
ENDCLASS

Вот эти 2 строчки попробуйте, а потом в отладчике познакомьтесь с переменной
atable и oXml

Код
xDoc:=oXml:Read(cTmp) atable := oXml:aItems[1]:aItems

Екатерина Ростовцева User Сообщений: 33 Регистрация: 07.06.2008 Москва, ООО "БЭСТ-Программы"	#5 09.02.2012 06:01:26 Все получилось!!!!! Спасибо!!!! С уважением, Ростовцева Екатерина

Форум