Как из этого :
code_32711.txt
Получить это:
code_32712.txt
С html вроде как дружу, но вывести из TreeViewTrain не получается.
------------ Дoбавленo в 16.18:
Текст в StrList сбивается... Вот его содержимое :
1;Интерфейс;-1;-1
10;Bagon;1;-1
11;Bagon;1;-1
12;Bagon;11;-1
2;Интерфейс;-1;-1
20;Bagon;2;-1
21;Bagon;2;-1
------------ Дoбавленo в 08.43:
Ребят, помогите пожалуйста, я тоже на месте не сижу. но это максимум что у меня выходит... дальше не представляю как делать.
Add(MainForm,9944926,189,315){
Width=1051
Height=438
Caption="TreeViewTrain"
link(onCreate,5697879:doEnum,[])
}
Add(StrList,4147502,245,161)
{
Strings=#14:1;Интерфейс;-1|12:2;Bagon1.1;1|12:3;Bagon1.2;1|14:4;Bagon1.2.1;3|14:5;Интерфейс;-1|12:6;Bagon2.1;5|12:7;Bagon2.2;5|
}
Add(Memo,14724079,1043,336)
{
Left=755
Width=280
Height=380
Align=3
Strings=#4:<ul>|
link(onChange,9463711:doTimer,[(1087,342)(1087,384)(982,384)(982,426)])
}
Add(ArrayEnum,5697879,259,329)
{
link(onItem,2957881:doSplit,[(332,335)(332,167)])
link(onEndEnum,12367804:doEnum,[])
link(Array,7558785:Var2,[])
}
Add(MultiStrPart,1665940,399,336)
{
link(onSplit,5331347:doCompare,[])
}
Add(DoData,11997732,413,462)
{
Data=String(</ul>)
link(onEventData,639749:doWork3,[(956,468)])
}
Add(StrCat,1419514,490,336)
{
Str1="<li>"
link(onStrCat,1336395:doEvent1,[])
link(Str2,9108667:Var,[])
}
Add(LineBreak,6390147,406,378)
{
Type=1
link(Data,1665940:Part2,[])
Primary=[9108667,91,-63]
}
Add(MultiStrData,2957881,343,161)
{
Count=3
link(onPart1,1686212:doAdd,[(384,167)(384,111)])
link(onPart2,14785680:doAdd,[])
link(onPart3,6019311:doAdd,[(384,181)(384,230)])
}
Add(StrList,1686212,490,105)
{
}
Add(StrList,14785680,455,168)
{
}
Add(StrList,6019311,413,224)
{
}
Add(ArrayEnum,12367804,343,336)
{
link(onItem,1665940:doSplit,[])
link(onEndEnum,11997732:doData,[(387,349)(387,468)])
link(Array,7558785:Var3,[(349,320)])
}
Add(GetDataEx,7558785,259,315)
{
link(Data,4147502:Array,[])
}
Add(If_else,5331347,441,336)
{
Op2=String(-1)
link(onTrue,1419514:doStrCat,[])
}
Add(HubEx,639749,952,336)
{
link(onEvent,14724079:doAdd,[])
}
Add(WebBrowser,15145179,1085,392)
{
Left=175
Width=580
Height=380
Align=5
Point(doFromText)
}
Add(FormatStr,3278219,1043,420)
{
DataCount=1
Mask="<html><head><title>123</title></head><body>%1</body></html>"
link(onFString,15145179:doFromText,[])
link(Str1,14724079:Text,[])
}
Add(Timer,9463711,994,420)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,3278219:doString,[])
}
Add(Hub,1336395,539,336)
{
link(onEvent1,9874788:doWork2,[])
link(onEvent2,10365854:doEnum,[])
}
Add(ArrayRW,12357220,651,343)
{
link(onRead,3974808:doStrCat,[])
link(Array,14402597:Var,[])
}
Add(HubEx,9874788,735,336)
{
link(onEvent,639749:doWork2,[])
}
Add(StrCat,3974808,700,343)
{
Str1="<li>"
link(onStrCat,9874788:doWork3,[(739,349)])
}
Add(ArrayEnum,10365854,567,343)
{
link(onItem,7739345:doCompare,[])
link(Array,13993503:Var,[])
}
Add(If_else,7739345,609,343)
{
link(onTrue,12357220:doRead,[])
link(Op2,14001203:Var,[])
}
Add(LineBreak,3621001,399,378)
{
Type=1
link(Data,1665940:Part1,[])
Primary=[14001203,217,-56]
}
Add(LineBreak,14342155,427,280)
{
Type=1
link(Data,6019311:Array,[])
Primary=[13993503,140,42]
}
Add(LineBreak,2272136,469,224)
{
Type=1
link(Data,14785680:Array,[])
Primary=[14402597,182,98]
}
В надежде что помощь все же придет, поясняю строение
"
1;Интерфейс;-1;-1
10;Bagon;1;-1
11;Bagon;1;-1
12;Bagon;11;-1
2;Интерфейс;-1;-1
20;Bagon;2;-1
21;Bagon;2;-1
"
1;Интерфейс;-1;-1 -1(id);Интерфейс(Имя элемента меню);-1(Свидетельствует о том,что элемент является главным и родителей не имеет);-1(id иконки)
10;Bagon;1;-1 -10(id);Bagon(Имя элемента меню);1(Свидетельствует о том, что у элемента есть родитель с id=1);-1(id иконки)
11;Bagon;1;-1 -один в один как и элемент выше, только id другой
12;Bagon;11;-1 -12(id);Bagon(Имя элемента меню);11(Свидетельствует о том, что у элемента есть родитель с id=11);-1(id иконки)
и т.д.
Я думал что ссылка на родителя мне поможет(по идеи так и есть, без нее никак...), но я не могу его заставить выводить Child пункты правильно.
Пробовал через ArrayFind, но он находит только первый элемент и останавливается на этом.
Сейчас долго думал как описать хотя бы "расплывчатое" описание работы, но снова запутался, если Вы представляете как решить эту проблему прошу добавить скайп : wervolf0279(Раз буквами не могу выразить, возможно звуками получится
), или показать схему.
Поиск
Друзья
Администрация