[r366]: / trunk / Library / POUs / FB_StreamBuffer / Copy / svnobj  Maximize  Restore  History

Download this file

41 lines (41 with data), 3.5 kB

Gx_l™
!0…jüo¨	2D2¾ÉÏä¡Ý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
Loop := 0;BPointerToByteToCopy := ADR(Copy);rPointerToBuffer := _PointerToStringBuffer + StartPos - 1;ÀWHILE(Loop < SIZEOF(Copy)) AND (StartPos - 1 + Loop < _Length) AND (StartPos + Loop < EndPos) DOZ    PointerToByteToCopy^ := PointerToBuffer^;*    Loop := Loop + 1;X    PointerToByteToCopy := ADR(Copy) + Loop;†    PointerToBuffer := _PointerToStringBuffer + StartPos + Loop -1;END_WHILE;6IF Loop = SIZEOF(Copy) THENT    XmlError := E_XmlError.ErrorStringLen;PELSIF StartPos - 1 + Loop = _Length THENZ    XmlError := E_XmlError.ErrorMaxBufferLen;ELSE<    XmlError := E_XmlError.OK;END_IF;4PointerToByteToCopy^ := 0;"CopyLen :=  Loop; Interface!L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}"(*#Z    Copies a string from the character buffer$*)%2METHOD Copy : T_MaxString&VAR_INPUT'*    StartPos : UDINT;(&    EndPos : UDINT;)END_VAR*VAR_OUTPUT+(    CopyLen : UDINT;,4    XmlError : E_XmlError;-VAR."    Loop : UDINT;/T    PointerToByteToCopy : POINTER TO BYTE;0L    PointerToBuffer : POINTER TO BYTE;1&    CurPos : UDINT;ÐÐÐEÐÐ	
­4ÚÐ-
ÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ-ÐÐ	
­8ÚÐ-ÐÐ	
­9ÚÐ-ÐÐ	
­:ÚÐ-ÐÐ	
­;ÚÐ-ÐÐ	
­<ÚÐ-ÐÐ	
­=ÚÐ-ÐÐ	
­>ÚÐ-ÐÐ	
­?ÚÐ-ÐÐ	
­@ÚÐ-ÐÐ	
­AÚÐ-ÐÐ	
­BÚÐ-ÐÐ	
­CÚÐ-ÐÐ	
­DÚÐ-ÐÐ	
­EÚÐ-ÐÐ	
­FÚÐ-ÐÐ	
­GÚÐ-ÐÐ	
­ÚÐ-Ð !ÐEÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ÚÐ-%ÐÐ	
­'ÚÐ-&ÐÐ	
­(ÚÐ-'ÐÐ	
­)ÚÐ-(ÐÐ	
­*ÚÐ-)ÐÐ	
­+ÚÐ-*ÐÐ	
­,ÚÐ-+ÐÐ	
­-ÚÐ-,ÐÐ	
­.ÚÐ-)ÐÐ	
­/ÚÐ--ÐÐ	
­0ÚÐ-.ÐÐ	
­1ÚÐ-/ÐÐ	
­2ÚÐ-0ÐÐ	
­3ÚÐ-1ÐÐ	
­ÚÐ-)