co📁e - XML File Handling

a simple library to compose or parse XML

Brought to you by: aliazzz

no license defined!!!

Diff of /branches/timvh/library/FB_XmlControl/NextTag/svnobj [r77] .. [r78] Maximize Restore

Switch to unified view


Gx_ly!0…jüoàRIq$–ëH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 AND iSelectTagClose < 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;$    // create path¸    IF Buffer.GetChar(iSelectStart + 1) = '?' OR Buffer.GetChar(iSelectStart + 1) = '!' THENŠ        ; // skip when it is a prolog, or when it is comment or CDATA\ ELSIF iSelectTagClose = iSelectStart + 1 THEN       (* End Tag *)!6      (* Extinguish last Tag *)"r      iSelect := TagListSeek.FindBack(sSearchString := '/' );#Z      TagListSeek.CutOff(udistartpos := iSelect);$X   ELSIF iSelectTagClose = iSelectEnd - 1 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 := '' ;0END_IF;1Interface2L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}3FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐE-ÐÐ  
­ ÚÐ-
ÐÐ  
­!ÚÐ-ÐÐ  
­"ÚÐ-ÐÐ  
­#ÚÐ-ÐÐ  
...
­GÚÐ--ÐÐ  
­HÚÐ-.ÐÐ  
­IÚÐ-/ÐÐ  
­ÚÐ-0Ð12ÐEÐÐ    
­ÚÐ-3

	a/branches/timvh/library/FB_XmlControl/NextTag/svnobj		b/branches/timvh/library/FB_XmlControl/NextTag/svnobj
1	Gx_l3!0…jüošTRJGq$–ëHSystem.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_ly!0…jüoàRIq$–ëHSystem.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 := '<' , 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 );	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 AND iSelectTagClose < 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;$ // create path¸ IF Buffer.GetChar(iSelectStart + 1) = '?' OR Buffer.GetChar(iSelectStart + 1) = '!' THENŠ ; // skip when it is a prolog, or when it is comment or CDATA\ ELSIF iSelectTagClose = iSelectStart + 1 THEN (* End Tag )!6 ( Extinguish last Tag )"r iSelect := TagListSeek.FindBack(sSearchString := '/' );#Z TagListSeek.CutOff(udistartpos := iSelect);$X ELSIF iSelectTagClose = iSelectEnd - 1 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 := '' ;0END_IF;1Interface2L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}3FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐE-ÐÐ	3	ELSE¤ NextTag := Buffer.Copy(udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara ); END_IF;$ // create path¸ IF Buffer.GetChar(iSelectStart + 1) = '?' OR Buffer.GetChar(iSelectStart + 1) = '!' THENŠ ; // skip when it is a prolog, or when it is comment or CDATA\ ELSIF iSelectTagClose = iSelectStart + 1 THEN (* End Tag )!6 ( Extinguish last Tag )"r iSelect := TagListSeek.FindBack(sSearchString := '/' );#Z TagListSeek.CutOff(udistartpos := iSelect);$X ELSIF iSelectTagClose = iSelectEnd - 1 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 := '' ;0END_IF;1Interface2L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}3FMETHOD PUBLIC NextTag : T_MaxStringÐÐÐE-ÐÐ
4	ÚÐ- ÐÐ	4	ÚÐ- ÐÐ
5	!ÚÐ-ÐÐ	5	!ÚÐ-ÐÐ
6	"ÚÐ-ÐÐ	6	"ÚÐ-ÐÐ
7	#ÚÐ-ÐÐ	7	#ÚÐ-ÐÐ
	...		...
45	GÚÐ--ÐÐ	45	GÚÐ--ÐÐ
46	HÚÐ-.ÐÐ	46	HÚÐ-.ÐÐ
47	IÚÐ-/ÐÐ	47	IÚÐ-/ÐÐ
48	ÚÐ-0Ð12ÐEÐÐ	48	ÚÐ-0Ð12ÐEÐÐ
49	ÚÐ-3	49	ÚÐ-3