XMLDOCUMENT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «XMLDocument = Смотрите также = XMLNode») |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
| (не показано 29 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | + | [[XMLDOCUMENT]] - это функция ( [[QrAddFn2.pas]] ) | |
| + | Чтение XML файла | ||
| + | [[XMLDOCUMENT]]( xmlfile ) | ||
| + | = Пример = | ||
| − | = | + | fld := ' _1,C,200; ' |
| + | aa := [[IdHttpGet]]( local_host + ':' + utm_port + '/opt/out' ) | ||
| + | [[WriteTxtFile]]( { aa }, 'out.xml', TempPath, true ) // сохраняем входящие сообщения в файле out.xml | ||
| + | doc := [[XMLDocument]]( [[Nice_Path]]( TempPath ) + 'out.xml',, <span style="color:#FF0000">''''utf8''''</span> ) | ||
| + | node := [[xmlNode]]( doc ) | ||
| + | |||
| + | _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true ) | ||
| + | |||
| + | for i := 0 to [[XmlNodeProp]]( node, "ChildNodeCount" ) - 1 | ||
| + | aa := [[XmlNodeProp]]( [[XmlNodeProp]]( node, "ChildNodes", i ), "NODEVALUE" ) | ||
| + | aa := [[Right]]( aa, [[Len]]( aa ) - [[at]]( 'http', aa ) - 6 ) | ||
| + | if ![[Empty]]( aa ) | ||
| + | ( _ )->( [[DbAppend]]() ) | ||
| + | ( _ )->_1 := aa | ||
| + | endif | ||
| + | next | ||
| + | |||
| + | = Смотрите также = | ||
[[XMLNode]] | [[XMLNode]] | ||
| + | |||
| + | [[UTM]] | ||
Текущая версия на 15:53, 20 августа 2021
XMLDOCUMENT - это функция ( QrAddFn2.pas )
Чтение XML файла
XMLDOCUMENT( xmlfile )
Пример
fld := ' _1,C,200; ' aa := IdHttpGet( local_host + ':' + utm_port + '/opt/out' ) WriteTxtFile( { aa }, 'out.xml', TempPath, true ) // сохраняем входящие сообщения в файле out.xml
doc := XMLDocument( Nice_Path( TempPath ) + 'out.xml',, 'utf8' ) node := xmlNode( doc )
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
for i := 0 to XmlNodeProp( node, "ChildNodeCount" ) - 1 aa := XmlNodeProp( XmlNodeProp( node, "ChildNodes", i ), "NODEVALUE" ) aa := Right( aa, Len( aa ) - at( 'http', aa ) - 6 ) if !Empty( aa ) ( _ )->( DbAppend() ) ( _ )->_1 := aa endif next
