FIELD FROM XML — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст функции) |
Hisava (обсуждение | вклад) м (→Текст функции) |
||
Строка 23: | Строка 23: | ||
b2 := at( pref_to, xml_text ) | b2 := at( pref_to, xml_text ) | ||
− | aa := Copy( xml_text, b1 + len( pref_from ), b2 - b1 - len( pref_from ) ) | + | aa := [[Copy]]( xml_text, b1 + len( pref_from ), b2 - b1 - len( pref_from ) ) |
b1 := at( pref_from, aa ) | b1 := at( pref_from, 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