co📁e - XML File Handling

a simple library to compose or parse XML

Brought to you by: aliazzz

no license defined!!!

Diff of /trunk/library/FB_XmlControl/NextTag/svnobj [r56] .. [r57] Maximize Restore

Switch to unified view


Gx_lÊ!0…jüoa
cóãæA¯(ï,System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}  Id
longTagText
œiSelectStart := Buffer.Find(sSearchString := '<' , udiStartPos := iSearchPos);œiSelectEnd := Buffer.Find(sSearchString := '>' , udiStartPos := iSelectStart);ªiSelectStartPara := Buffer.Find( sSearchString := ' ' , udiStartPos := iSelectStart);¨iSelectTagClose := Buffer.Find( sSearchString := '/' , udiStartPos := iSelectStart);B(* Check wether range is valid *)†IF iSelectStart < Buffer.Length AND iSelectEnd < Buffer.Length THEN6  iSearchPos := iSelectEnd ;’    sTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd );f (* check wether a Parameter is within the range *)L IF iSelectEnd < iSelectStartPara THEN˜     NextTag := Buffer.Copy( udiStart:= iSelectStart + 1,udiEnd:= iSelectEnd );
    ELSE¤       NextTag := Buffer.Copy(udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara ); END_IF;T   IF iSelectTagClose = iSelectStart +1 THEN      (* End Tag *)6      (* Extinguish last Tag *)r      iSelect := TagListSeek.FindBack(sSearchString := '/' ); Z      TagListSeek.CutOff(udistartpos:= iSelect );!–  ELSIF iSelectTagClose > iSelectStart AND iSelectTagClose < iSelectEnd THEN"0    (* Tag with end Tag *)#2    (* save interleaving *)$:      TagListSeek.Append := '/' ;%B      TagListSeek.Append := NextTag ;&v      iSelect := TagListSeek.FindBack ( sSearchString := '/' );'^      TagListSeek.CutOff ( udistartpos:= iSelect );(4      (* save interleaving  *))ELSE*&   (* no tag found *)+< iSearchPos := Buffer.Length ;,    NextTag := '' ;-END_IF;.Interface/L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}0FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐE+ÐÐ  
­ ÚÐ-
ÐÐ  
­!ÚÐ-ÐÐ  
­"ÚÐ-ÐÐ  
­#ÚÐ-ÐÐ  
­$ÚÐ-ÐÐ  
­%ÚÐ-ÐÐ  
­&ÚÐ-ÐÐ  
­'ÚÐ-ÐÐ  
­(ÚÐ-ÐÐ  
­)ÚÐ-ÐÐ  
­*ÚÐ-ÐÐ  
­+ÚÐ-ÐÐ  
­,ÚÐ-ÐÐ  
­-ÚÐ-ÐÐ  
­.ÚÐ-ÐÐ  
­/ÚÐ-ÐÐ  
­0ÚÐ-ÐÐ  
­1ÚÐ-ÐÐ  
­2ÚÐ-ÐÐ  
­3ÚÐ-ÐÐ  
­4ÚÐ-ÐÐ  
­5ÚÐ-ÐÐ  
­6ÚÐ- ÐÐ  
­7ÚÐ-!ÐÐ  
­8ÚÐ-"ÐÐ  
­9ÚÐ-#ÐÐ  
­:ÚÐ-$ÐÐ  
­;ÚÐ-%ÐÐ  
­<ÚÐ-ÐÐ  
­=ÚÐ-ÐÐ  
­>ÚÐ-&ÐÐ  
­?ÚÐ-'ÐÐ  
­@ÚÐ-ÐÐ  
­AÚÐ-(ÐÐ  
­BÚÐ-$ÐÐ  
­CÚÐ-%ÐÐ  
­DÚÐ-ÐÐ  
­EÚÐ-ÐÐ  
­FÚÐ-)ÐÐ  
­GÚÐ-*ÐÐ  
­HÚÐ-+ÐÐ  
­IÚÐ-,ÐÐ  
­ÚÐ--Ð./ÐEÐÐ    
­ÚÐ-0

	a/trunk/library/FB_XmlControl/NextTag/svnobj		b/trunk/library/FB_XmlControl/NextTag/svnobj
