[r150]: / trunk / Library / POUs / FB_strBuffer / Find / svnobj  Maximize  Restore  History

Download this file

42 lines (42 with data), 3.2 kB

Gx_lM!0…jüot?ë)±HœÎµSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
udiLoop := 0;iSearch := 0;BpBuffer := pString + udiStartPos;>pSearch := ADR( sSearchString);|WHILE(pSearch^ <> 0 ) AND udiLoop + udiStartPos < udiLenght DO:	IF pBuffer^ <> pSearch^ THEN2		udiLoop := udiLoop + 1;Z		pBuffer := pString + udiStartPos + udiLoop;B		pSearch := ADR( sSearchString);		iSearch := 0;
	ELSE0		iSearch := iSearch +1;n		pBuffer := pString + udiStartPos + udiLoop + iSearch;X		pSearch := ADR( sSearchString ) + iSearch;	END_IF;END_WHILE;DFind := udiLoop + 1 + udiStartPos;Interface L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}!(* "x	Find a searchstring in the buffer and returns its position.#z	It's possible to add a preffered startposition within buffer$*)%&METHOD Find : UDINT&VAR_INPUT'0	sSearchString : STRING;(*	udiStartPos : UDINT;)END_VAR*VAR+"	udiLoop : UDINT;,"	iSearch : UDINT;-6	pBuffer : POINTER TO BYTE;.6	pSearch : POINTER TO BYTE;ÐÐÐEÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-Ð ÐEÐÐ	
­ÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­ÚÐ-&ÐÐ	
­ÚÐ-'ÐÐ	
­ÚÐ-(ÐÐ	
­ÚÐ-)ÐÐ	
­ÚÐ-*ÐÐ	
­ ÚÐ-+ÐÐ	
­!ÚÐ-,ÐÐ	
­"ÚÐ--ÐÐ	
­#ÚÐ-.ÐÐ	
­$ÚÐ-)ÐÐ	
­%ÚÐ-ÐÐ	
­&ÚÐ-ÐÐ	
­ÚÐ-