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

Download this file

15 lines (14 with data), 3.7 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
iSelectEnd := Buffer.Find(sSearchString := TAG_CLOSE, udiStartPos := iSelectStart);
iSelectTagClose := Buffer.Find(sSearchString := FORWARD_SLASH, udiStartPos := iSelectStart);
    sTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectEnd);
    IF iSelectEnd < iSelectStartPara THEN
        NextTag := Buffer.Copy( udiStart:= iSelectStart + 1, udiEnd:= iSelectStartPara);
    END_IF;
    IF iSelectTagClose = iSelectStart + 1 THEN
    ELSIF iSelectTagClose > iSelectStart AND iSelectTagClose < iSelectEnd THEN
        TagListSeek.Append := FORWARD_SLASH;
        TagListSeek.Append := NextTag;
ELSE
    udiSearchPos := Buffer.Length;
    NextTag := '';
END_IF;