А ларчик просто открывался:
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.
ls_Syntax = ads_datastore.Describe("DataWindow.Syntax")
ll_Pos = Pos(ls_Syntax, "export.xml")
if IsNull(ll_Pos) then
as_ErrorMessage = "Не удалось распознать синтаксис DataWindow."
return false
end if
if ll_Pos = 0 then
as_ErrorMessage = "Не удалось распознать синтаксис DataWindow."
return false
end if
ls_Syntax = Mid(ls_Syntax, ll_Pos, Len(ls_Syntax) - ll_Pos)
ll_Pos = Pos(ls_Syntax, 'name="' + as_template + '" xml="<?xml')
if IsNull(ll_Pos) then
as_ErrorMessage = "Не удалось найти шаблон " + as_template+ " для DataWindow."
return false
end if
if ll_Pos = 0 then
as_ErrorMessage = "Не удалось найти шаблон " + as_template+ " для DataWindow."
return false
end if
ls_Syntax = Mid(ls_Syntax, ll_Pos + len('name="' + as_template + '" xml="<?xml') - &
5 , Len(ls_Syntax) - ll_Pos)
ll_NumCol = Pos(ls_Syntax, '>")')
if IsNull(ll_NumCol) then
as_ErrorMessage = "Не удалось распознать шаблон " + as_template+ " в DataWindow."
return false
end if
if ll_NumCol = 0 then
as_ErrorMessage = "Не удалось распознать шаблон " + as_template+ " в DataWindow."
return false
end if
ls_Syntax = Mid(ls_Syntax, 1 , ll_NumCol)
ll_Pos = 1
do while ll_Pos <> 0
ll_Pos = Pos(ls_Syntax, '=~~"')
if IsNull(ll_Pos) then exit
if ll_Pos = 0 then exit
ls_Syntax = Mid(ls_Syntax, 1 , ll_Pos) + '"' + Mid(ls_Syntax, ll_Pos + 3 , Len(ls_Syntax))
loop
ll_Pos = 1
do while ll_Pos <> 0
ll_Pos = Pos(ls_Syntax, '~~"')
if IsNull(ll_Pos) then exit
if ll_Pos = 0 then exit
ls_Syntax = Mid(ls_Syntax, 1 , ll_Pos - 1 ) + Mid(ls_Syntax, ll_Pos + 1 , Len(ls_Syntax))
loop
ls_ValueTmp = ""
if XMLParseString(ls_Syntax, ValNever!, ls_ValueTmp, TRUE, TRUE) <> 0 then
as_ErrorMessage = ls_ValueTmp
return false
end if
Это в первом приближении. Т.е. из
Describe("DataWindow.Syntax") получаем шаблон для импорта, вырезаем оттуда
~ и получаем, что значением элемента или атрибута является наименование столбца в
DataStore . На основе полученной таким образом строки
ls_Syntax строим
PBDOM_Document , который будет являться шаблоном для сравнения со структурой входящего
PBDOM_Document (который и содержит необходимые данные для импорта в
DataStore ). Вообщем, получилось достаточно красивое решение. Мне аж самому понравилось. Если будет у кого желание, могу выложить весь объект...
