--- a/branches/timvh/library/FB_XmlControl/NextTag/svnobj
+++ b/branches/timvh/library/FB_XmlControl/NextTag/svnobj
@@ -1,5 +1,5 @@
-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 );
+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
+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 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 );
 	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-ÐÐ	
 ­ ÚÐ-
ÐÐ	
 ­!ÚÐ-ÐÐ