FIELD FROM XML — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст функции) |
Hisava (обсуждение | вклад) м (→Текст функции) |
||
| Строка 27: | Строка 27: | ||
b1 := at( pref_from, aa ) | b1 := at( pref_from, aa ) | ||
if b1 > 0 | if b1 > 0 | ||
| − | result := [[Right]]( aa, Len( aa ) - rat( '>', aa ) ) | + | result := [[Right]]( aa, [[Len]]( aa ) - [[rat]]( '>', aa ) ) |
else | else | ||
result := aa | result := aa | ||
Версия 11:39, 28 октября 2016
FIELD_FROM_XML - это функция из справочника R266
FIELD_FROM_XML(xml_text, field_name [, group_name := 'pref'])
Чтение поля из XML файла. Возвращает содержимое поля
xml_text - xml текст
field_name - имя поля
group_name - имя группы идентификаторов, по умолчанию равно 'pref'
Текст функции
parameters xml_text, field_name, group_name := 'pref' local b1, b2, pref_from, pref_to, aa pref_from := [<] + group_name + [:] + field_name + [>] pref_to := [</] + group_name + [:] + field_name + [>] b1 := at( pref_from, xml_text ) b2 := at( pref_to, xml_text ) aa := Copy( xml_text, b1 + len( pref_from ), b2 - b1 - len( pref_from ) ) b1 := at( pref_from, aa ) if b1 > 0 result := Right( aa, Len( aa ) - rat( '>', aa ) ) else result := aa endif
