FIELD FROM XML2

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

FIELD_FROM_XML2 - это программа из справочника R266

Чтение поля из XML файла ( без группы )

FIELD_FROM_XML2( xml_text, field_name )

xml_text - xml текст
field_name - имя поля

Текст

parameters xml_text, field_name

local b1, b2, pref_from, pref_to, aa

pref_from := [<] + field_name + [>]
pref_to := [</] + 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

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

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

FIELD_FROM_XML

Функции Delphi