Hi alex_lip!
> Файлы больно здоровые. Таблиц ~30 полей ~120-140 - трудно оценить. Все
> очень запутанно.
В одном xml файле??? Да уж...
Ну хотя-бы кусок с парой таблиц (желательно посложнее) выдернул - уже сам бы
потом по аналогии доделал.
> К тому же несут некоторую долю секретности.
Я не думаю что структура может быть секретной, а сами данные легко заменить
на всякий левак - при этом конечно уменьшив число "записей" до минимума -
2-3 вполне хватит.
> Реально ко мне приходит только хml файл. А схему я пытаюсь генерить при
> помощи Altova XMLSpy2006. Мне нужно разложить и закачать всю информацию из
> XML.
Это понятно :)
> Можно поподробнее ??!!
Не, я не расскажу - ищи книжки по XSLT, также по сайтам разным покопайся,
кажется Михаил Дроздов кое что писал по этой теме...
Вот например достаточно простой пример чисто фоксового разбора - схема
кстати не требуется, а заодно и видно как использовать XPath для извлечения
полей из "чужого" куска XML-файла:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
PUBLIC loXMLAdapter AS XMLAdapter, ;
loXMLTable AS XMLTable, ;
loXMLField AS XMLField
loXMLAdapter = CREATEOBJECT("XMLAdapter")
loXMLAdapter.PreserveWhiteSpace = .T.
loXMLAdapter.UseCodePage = .T.
loXMLAdapter.XMLSchemaLocation = ""
loXMLTable = CREATEOBJECT("XMLTable")
loXMLTable.Alias = "card"
loXMLTable.CodePage = 1251
loXMLTable.XMLName = STRCONV("card", 5 )
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "id"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("id", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "secret"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("secret", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "balance"
loXMLField.DataType = "B"
loXMLField.FractionDigits = 2
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("balance", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "currency"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("currency", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "expire_date"
loXMLField.DataType = "C"
loXMLField.MaxLength = 10
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("expire_date", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "usage_date"
loXMLField.DataType = "C"
loXMLField.MaxLength = 10
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("usage_date", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "tp_id"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("tp_id", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "Pool_id"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLNameIsXPath = .T.
loXMLField.XMLName = STRCONV("../@id", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLAdapter.Tables.Add(m.loXMLTable, m.loXMLTable.XMLName)
loXMLTable = CREATEOBJECT("XMLTable")
loXMLTable.Alias = "pool"
loXMLTable.CodePage = 1251
loXMLTable.XMLName = STRCONV("pool", 5 )
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "id"
loXMLField.DataType = "I"
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("id", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLField = CREATEOBJECT("XMLField")
loXMLField.Alias = "type"
loXMLField.DataType = "C"
loXMLField.MaxLength = 20
loXMLField.IsAttribute = .T.
loXMLField.XMLName = STRCONV("type", 5 )
loXMLTable.Fields.Add(m.loXMLField, m.loXMLField.XMLName)
loXMLAdapter.Tables.Add(m.loXMLTable, m.loXMLTable.XMLName)
loXMLAdapter.LoadXML("test1.xml", .T., .T.)
USE IN SELECT("card")
USE IN SELECT("pool")
loXMLAdapter.Tables( 1 ).ToCursor()
BROWSE LAST NOWAIT
loXMLAdapter.Tables( 2 ).ToCursor()
BROWSE LAST NOWAIT
А вот и сам тестовый XML
[pre]
<?xml version="1.0" encoding="Windows-1251"?>
<UTM>
<pool id='1' type='std'>
<card id='3' secret='96425361' balance='20.0' currency='810'
expire_date='9/2/2006' usage_date='Еще нет' tp_id='0' />
<card id='4' secret='48955622' balance='20.0' currency='810'
expire_date='9/2/2006' usage_date='Еще нет' tp_id='0' />
</pool>
<pool id='2' type='ext'>
<card id='5' secret='12345678' balance='10.0' currency='811'
expire_date='9/2/2006' usage_date='Еще нет' tp_id='2' />
<card id='6' secret='90123456' balance='30.0' currency='811'
expire_date='9/2/2006' usage_date='Еще нет' tp_id='3' />
</pool>
</UTM>
[/pre]
Posted via ActualForum NNTP Server 1.3
