Отправлено: 15.07.16 14:30. Заголовок: Снова XML

Нужно создавать / читать XML в UTF-16
Что есть в этом плане в Harbour ?

Минимум нужно корректное чтение !

 Отправлено: 25.11.16 23:12. Заголовок: Dima пишет Не люблю ..

Dima пишет

цитата:

Не люблю я править авторские сырцы.

А как же open source ?
С изменениями, твой код выглядел бы (как вариант) так

 
 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