--- a/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_WStringBuilder/FB_WStringBuilder/InsertAt/svnobj +++ b/branches/develop/mqttsparkplug/mqttsparkplug/Sparkplug™ MQTT edge and host/Function Blocks/FB_WStringBuilder/FB_WStringBuilder/InsertAt/svnobj @@ -1,13 +1,61 @@ -Gx_l !0…jüoæ à -… ò.‹» S y s t e m . S t r i n g L{ f 8 a 5 8 4 6 6 - d 7 f 6 - 4 3 9 f - b b b 8 - d 4 6 0 0 e 4 1 d 0 9 9 } I m p l e m e n t a t i o n L{ 3 b 8 3 b 7 7 6 - f b 2 5 - 4 3 b 8 - 9 9 f 2 - 3 c 5 0 7 c 9 1 4 3 f c } T e x t D o c u m e n t L{ f 3 8 7 8 2 8 5 - 8 e 4 f - 4 9 0 b - b b 1 b - 9 a c b b 7 e b 0 4 d b } T e x t L i n e s L{ a 5 d e 0 b 0 b - 1 c b 5 - 4 9 1 3 - a c 2 1 - 9 d 7 0 2 9 3 e c 0 0 d } I d -l o n g T a g T e x t L_ w o r k W S T R I N G : = W I N S E R T ( _ W o r k W S T R I N G , < T e x t , H P o s i t i o n ) ; $I n s e r t A t : = T H I S ^ ; I n t e r f a c e L{ a 9 e d 5 b 7 e - 7 5 c 5 - 4 6 5 1 - a f 1 6 - d 2 c 2 7 e 9 8 c b 9 4 } BM E T H O D I n s e r t A t : I W S T R I N G B u i l d e r V A R _ I N P U T 2 T e x t : W S T R I N G ( 4 0 9 6 ) ; & P o s i t i o n : I N T ; E N D _ V A R Ð ÐÐEÐ Ð -G ÚÐ- Ð Ð -: ÚÐ-Ð Ð -; ÚÐ-Ð Ð - ÚÐ-ÐÐEÐ Ð -5 ÚÐ-Ð Ð -6 ÚÐ-Ð Ð -7 ÚÐ-Ð Ð -8 ÚÐ-Ð Ð - ÚÐ-Ð Ð -? ÚÐ- \ No newline at end of file +Gx_l F !0…jüou ¡ØN © 8Jhí S y s t e m . S t r i n g L{ f 8 a 5 8 4 6 6 - d 7 f 6 - 4 3 9 f - b b b 8 - d 4 6 0 0 e 4 1 d 0 9 9 } I m p l e m e n t a t i o n L{ 3 b 8 3 b 7 7 6 - f b 2 5 - 4 3 b 8 - 9 9 f 2 - 3 c 5 0 7 c 9 1 4 3 f c } T e x t D o c u m e n t L{ f 3 8 7 8 2 8 5 - 8 e 4 f - 4 9 0 b - b b 1 b - 9 a c b b 7 e b 0 4 d b } T e x t L i n e s L{ a 5 d e 0 b 0 b - 1 c b 5 - 4 9 1 3 - a c 2 1 - 9 d 7 0 2 9 3 e c 0 0 d } I d +l o n g T a g T e x t ¬( * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ) P( * I n i t : i n t e r n a l p o i n t e r a n d c o u n t e r * ) H p w T e m p D e s t S t r : = A D R ( _ w o r k W S T R I N G ) ; 4 p w T e m p S t r 1 : = A D R ( T e x t ) ; ¬( * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * ) @C u r r e n t L e n g t h : = T H I S ^ . L e n ( ) ; XA d d i t i o n a l L e n g t h : = S t u . S t r L e n W ( p w T e m p S t r 1 ) ; jT o t a l L e n g t h : = C u r r e n t L e n g t h + A d d i t i o n a l L e n g t h ; V( * L o o p : M o v e t h e r i g h t m o s t t o m a k e r o o m * ) ~F O R i : = M I N ( T o t a l L e n g t h , G C _ s p a r k p l u g . s u p p o r t e d _ s t r i n g _ l e n g t h s ) \ T O ( P o s i t i o n + A d d i t i o n a l L e n g t h ) B Y - 1 D O ~ p w T e m p D e s t S t r [ i - 1 ] : = p w T e m p D e s t S t r [ i - 1 - A d d i t i o n a l L e n g t h ] ; E N D _ F O R D( * L o o p : I n s e r t a d d i t i o n a l T e x t * ) F O R i : = 0 ® T O M I N ( G C _ s p a r k p l u g . s u p p o r t e d _ s t r i n g _ l e n g t h s - P o s i t i o n , A d d i t i o n a l L e n g t h ) B Y 1 D O d p w T e m p D e s t S t r [ P o s i t i o n + i - 1 ] : = p w T e m p S t r 1 [ i ] ; 0( * S e t : E n d o f s t r i n g * ) p w T e m p D e s t S t r [ M I N ( T o t a l L e n g t h , G C _ s p a r k p l u g . s u p p o r t e d _ s t r i n g _ l e n g t h s ) + 1 ] : = 0 ; !.( * S e t : R e t u r n v a l u e * ) "& I n s e r t A t : = T H I S ^ ; #I n t e r f a c e $L{ a 9 e d 5 b 7 e - 7 5 c 5 - 4 6 5 1 - a f 1 6 - d 2 c 2 7 e 9 8 c b 9 4 } %t/ / I f t h e r e a r e t o o m a n y c h a r a c t e r s t o f i t i n t h e b u f f e r , &/ / t h i s f u n c i t o n w i l l a l w a y s t r i m t h e r i g h t m o s t c h a r c a t e r s o f t h e r e s u l t 'BM E T H O D I n s e r t A t : I W S T R I N G B u i l d e r (&V A R _ I N _ O U T C O N S T A N T )t T e x t : W S T R I N G ( G C _ s p a r k p l u g . s u p p o r t e d _ s t r i n g _ l e n g t h s ) ; *E N D _ V A R +V A R _ I N P U T ,v P o s i t i o n : I N T ; / / t o i n s e r t a t t h e s t a r t , i t w i l l b e 1 -V A R .B p w T e m p D e s t S t r : P O I N T E R T O W O R D ; /D p w T e m p S t r 1 : P O I N T E R T O W O R D ; 0 i : D I N T ; 10 A d d i t i o n a l L e n g t h : D I N T ; 2* C u r r e n t L e n g t h : D I N T ; 3& T o t a l L e n g t h : D I N T ; Ð ÐÐE(Ð Ð +Q ÚÐ- Ð Ð +R ÚÐ-Ð Ð +S ÚÐ- Ð Ð +T ÚÐ-Ð Ð +U ÚÐ-Ð Ð +X ÚÐ-Ð Ð +Y ÚÐ-Ð Ð +Z ÚÐ-Ð Ð +™ ÚÐ-Ð Ð +ž ÚÐ-Ð Ð +¢ ÚÐ-Ð Ð +£ ÚÐ- Ð Ð +¤ ÚÐ-Ð Ð +¥ ÚÐ- Ð Ð +¡ ÚÐ-Ð Ð + ÚÐ-Ð Ð +« ÚÐ-Ð Ð +¬ ÚÐ-Ð Ð +¯ ÚÐ-Ð Ð +± ÚÐ- Ð Ð +² ÚÐ-Ð Ð +³ ÚÐ- Ð Ð +´ ÚÐ-Ð Ð +µ ÚÐ-Ð Ð +¶ ÚÐ-Ð Ð +° ÚÐ-Ð Ð + ÚÐ-Ð Ð +Ž ÚÐ- Ð Ð + ÚÐ-Ð Ð + ÚÐ- Ð Ð +‘ ÚÐ- Ð Ð +’ ÚÐ-Ð Ð +“ ÚÐ-Ð Ð +” ÚÐ-Ð Ð +• ÚÐ- Ð Ð +– ÚÐ-!Ð Ð +— ÚÐ- Ð Ð +˜ ÚÐ-"Ð Ð +; ÚÐ-Ð Ð + ÚÐ-Ð#$ÐEÐ Ð +Ÿ ÚÐ-%Ð Ð + ÚÐ-&Ð Ð +5 ÚÐ-'Ð Ð +6 ÚÐ-(Ð Ð +7 ÚÐ-)Ð Ð +H ÚÐ-*Ð Ð +I ÚÐ-+Ð Ð +8 ÚÐ-,Ð Ð + ÚÐ-*Ð Ð +š ÚÐ-Ð Ð +› ÚÐ--Ð Ð +œ ÚÐ-.Ð Ð +® ÚÐ-/Ð Ð +¦ ÚÐ-0Ð Ð +§ ÚÐ-Ð Ð +¨ ÚÐ-1Ð Ð +© ÚÐ-2Ð Ð +ª ÚÐ-3Ð Ð +? ÚÐ-* \ No newline at end of file