Download this file
1 2 3 4 5 6 7 8 9 10 11 12 13
METHOD PUBLIC NextParameter : T_MaxString; VAR_OUTPUT Parameter : T_MaxString; END_VAR VAR IF iSelectStartPara < iSelectEnd AND iSelectEndPara < iSelectEnd THEN iSelectStartValue := Buffer.Find(sSearchString := QUOTE, udiStartPos := iSelectEndPara); Parameter := Buffer.Copy( udiStart := iSelectStartValue + 1, udiEnd := iSelectEndValue); iSelectStartPara := iSelectEndValue + 1; ELSE Name := Buffer.Copy( udiStart := udiSearchPos + 1, udiEnd := iSelectEndValue); END_IF; NextParameter := Name;