[r57]: / trunk / library / FB_XmlControl / NextTag / svnobj  Maximize  Restore  History

Download this file

14 lines (13 with data), 4.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
iSelectEnd := Buffer.Find(sSearchString := '>' , udiStartPos := iSelectStart);
iSelectTagClose := Buffer.Find( sSearchString := '/' , udiStartPos := iSelectStart);
(* Check wether range is valid *)
	sTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd );
	(* check wether a Parameter is within the range *)
	IF iSelectEnd < iSelectStartPara THEN
		NextTag := Buffer.Copy(udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara );
	END_IF;
	IF iSelectTagClose = iSelectStart +1 THEN
		(* End Tag *)
		(* Extinguish last Tag *)
		iSelect := TagListSeek.FindBack(sSearchString := '/' );
		TagListSeek.CutOff(udistartpos:= iSelect );