XMLDOCUMENT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Пример использования) |
Hisava (обсуждение | вклад) м (→Пример использования) |
||
| Строка 10: | Строка 10: | ||
aa := [[IdHttpGet]]( local_host + ':' + utm_port + '/opt/out' ) | aa := [[IdHttpGet]]( local_host + ':' + utm_port + '/opt/out' ) | ||
// сохраняем входящие сообщения в файле out.xml | // сохраняем входящие сообщения в файле out.xml | ||
| − | WriteTxtFile( { aa }, 'out.xml', TempPath, true ) | + | [[WriteTxtFile]]( { aa }, 'out.xml', TempPath, true ) |
doc := [[XMLDocument]]( Nice_Path( TempPath ) + 'out.xml' ) | doc := [[XMLDocument]]( Nice_Path( TempPath ) + 'out.xml' ) | ||
Версия 12:47, 26 октября 2016
XMLDocument - это функция ( QrAddFn2.pas )
XMLDocument( xmlfile )
Чтение XML файла
Пример использования
fld := ' _1,C,200; ' aa := IdHttpGet( local_host + ':' + utm_port + '/opt/out' ) // сохраняем входящие сообщения в файле out.xml WriteTxtFile( { aa }, 'out.xml', TempPath, true )
doc := XMLDocument( Nice_Path( TempPath ) + 'out.xml' ) 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
