Diff of /branches/timvh/library/FB_XmlControl/NextTag/svnobj [000000] .. [r66]  Maximize  Restore

Switch to side-by-side view 

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