[r63]: / branches / timvh / example / CODESYS_Control / Plc Logic / Application / example / FB_XmlPac / Parse / svnobj  Maximize  Restore  History

Download this file

22 lines (21 with data), 3.5 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
CASE uiParseStep OF
	0:  (* open file from start and read into buffer *)
        (* buffer is already set in FB_Init *)
	10:	(* the buffer is now filled in memory and the original file has been closed.
            So we can iterate it 
        *)
		sTag := Xml.NextTag();
        IF XML.sTagsSeek = '/users/user' THEN
            XML.NextParameter(Parameter => asParsedParameter2[index]);
            asParsedData[index] := XML.GetTagData();
            index := index + 1;
        ELSIF sTag = '/users' THEN
            // done
            uiParseStep := 100;
		ELSIF XML.SearchPos >= XML.Length THEN
			uiParseStep := 100 ;
		END_IF  
    99: (* error occured *)
        ;
	100:(* File does not contain usertags anymore *)
END_CASE