[r151]: / trunk / Library / POUs / FB_strBuffer / Copy / svnobj  Maximize  Restore  History

Download this file

43 lines (43 with data), 3.2 kB

Gx_lŠ!0…jüoxá29System.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;.pByteCopy := ADR(Copy);LpByteBuffer := pString + udiStart - 1;ÎWHILE(udiLoop < SIZEOF(Copy)) AND udiStart - 1 + udiLoop < udiLenght AND udiStart + udiLoop < udiEnd DO8	pByteCopy^ := pByteBuffer^;0	udiLoop := udiLoop + 1;D	pByteCopy := ADR(Copy) + udiLoop;`	pByteBuffer := pString + udiStart + udiLoop -1;END_WHILE;<IF udiLoop = SIZEOF(Copy) THEN@	eXmlError := eXML.errStringLen;ZELSIF udiStart - 1 + udiLoop = udiLenght THENF	eXmlError := eXML.errMaxBufferLen;ELSE,	eXmlError := eXML.OK;END_IF; pByteCopy^ := 0;.udiCopyLen :=  udiLoop; Interface!L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}"(*#T	Copies a string from the character buffer$*)	%(METHOD Copy : STRING&VAR_INPUT'$	udiStart : UDINT;( 	udiEnd : UDINT;)END_VAR*VAR_OUTPUT+(	udiCopyLen : UDINT;,$	eXmlError : eXML;-VAR."	udiLoop : UDINT;/:	pByteCopy : POINTER TO BYTE;0>	pByteBuffer : POINTER TO BYTE;ÐÐÐEÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-Ð !ÐEÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­ÚÐ-&ÐÐ	
­ÚÐ-'ÐÐ	
­ÚÐ-(ÐÐ	
­ÚÐ-)ÐÐ	
­ÚÐ-*ÐÐ	
­ ÚÐ-+ÐÐ	
­!ÚÐ-,ÐÐ	
­"ÚÐ-)ÐÐ	
­#ÚÐ--ÐÐ	
­$ÚÐ-.ÐÐ	
­%ÚÐ-/ÐÐ	
­&ÚÐ-0ÐÐ	
­'ÚÐ-)ÐÐ	
­(ÚÐ-ÐÐ	
­ÚÐ-