Форум » [x]Harbour » Экспорт данных в XML » Ответить
Экспорт данных в XML
Dr. Oldwarez: Предыдущая прога уже готова и отлично работает. Но шефу надо выводить данные в универсальный формат обмена данными XML, причём с несколькими уровнями иерархии. Как заставить Harbour работать с форматом XML? Моя среда: BCC55+harbour+MiniGUI Extended
Ответов - 10
Pasha: Я использую класс из hwgui Этот же класс есть в поставке minigui: source\hbxml В harbour есть библиотечка contrib\hbmxml В xHarbour есть класс TXmlDocument, он же есть и в Harbour Выбирай - не хочу
Dr. Oldwarez: Спасибо большое! Но где бы документацию взять?
Pasha: Документации как таковой по этим классам нет Но классы несложные, примеры их использования имеются, и этого вполне достаточно для их освоения
krutoff: Я использую уже давно - посмотрите фрагмент моего кода, может поможет "... oXmlDoc := TXmlDocument():New('<?xml version="1.0" encoding="windows-1251" ?>') oXmlRoot := TXmlNode():new(0,"DECLAR",{ "xmlns:xsi" => "http://www.w3.org/2001/XMLSchema-instance", ; "xsi:noNamespaceSchemaLocation" => aTBL[nT]+".xsd" } oXmlDoc:oRoot:addBelow( oXmlRoot ) oXmlHead := TXmlNode():new(0, "DECLARHEAD" ) oXmlRoot:addBelow( oXmlHead ) oXmlHead:addBelow( TXmlNode():new(0, "VER",,"1.1") ) ..."
Andrey: krutoff пишет: посмотрите фрагмент моего кода, может поможет Ничего не понятно. Дайте хоть первоначальную информацию.... Зачем как и почему. А лучше тестовый пример маленький, выгрузка базы например. Заранее спасибо !
SADSTAR4: я в былые времена начала XML делал файлы для налоговой как обычный текстовый файл с последовательным созданием тэгов
Dima: Andrey пишет: Дайте хоть первоначальную информацию.... http://www.rsdn.ru/article/xml/xml-1.xml
Andrey: Dima пишет: http://www.rsdn.ru/article/xml/xml-1.xml Спасибо ! А дальше ? По примеру ?
Wolfv: Не знаю или актуально, но еще как вариант через DOMDocument. Типа так (заполнение данными шаблона XML) : xmlDoc := CreateObject( "Msxml2.DOMDocument.6.0" ) xmlDoc:async := FALSE xmlDoc:load("Test.xml" ) xmlErr := xmlDoc:parseError IF xmlErr:errorCode <> 0 MsgExclamation( "Ошибка, код: " + AllTrim( Str( xmlErr:errorCode ) ) ) RETURN .f. ENDIF objNodeList := xmlDoc:getElementsByTagName("Tag1" ) objNodeList:item( 0 ):text = "Значение для Tag1" .... .... // создать элемент newElem := xmlDoc:createElement( "SECPARAM" ) objNodeList1:appendChild( newElem ) objNodeList1:lastChild:text = "Значение" .... xmlDoc:async := FALSE xmlDoc:validateOnParse := TRUE xmlDoc:save( "fileOut" )
rvu: А загрузить базу так можно? Могу я с помощью xHarbour взять из интернета файл и прочитать из него данные в программу?
полная версия страницы