FIELD FROM XML2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 13: | Строка 13: | ||
pref_to := [</] + field_name + [>] | pref_to := [</] + field_name + [>] | ||
| − | b1 := [[ | + | b1 := [[AT]]( pref_from, xml_text ) |
b2 := at( pref_to, xml_text ) | b2 := at( pref_to, xml_text ) | ||
| Строка 24: | Строка 24: | ||
result := aa | result := aa | ||
endif | endif | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 10:50, 15 мая 2018
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
