FIELD FROM XML

Материал из Фабиус wiki
Версия от 11:39, 28 октября 2016; Hisava (обсуждение | вклад) (Текст функции)

Перейти к: навигация, поиск

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

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

Функции Delphi

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