Download this file
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;