[r286]: / branches / Library / POUs / XmlControl / FB_XmlControl / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 8.3 kB

Gx_l- !0…jüoÌNc·¯9	%Mš]System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}(*²Organizes parsing and composing of XML data. Data can be treated as STRING or char array.˜Filebuffersize is default 4096 bytes and can be set via Gvl_Param_XmlControlUsage example:1. Initiate    VAR8        XML : FB_XMLControl;x        Buffer: STRING(GVL_Param_XmlControl.udiMaxFileSize);        //orŽ        Buffer: ARRAY [0..GVL_Param_XmlControl.udiMaxFileSize] OF CHAR;    END_VAR@    XML.pBuffer: = ADR (buffer);J    XML.LenBuffer: = SIZEOF (buffer); V    Add your own preferred fileheader like:!f    XML: <?xml version=\"1.0\" encoding=\"UTF-8\"?>"–    XML.WriteDocumentHeader( '<?xml version=\"1.0\" encoding=\"UTF-8\"?>');#F2. Compose a tag with a parameters:$<XML: <MyTag ParaName = "11" />%H    XML.newTag(sTagName: = 'MyTag');&l    XML.newPara(sName: = 'ParaName', sPara: = sValue);'&    XML.CloseTag();("3. Add tag value:):XML: <MyTag> MyText </ MyTag>*B    XML.newTag(sName := 'MyTag');+P    XML.newTagData(sTagData :='MyText');,P4. Jump to the beginning of the XML data-(XML.toStartBuffer();."5. Add a comment:/.XML: <!-- MyComment -->0X    XML.newComment(sTagName: = 'MyComment');1v6. Returns the next tag from the current position in buffer2XML.NextTag();3D7. Output the parameter of the tag4BXML.NextPara(sPara: = LastValue);5`Feedback: sPara returns the value found (string)6*)7>//{attribute 'hide_all_locals'}88FUNCTION_BLOCK FB_XMLControl9VAR::    Buffer : FB_StreamBuffer;;<    TagList : FB_StreamBuffer;<0    sTags : T_MaxString;=D    TagListSeek : FB_StreamBuffer;>.    sTagsSeek : STRING;?4    Tag : FB_StreamBuffer;@.    sTag : T_MaxString;A&    xTagOpen: BOOL;B(    iSelect : UDINT;C2    iSelectStart : UDINT;D.    iSelectEnd : UDINT;E:    iSelectStartPara : UDINT;F6    iSelectEndPara : UDINT;G8    iSelectTagClose : UDINT;H<    iSelectStartValue : UDINT;I8    iSelectEndValue : UDINT;J4    udiSearchPos : UDINT; KEND_VARLVAR CONSTANTM@    TAG_OPEN : STRING(1) := '<';NB    TAG_CLOSE : STRING(1) := '>';OT    END_TAG_CLOSE : STRING(4) := '/>$R$N';P:    SPACE : STRING(1) := ' ';Q<    EQUALS : STRING(1) := '=';R:    QUOTE : STRING(1) := '"';SD    BACK_SLASH : STRING(1) := '\';TJ    FORWARD_SLASH : STRING(1) := '/';UP    OPEN_COMMENT : STRING(5) := '<!-- ';VP    CLOSE_COMMENT : STRING(4) := ' -->';W:	CR_LF : STRING(4) := '$R$N';XX	//$OD : ASCII code FOR carriage RETURN (CR)Y&	//$$ : TO ADD a $RZ:	//$' : to add ' (apostrophe)[.	//$L or $l : line feed\,	//$N or $n : new line].	//$P or $p : next page^2	//$R or $r : end of line_0	//$T or $t : tabulation`"UniqueIdGeneratora291bPOULevelcL{8e575c5b-1d37-49c6-941b-5c0ec7874787}dStandarde ChildObjectGuidsf8System.Collections.ArrayListg,AddAttributeSubsequenthboolÐÐ-ÐÐ	E
ÐÐ
­ÚÐ-ÐÐ	E
_ÐÐ
­ÆÚÐ-ÐÐ
­ÇÚÐ-ÐÐ
­ÈÚÐ-ÐÐ
­ÉÚÐ-ÐÐ
­ÊÚÐ-ÐÐ
­ËÚÐ-ÐÐ
­ÌÚÐ-ÐÐ
­ÍÚÐ-ÐÐ
­ÎÚÐ-ÐÐ
­ÏÚÐ-ÐÐ
­ÐÚÐ-ÐÐ
­ÑÚÐ-ÐÐ
­ÒÚÐ-ÐÐ
­ÓÚÐ-ÐÐ
­ÔÚÐ-ÐÐ
­ÕÚÐ-ÐÐ
­ÖÚÐ-ÐÐ
­×ÚÐ-ÐÐ
­ØÚÐ- ÐÐ
­ÙÚÐ-!ÐÐ
­ÚÚÐ-ÐÐ
­ÛÚÐ-"ÐÐ
­ÜÚÐ-ÐÐ
­ÝÚÐ-#ÐÐ
­ÞÚÐ-$ÐÐ
­ßÚÐ-ÐÐ
­àÚÐ-%ÐÐ
­áÚÐ-&ÐÐ
­âÚÐ-'ÐÐ
­ãÚÐ-ÐÐ
­äÚÐ-(ÐÐ
­åÚÐ-)ÐÐ
­æÚÐ-ÐÐ
­çÚÐ-*ÐÐ
­èÚÐ-+ÐÐ
­éÚÐ-'ÐÐ
­êÚÐ-ÐÐ
­ëÚÐ-,ÐÐ
­ìÚÐ--ÐÐ
­íÚÐ-ÐÐ
­îÚÐ-.ÐÐ
­ïÚÐ-/ÐÐ
­ðÚÐ-ÐÐ
­ñÚÐ-0ÐÐ
­òÚÐ-ÐÐ
­óÚÐ-1ÐÐ
­ôÚÐ-2ÐÐ
­õÚÐ-ÐÐ
­öÚÐ-3ÐÐ
­÷ÚÐ-4ÐÐ
­øÚÐ-5ÐÐ
­ùÚÐ-ÐÐ
­úÚÐ-6ÐÐ
­ûÚÐ-7ÐÐ
­üÚÐ-8ÐÐ
­ýÚÐ-9ÐÐ
­þÚÐ-:ÐÐ
­ÿÚÐ-;ÐÐ
­ÚÐ-<ÐÐ
­ÚÐ-=ÐÐ
­ÚÐ->ÐÐ
­ÚÐ-?ÐÐ
­ÚÐ-@ÐÐ
­ÚÐ-AÐÐ
­ÚÐ-BÐÐ
­ÚÐ-CÐÐ
­ÚÐ-DÐÐ
­	ÚÐ-EÐÐ
­
ÚÐ-FÐÐ
­ÚÐ-GÐÐ
­ÚÐ-HÐÐ
­
ÚÐ-IÐÐ
­ÚÐ-JÐÐ
­ÚÐ-KÐÐ
­ÚÐ-LÐÐ
­ÚÐ-MÐÐ
­ÚÐ-NÐÐ
­ÚÐ-OÐÐ
­ÚÐ-PÐÐ
­ÚÐ-QÐÐ
­ÚÐ-RÐÐ
­ÚÐ-SÐÐ
­ÚÐ-TÐÐ
­ÚÐ-UÐÐ
­ÚÐ-VÐÐ
­ÚÐ-WÐÐ
­ÚÐ-XÐÐ
­ÚÐ-YÐÐ
­ÚÐ-ZÐÐ
­ÚÐ-[ÐÐ
­ ÚÐ-\ÐÐ
­!ÚÐ-]ÐÐ
­"ÚÐ-^ÐÐ
­#ÚÐ-_ÐÐ
­ÚÐ-KÐ`-aÐbc-defÐgh­