Автор | Сообщение |
|
| |
Пост N: 5883
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.16 14:30. Заголовок: Снова XML
Нужно создавать / читать XML в UTF-16 Что есть в этом плане в Harbour ? Минимум нужно корректное чтение !
|
|
|
Ответов - 61
, стр:
1
2
3
4
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 1317
Зарегистрирован: 17.02.12
|
|
Отправлено: 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
|
|
|
Ответов - 61
, стр:
1
2
3
4
All
[только новые]
|