[r7]: / trunk / library / XmlControl / strBuffer / Find / svnobj  Maximize  Restore  History

Download this file

41 lines (41 with data), 3.2 kB

Gx_lM!0…jüot?ë)±Ëïò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ÐÐ	
­qÚÐ-
ÐÐ	
­rÚÐ-ÐÐ	
­sÚÐ-ÐÐ	
­tÚÐ-ÐÐ	
­uÚÐ-ÐÐ	
­vÚÐ-ÐÐ	
­wÚÐ-ÐÐ	
­xÚÐ-ÐÐ	
­yÚÐ-ÐÐ	
­zÚÐ-ÐÐ	
­{ÚÐ-ÐÐ	
­|ÚÐ-ÐÐ	
­}ÚÐ-ÐÐ	
­~ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­€ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­‚ÚÐ-ÐÐ	
­ƒÚÐ-ÐÐ	
­ÚÐ-Ð ÐEÐÐ	
­„ÚÐ-!ÐÐ	
­‡ÚÐ-"ÐÐ	
­†ÚÐ-#ÐÐ	
­…ÚÐ-$ÐÐ	
­dÚÐ-%ÐÐ	
­eÚÐ-&ÐÐ	
­fÚÐ-'ÐÐ	
­gÚÐ-(ÐÐ	
­hÚÐ-)ÐÐ	
­iÚÐ-*ÐÐ	
­jÚÐ-+ÐÐ	
­kÚÐ-,ÐÐ	
­lÚÐ--ÐÐ	
­mÚÐ-.ÐÐ	
­nÚÐ-)ÐÐ	
­oÚÐ-ÐÐ	
­pÚÐ-ÐÐ	
­ÚÐ-