JSON parsing and composing library
1-planninga library to parse and compose JSON strings from local variables
Brought to you by:
tvm
MIT License
Unlicense
[r5]: / trunk / json / json-pac / Functions / SPLIT_VARNAME / svnobj Maximize Restore History
5 lines (5 with data), 7.3 kB
Gx_l i ! 0
jüo0 FA ° S y s t e m . S t r i n g L{ 6 f 9 d a c 9 9 - 8 d e 1 - 4 e f c - 8 4 6 5 - 6 8 a c 4 4 3 b 7 d 0 8 } S p e c i a l F u n c L{ 0 d b 3 d 7 b b - c d e 0 - 4 4 1 6 - 9 a 7 b - c e 4 9 a 0 1 2 4 3 2 3 } N o n e 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 Ò( * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = S P L I T _ V A R N A M E ( ) VA u t h o r : T i m V a n M e p p e l e n , P r o E l e c t r i c I n c . (t i m v @ p r o e l e c t r i c . c o m &D a t e : J u n e 2 6 , 2 0 1 8 bs p l i t a s t r i n g i n t o a n a r r a y a t t h e ' . ' c h a r a c t e r T O D O : h' a . b . c . d ' b e c o m e s a n a r r a y [ 1 ] = d , [ 2 ] = c , [ 3 ] = b , [ 4 ] = a xm o d i f i e d f r o m h t t p s : / / f o r u m . c o d e s y s . c o m / v i e w t o p i c . p h p ? t = 9 8 8 9 Ô= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = * ) / / L o o p t h r o u g h s t r i n g u n t i l t h e r e i s n o s t r i n g l e f t o r a r r a y h a s h i t i t s l i m i t s ^W H I L E ( S t r L e n A ( p s t D a t a : = A D R ( S t r i n g I n ) ) > 0 ) D O J / / F i n d l o c a t i o n o f f i r s t b r e a k p o i n t  i S p l i t L o c a t i o n : = S t r F i n d A ( p s t 1 : = A D R ( S t r i n g I n ) , p s t 2 : = A D R ( S P L I T _ C H A R ) , u i S e a r c h S t a r t : = 1 ) - 1 ; / / I f t h e r e i s n o b r e a k p o i n t f o u n d t h e n s e t l o c a t i o n t o s i z e o f s t r i n g !< I F ( i S p l i t L o c a t i o n = - 1 ) T H E N " i S p l i t L o c a t i o n : = D I N T _ T O _ I N T ( S t r L e n A ( p s t D a t a : = A D R ( S t r i n g I n ) ) ) ; # E N D _ I F $ % / / C o p y t h e p a r t o f t h e s t r i n g t h a t i s n e e d e d f o r t h e p a r a m e t e r . & S t r M i d A ( '0 p s t : = A D R ( S t r i n g I n ) , (R u i I n p u t B u f f e r S i z e : = S I Z E O F ( S t r i n g I n ) , ): i L e n g t h : = i S p l i t L o c a t i o n , *$ i P o s i t i o n : = 1 , +D p s t R e s u l t : = A D R ( s S h o r t S t r i n g ) , ,\ u i R e s u l t B u f f e r S i z e : = S I Z E O F ( s S h o r t S t r i n g ) ) ; -~ / / M a k e s u r e s t r i n g i s n o t e m p t y b e f o r e u s i n g u p a n a r r a y s p o t . .f I F ( S t r L e n A ( p s t D a t a : = A D R ( s S h o r t S t r i n g ) ) > 0 ) T H E N /N T e m p A r r a y [ A r r a y S i z e ] : = s S h o r t S t r i n g ; 0: A r r a y S i z e : = A r r a y S i z e + 1 ; 1X / / R e m o v e c o p i e d c o m p o n e n t s f r o m l o n g s t r i n g 2¼ S t r D e l e t e A ( p b y : = A D R ( S t r i n g I n ) , i L e n g t h : = ( i S p l i t L o c a t i o n + L E N ( S P L I T _ C H A R ) ) , i P o s i t i o n : = 1 ) ; 3 / / C h e c k t o s e e i f m o r e p a r a m e t e r s c a n f i t i n a r r a y . I f n o t e x i t l o o p 4T I F ( A r r a y S i z e > G P L _ J S O N . M A X _ L E V E L S ) T H E N 5 E X I T ; 6 E N D _ I F 7E N D _ W H I L E 84A r r a y S i z e : = A r r a y S i z e - 1 ; 92F O R i : = 0 T O A r r a y S i z e D O :@/ / r e v e r s e t h e o r d e r o f t h e a r r a y ;d V a r N a m e A r r a y [ i + 1 ] . N a m e : = T e m p A r r a y [ A r r a y S i z e - i ] ; <E N D _ F O R =4S P L I T _ V A R N A M E : = A r r a y S i z e ; >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 } @<F U N C T I O N S P L I T _ V A R N A M E : U I N T ; AV A R _ I N P U T B V a r N a m e A r r a y : R E F E R E N C E T O A R R A Y [ 1 . . G P L _ J S O N . M A X _ L E V E L S ] O F J S O N V A R N A M E ; Ct S t r i n g I n : S T R I N G ( G P L _ J S O N . M A X _ V A R _ N A M E ) ; / / i n p u t s t r i n g DE N D _ V A R EV A R C O N S T A N T F@ S P L I T _ C H A R : S T R I N G ( 1 ) : = ' . ' ; GV A R H. A r r a y S i z e : U I N T : = 1 ; I8 s S h o r t S t r i n g : S T R I N G ; J4 i S p l i t L o c a t i o n : I N T ; K i : U I N T ; Ll T e m p A r r a y : A R R A Y [ 1 . . G P L _ J S O N . M A X _ L E V E L S ] O F S T R I N G ; M"U n i q u e I d G e n e r a t o r N9 4 OP O U L e v e l PL{ 8 e 5 7 5 c 5 b - 1 d 3 7 - 4 9 c 6 - 9 4 1 b - 5 c 0 e c 7 8 7 4 7 8 7 } QS t a n d a r d R C h i l d O b j e c t G u i d s S8S y s t e m . C o l l e c t i o n s . A r r a y L i s t T,A d d A t t r i b u t e S u b s e q u e n t Ub o o l Ð Ð-ÐÐ E
7Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ-Ð Ð
ÚÐ- Ð Ð
ÚÐ- Ð Ð
! ÚÐ- Ð Ð
" ÚÐ- Ð Ð
# ÚÐ- Ð Ð
$ ÚÐ-!Ð Ð
% ÚÐ-"Ð Ð
& ÚÐ-#Ð Ð
' ÚÐ-$Ð Ð
( ÚÐ-%Ð Ð
) ÚÐ-&Ð Ð
* ÚÐ-'Ð Ð
+ ÚÐ-(Ð Ð
, ÚÐ-)Ð Ð
- ÚÐ-*Ð Ð
. ÚÐ-+Ð Ð
/ ÚÐ-,Ð Ð
0 ÚÐ-Ð Ð
1 ÚÐ--Ð Ð
2 ÚÐ-.Ð Ð
3 ÚÐ-/Ð Ð
4 ÚÐ-0Ð Ð
5 ÚÐ-#Ð Ð
6 ÚÐ-Ð Ð
7 ÚÐ-1Ð Ð
8 ÚÐ-2Ð Ð
9 ÚÐ-Ð Ð
: ÚÐ-3Ð Ð
; ÚÐ-4Ð Ð
= ÚÐ-5Ð Ð
> ÚÐ-6Ð Ð
G ÚÐ-7Ð Ð
R ÚÐ-Ð Ð
S ÚÐ-8Ð Ð
H ÚÐ-Ð Ð
I ÚÐ-9Ð Ð
J ÚÐ-:Ð Ð
K ÚÐ-;Ð Ð
^ ÚÐ-<Ð Ð
\ ÚÐ-Ð Ð
] ÚÐ-=Ð Ð
ÚÐ-Ð>?Ð E
Ð Ð
? ÚÐ-@Ð Ð
Y ÚÐ-AÐ Ð
D ÚÐ-BÐ Ð
B ÚÐ-CÐ Ð
@ ÚÐ-DÐ Ð
[ ÚÐ-Ð Ð
W ÚÐ-EÐ Ð
X ÚÐ-FÐ Ð
U ÚÐ-DÐ Ð
ÚÐ-Ð Ð
Z ÚÐ-GÐ Ð
ÚÐ-HÐ Ð
ÚÐ-IÐ Ð
ÚÐ-JÐ Ð
Q ÚÐ-KÐ Ð
ÚÐ-LÐ Ð
ÚÐ-DÐ Ð
ÚÐ-ÐM-NÐOP-QRS ÐTU