1	Gx_l‡!0…jüo†’âiÚÙ:ÏÚ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	1	Gx_lÊ!0…jüoa cóãæA¯(ï,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
2	longTagText ¨iSelectStart := Buffer.Find(sSearchString := TAG_OPEN, udiStartPos := udiSearchPos);¦iSelectEnd := Buffer.Find(sSearchString := TAG_CLOSE, udiStartPos := iSelectStart);ªiSelectStartPara := Buffer.Find(sSearchString := SPACE, udiStartPos := iSelectStart);¸iSelectTagClose := Buffer.Find(sSearchString := FORWARD_SLASH, udiStartPos := iSelectStart);IF iSelectStart < Buffer.Length AND iSelectEnd < Buffer.Length THEN> udiSearchPos := iSelectEnd; sTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd);R IF iSelectEnd < iSelectStartPara THEN¤ NextTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd); ELSE° NextTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara); END_IF;\ IF iSelectTagClose = iSelectStart + 1 THEN iSelect := TagListSeek.FindBack(sSearchString := FORWARD_SLASH);d TagListSeek.CutOff(udiStartPos:= iSelect); ELSIF iSelectTagClose > iSelectStart AND iSelectTagClose < iSelectEnd THENX TagListSeek.Append := FORWARD_SLASH;L TagListSeek.Append := NextTag;ELSE D udiSearchPos := Buffer.Length;!$ NextTag := '';"END_IF;#Interface$L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}%FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐEÐÐ	2	longTagText œiSelectStart := Buffer.Find(sSearchString := '<' , udiStartPos := iSearchPos);œiSelectEnd := Buffer.Find(sSearchString := '>' , udiStartPos := iSelectStart);ªiSelectStartPara := Buffer.Find( sSearchString := ' ' , udiStartPos := iSelectStart);¨iSelectTagClose := Buffer.Find( sSearchString := '/' , udiStartPos := iSelectStart);B(* Check wether range is valid )†IF iSelectStart < Buffer.Length AND iSelectEnd < Buffer.Length THEN6 iSearchPos := iSelectEnd ;’ sTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd );f ( check wether a Parameter is within the range *)L IF iSelectEnd < iSelectStartPara THEN˜ NextTag := Buffer.Copy( udiStart:= iSelectStart + 1,udiEnd:= iSelectEnd );
		3	ELSE¤ NextTag := Buffer.Copy(udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara ); END_IF;T IF iSelectTagClose = iSelectStart +1 THEN (* End Tag )6 ( Extinguish last Tag )r iSelect := TagListSeek.FindBack(sSearchString := '/' ); Z TagListSeek.CutOff(udistartpos:= iSelect );!– ELSIF iSelectTagClose > iSelectStart AND iSelectTagClose < iSelectEnd THEN"0 ( Tag with end Tag )#2 ( save interleaving )$: TagListSeek.Append := '/' ;%B TagListSeek.Append := NextTag ;&v iSelect := TagListSeek.FindBack ( sSearchString := '/' );'^ TagListSeek.CutOff ( udistartpos:= iSelect );(4 ( save interleaving ))ELSE& (* no tag found *)+< iSearchPos := Buffer.Length ;, NextTag := '' ;-END_IF;.Interface/L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}0FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐE+ÐÐ
3	ÚÐ- ÐÐ	4	ÚÐ- ÐÐ
4	ÚÐ-ÐÐ	5	!ÚÐ-ÐÐ
5	ÚÐ-ÐÐ	6	"ÚÐ-ÐÐ
6	ÚÐ-ÐÐ	7	#ÚÐ-ÐÐ
7	ÚÐ-ÐÐ	8	$ÚÐ-ÐÐ
8	ÚÐ-ÐÐ	9	%ÚÐ-ÐÐ
9	ÚÐ-ÐÐ	10	&ÚÐ-ÐÐ
10		11	'ÚÐ-ÐÐ
11	ÚÐ-ÐÐ	12	(ÚÐ-ÐÐ
12	ÚÐ-ÐÐ	13	)ÚÐ-ÐÐ
13	ÚÐ-ÐÐ	14	*ÚÐ-ÐÐ
		15	+ÚÐ-ÐÐ
14	ÚÐ-ÐÐ	16	,ÚÐ-ÐÐ
15	ÚÐ-ÐÐ	17	-ÚÐ-ÐÐ
16	ÚÐ-ÐÐ	18	.ÚÐ-ÐÐ
17	ÚÐ-ÐÐ	19	/ÚÐ-ÐÐ
18	ÚÐ-ÐÐ	20	0ÚÐ-ÐÐ
19	ÚÐ-ÐÐ	21	1ÚÐ-ÐÐ
		22	2ÚÐ-ÐÐ
20	ÚÐ-ÐÐ	23	3ÚÐ-ÐÐ
21	ÚÐ-ÐÐ	24	4ÚÐ-ÐÐ
22	ÚÐ-ÐÐ	25	5ÚÐ-ÐÐ
23	ÚÐ-ÐÐ	26	6ÚÐ- ÐÐ
		27	7ÚÐ-!ÐÐ
		28	8ÚÐ-"ÐÐ
		29	9ÚÐ-#ÐÐ
		30	:ÚÐ-$ÐÐ
		31	;ÚÐ-%ÐÐ
		32	<ÚÐ-ÐÐ
		33	=ÚÐ-ÐÐ
24	ÚÐ-ÐÐ	34	>ÚÐ-&ÐÐ
25	ÚÐ-ÐÐ	35	?ÚÐ-'ÐÐ
26	ÚÐ-ÐÐ	36	@ÚÐ-ÐÐ
		37	AÚÐ-(ÐÐ
27	ÚÐ-ÐÐ	38	BÚÐ-$ÐÐ
		39	CÚÐ-%ÐÐ
28	ÚÐ-ÐÐ	40	DÚÐ-ÐÐ
		41	EÚÐ-ÐÐ
		42	FÚÐ-)ÐÐ
29	ÚÐ- ÐÐ	43	GÚÐ-*ÐÐ
		44	HÚÐ-+ÐÐ
30	ÚÐ-!ÐÐ	45	IÚÐ-,ÐÐ
31	ÚÐ-"Ð#$ÐEÐÐ	46	ÚÐ--Ð./ÐEÐÐ
32	ÚÐ-%	47	ÚÐ-0