XMLDOCUMENT
Материал из Фабиус wiki
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
