Diff of /trunk/library/FB_XmlControl/NextTag/svnobj [r68] .. [r69]  Maximize  Restore

Switch to side-by-side view

--- a/trunk/library/FB_XmlControl/NextTag/svnobj
+++ b/trunk/library/FB_XmlControl/NextTag/svnobj
@@ -1,6 +1,6 @@
-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
-longTag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 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 );
-	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+ÐÐ	
+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
+longTag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 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 );
+	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-ÐÐ	
 ­ ÚÐ-
ÐÐ	
 ­!ÚÐ-ÐÐ	
 ­"ÚÐ-ÐÐ	
@@ -18,30 +18,32 @@
 ­.ÚÐ-ÐÐ	
 ­/ÚÐ-ÐÐ	
 ­0ÚÐ-ÐÐ	
-­1ÚÐ-ÐÐ	
-­2ÚÐ-ÐÐ	
-­3ÚÐ-ÐÐ	
-­4ÚÐ-ÐÐ	
-­5ÚÐ-ÐÐ	
-­6ÚÐ- ÐÐ	
-­7ÚÐ-!ÐÐ	
-­8ÚÐ-"ÐÐ	
-­9ÚÐ-#ÐÐ	
-­:ÚÐ-$ÐÐ	
-­;ÚÐ-%ÐÐ	
+­OÚÐ-ÐÐ	
+­MÚÐ-ÐÐ	
+­NÚÐ-ÐÐ	
+­1ÚÐ-ÐÐ	
+­LÚÐ-ÐÐ	
+­3ÚÐ- ÐÐ	
+­4ÚÐ-!ÐÐ	
+­5ÚÐ-"ÐÐ	
+­6ÚÐ-#ÐÐ	
+­7ÚÐ-$ÐÐ	
+­8ÚÐ-%ÐÐ	
+­9ÚÐ-&ÐÐ	
+­:ÚÐ-'ÐÐ	
+­;ÚÐ-(ÐÐ	
 ­<ÚÐ-ÐÐ	
-­=ÚÐ-ÐÐ	
-­>ÚÐ-&ÐÐ	
-­?ÚÐ-'ÐÐ	
+­=ÚÐ-!ÐÐ	
+­>ÚÐ-)ÐÐ	
+­KÚÐ-*ÐÐ	
 ­@ÚÐ-ÐÐ	
-­AÚÐ-(ÐÐ	
-­BÚÐ-$ÐÐ	
-­CÚÐ-%ÐÐ	
-­DÚÐ-ÐÐ	
+­AÚÐ-+ÐÐ	
+­BÚÐ-'ÐÐ	
+­CÚÐ-(ÐÐ	
 ­EÚÐ-ÐÐ	
-­FÚÐ-)ÐÐ	
-­GÚÐ-*ÐÐ	
-­HÚÐ-+ÐÐ	
-­IÚÐ-,ÐÐ	
-­ÚÐ--Ð./ÐEÐÐ	
-­ÚÐ-0
\ No newline at end of file
+­FÚÐ-,ÐÐ	
+­GÚÐ--ÐÐ	
+­HÚÐ-.ÐÐ	
+­IÚÐ-/ÐÐ	
+­ÚÐ-0Ð12ÐEÐÐ	
+­ÚÐ-3
\ No newline at end of file