Форум » [x]Harbour » Снова XML » Ответить
Снова XML
Dima: Нужно создавать / читать XML в UTF-16 Что есть в этом плане в Harbour ? Минимум нужно корректное чтение !
Ответов - 61, стр:
1 2 3 4 All
SergKis: Dima пишет Не люблю я править авторские сырцы. А как же open source ? С изменениями, твой код выглядел бы (как вариант) так[pre2] FUNCTION Main() Local a,i,n,v,op,ot,aV := {},aA := {} If ( oXml := HXMLDoc():ReadString( hb_MemoRead("1.xml") ) ) == NIL return Nil endif If ( op := oXml:find("points") ) == NIL return Nil endif n := {'id' , ; // что выбирать - заказ 'code1C' , ; 'client' , ; 'address', ; 'lon' , ; 'lat' , ; 'radius' , ; 'comment', ; 'user' , ; 'enabled' ; } For i := 1 To len(op:aItems) ot := op:aItems[ i ] v := {} a := {} If hb_IsObject(ot) .and. ot:title == 'tt' AEval(n, {|t| aAdd(v, op:find(t)) }) // по заказу или AEval(ot:aItems, {|o| aAdd(a, {o:title, o:find(o:title)}) }) // все выбираем aAdd(aV, v) aAdd(aA, a) EndIf Next RETURN NIL [/pre2]
полная версия страницы