co📁e - XML File Handling

METHOD PUBLIC NextParameter : T_MaxString;
VAR_OUTPUT
    Parameter : T_MaxString;
END_VAR
VAR
(* find '=' char *)
IF iSelectStartPara < iSelectEnd AND iSelectEndPara < iSelectEnd THEN
	iSelectStartValue := Buffer.Find ( sSearchString := '"' , udiStartPos := iSelectEndPara );
     (* find '"' char *)
	Parameter := Buffer.Copy( udiStart := iSelectStartValue + 1, udiEnd := iSelectEndValue );
	iSelectStartPara := iSelectEndValue + 1 ;
ELSE 
     (* find '<' char *)
	Name := Buffer.Copy( udiStart := iSearchPos + 1, udiEnd := iSelectEndValue ); 
END_IF;
NextParameter := Name;