[r59]: / branches / VisonGame1805 / Display_Escape_PLC / Plc Logic / Application / Function Blocks / Puzzle / StringParser / svnobj  Maximize  Restore  History

Download this file

12 lines (11 with data), 3.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
iStringSize := LEN(STR := sInputString);
IF xStart THEN;
ParseDrummer(PT := T#100MS);
ParseDrummer.IN := TRUE;
IF ParseDrummer.Q AND iParseCount <= iStringSize THEN;
	xDone := FALSE;
	iParseCount := iParseCount + 1;
	ParseDrummer.IN := FALSE;
ELSIF iParseCount > iStringSize THEN;
	xDone := TRUE;	
END_IF