FIELD FROM XML

Материал из Фабиус wiki
Перейти к: навигация, поиск

FIELD_FROM_XML - это функция из справочника R266

Чтение поля из XML файла

FIELD_FROM_XML( xml_text, field_name [, group_name := 'pref'] )

Возвращает содержимое поля

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

Смотрите также

Полезные функции

Функции Delphi