Вверх ↑
Этот топик читают: Гость
Ответов: 8609
Рейтинг: 800
#31: 2009-09-16 14:32:45 ЛС | профиль | цитата
Tad, ну не ручками строки переставлять, наверное, "ресурсоёмкая"
карма: 18

0
Ответов: 80
Рейтинг: -5
#32: 2009-09-17 02:14:33 ЛС | профиль | цитата
Ребята, по итогам конструктивного, , диалога общества выкладываю результат:

code_14962.txt

Программа выложенная в начале топика повела себя странно - не компилируется отдельно от основной части схемы странно?
По идее должна была работать? Ладно, не будем о грустном.
Теперь бодрее, прошу обсудить работу данной программы целиком, и/или по частям.
Ставлю себе задачу: приняв на вход совокупность строк показывающее размеры файлов, отсортировать их как число, убрать повторы и сделать возможность менять количество символов в строке для дальнейшего поиска в файловой системе каково то определенного файла, или группы файлов, имеющие такие же или приблизительные размеры.

Недостатки данной программы:
- странно ведет себя таймер - нет сигнала после останова тем самым не запускается следующий этап.
- остальное работает в принципе неплохо но при изменении длинны строки чразмеры идут опять в перемежку.
- конечно было бы неплохо укорачивать строки с конца, а не сначала.
Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !


------------ Дoбавленo в 03.23:
Блин, вот еще полная схема дополнения до промежуточных таблиц( добавлена вторая):
Make(delphi)
ver(4.03 build 180)
Add(MainForm,16510308,56,84)
{
Width=399
Height=478
link(onCreate,9602468:doEvent1,[])
}
Add(Random,8873230,182,105)
{
Max=15000
link(onRandom,11043801:doWork1,[(268,111)(268,97)])
}
Add(ChildGroupBox,11043801,322,91)
{
@Color=0
}
BEGIN_SDK
Add(EditMulti,4395781,21,21)
{
@Color=0
EventCount=3
WorkCount=4
DataCount=2
Width=545
Height=95
HOffset=200
link(doWork1,4006446:In,[(31,27)(31,27)])
link(doWork2,4315887:In,[(71,34)(71,34)])
link(doWork3,15894555:In,[(31,41)(31,41)])
link(doWork4,2992425:In,[(67,48)(67,48)])
}
Add(LineBreak,2192890,420,21)
{
@Color=0
Caption="Размер"
link(Out,4395781:onEvent1,[(519,27)(519,27)])
Primary=[16167966,504,364]
}
Add(LineBreak,16031352,221,44)
{
Caption="Текст заголовка"
Type=1
link(Data,4395781:Data1,[])
Primary=[11114155,773,271]
}
Add(GroupBox,10431958,1070,364)
{
@Color=5614080
Top=160
Width=380
Height=274
Color=15780518
Font=[MS Sans Serif,8,1,255,1]
Name="РазмерB"
Caption="Size"
Point(doCaption)
}
Add(LineBreak,9311171,236,217)
{
Caption="Старт"
link(Out,6152098:doEvent1,[])
Primary=[12891857,268,140]
}
Add(LineBreak,10683483,671,294)
{
Caption="ОперСброс1"
link(Out,5558249:doEvent1,[])
Primary=[7332845,-176,51]
}
Add(Label,13705641,443,329)
{
Left=115
Top=2
Width=11
Height=17
Color=15780518
Font=[MS Sans Serif,8,1,255,1]
Caption="+"
Point(doBringToFront)
}
Add(UpDown,13081669,366,329)
{
Left=101
Top=2
Width=10
Height=15
Color=15780518
Hint="Фильтр - Разделение по СИМВОЛАМ"
Max=25
Point(doBringToFront)
link(onPosition,3823243:doEvent1,[])
}
Add(MultiElement,9860082,443,371)
{
link(onEvent1,807113:In,[])
}
BEGIN_SDK
Add(EditMulti,13394823,21,21)
{
EventCount=1
WorkCount=2
Width=433
Height=144
link(doWork1,12025655:In,[])
link(doWork2,10644509:In,[])
}
Add(Delete,13145066,173,98)
{
Count=256
link(onDelete,10763736:doTrim,[])
link(Position,11500044:Result,[])
}
Add(Hub,12779076,299,98)
{
InCount=2
OutCount=1
link(onEvent1,446756:doData,[])
}
Add(LineBreak,10938344,59,56)
{
@Hint=#37:Счетчик количества выбранных символав|
Caption="Счтчик"
link(Out,2058245:doValue,[])
Primary=[12025655,-24,-35]
}
Add(LineBreak,4661474,17,98)
{
Caption="Data-строка"
link(Out,7974893:doWork1,[])
Primary=[10644509,74,-70]
}
Add(Math,11500044,180,56)
{
Op2=1
ResultType=0
}
Add(MultiElement,7974893,124,98)
{
link(onEvent1,13145066:doDelete,[])
link(onEvent2,12779076:doEvent2,[])
link(Data1,2058245:Value,[])
}
BEGIN_SDK
Add(EditMulti,1813348,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=181
Height=354
link(doWork1,7225789:doEvent,[(28,27)(28,76)])
}
Add(IndexToChanel,7225789,35,70)
{
Count=25
Point(Index)
link(onEvent1,1813348:onEvent2,[(135,76)(170,62)(170,34)])
link(onEvent2,537767:doEvent1,[])
link(onEvent3,537767:doEvent2,[])
link(onEvent4,537767:doEvent3,[])
link(onEvent5,537767:doEvent4,[])
link(onEvent6,537767:doEvent5,[])
link(onEvent7,537767:doEvent6,[])
link(onEvent8,537767:doEvent7,[])
link(onEvent9,537767:doEvent8,[])
link(onEvent10,537767:doEvent9,[])
link(onEvent11,537767:doEvent10,[])
link(onEvent12,537767:doEvent11,[])
link(onEvent13,537767:doEvent12,[])
link(onEvent14,537767:doEvent13,[])
link(onEvent15,537767:doEvent14,[])
link(onEvent16,537767:doEvent15,[])
link(onEvent17,537767:doEvent16,[])
link(onEvent18,537767:doEvent17,[])
link(onEvent19,537767:doEvent18,[])
link(onEvent20,537767:doEvent19,[])
link(onEvent21,537767:doEvent20,[])
link(onEvent22,537767:doEvent21,[])
link(onEvent23,537767:doEvent22,[])
link(onEvent24,537767:doEvent23,[])
link(onEvent25,537767:doEvent24,[])
link(Index,1813348:Data1,[(41,46)(27,46)])
}
Add(Hub,537767,105,77)
{
InCount=24
OutCount=1
link(onEvent1,1813348:onEvent1,[(177,83)(177,27)])
}
END_SDK
Add(LineBreak,6940421,322,21)
{
Caption="Результат"
link(Out,13394823:onEvent1,[])
Primary=[10591343,52,77]
}
Add(Trim,10763736,215,98)
{
Char=","
link(onTrim,6852375:doTrim,[])
}
Add(Trim,6852375,257,98)
{
Char="!"
link(onTrim,12779076:doEvent1,[])
}
Add(Memory,2058245,124,56)
{
link(onData,11500044:doOperation,[])
}
Add(ChangeMon,446756,329,98)
{
@Hint=#19:Фильтр одинаковости|
link(onData,10591343:In,[])
AddHint(-72,38,129,13,@Hint)
}
END_SDK
Add(Hub,3823243,406,329)
{
OutCount=5
link(onEvent1,13705641:doText,[])
link(onEvent2,8586672:In,[(475,342)(475,344)])
link(onEvent3,7332845:In,[(458,349)(458,351)])
link(onEvent4,9860082:doWork1,[(432,356)(432,377)])
link(onEvent5,12891857:In,[])
}
Add(LineBreak,12528398,241,378)
{
Caption="Data-строка"
link(Out,9860082:doWork2,[])
Primary=[16374019,228,-161]
}
Add(LineBreak,7473042,244,231)
{
Caption="End "
link(Out,16107846:doSortDigit,[])
Primary=[2992425,-131,-189]
}
Add(LineBreak,413638,30,532)
{
Caption="Результат"
link(Out,11803614:doData,[])
Primary=[807113,461,-161]
}
Add(InfoTip,431922,238,294)
{
Info=#25:Филтр строк с управлением|
Width=330
Height=116
}
Add(DoData,9073310,315,329)
{
Data=Integer(0)
link(onEventData,13081669:doPosition,[])
}
Add(Hub,7817784,315,175)
{
@Color=65535
OutCount=3
link(onEvent1,10925508:doClear,[])
link(onEvent2,2069545:In,[])
link(onEvent3,13549983:In,[])
}
Add(LineBreak,3287296,238,329)
{
Caption="Активатор"
link(Out,9073310:doData,[])
Primary=[13549983,336,-140]
}
Add(LineBreak,15231015,237,175)
{
@Hint=#43:Задает начальную установку частей программы|
@Color=0
Caption="Активатор"
link(Out,7817784:doEvent1,[])
Primary=[4315887,-117,-147]
}
Add(LineBreak,6600956,25,196)
{
@Color=0
Caption="Load/Save"
link(Out,6896592:doWork1,[])
Primary=[15894555,17,-161]
}
Add(LineBreak,15861386,228,63)
{
Caption="ИмяФайла"
Type=1
link(Data,4395781:Data2,[])
Primary=[6388418,-109,100]
}
Add(MST_Load,5315194,182,196)
{
MSTControl="Size-pro"
link(FileName,6896592:Var1,[(188,184)(156,184)(156,240)(125,240)])
}
Add(MST_Save,11920761,182,238)
{
MSTControl="Size-pro"
link(FileName,6896592:Var2,[(188,233)(132,233)])
}
Add(MST_SortInCol,16107846,308,224)
{
MSTControl="Size-pro"
Point(doSortDigit)
link(onChange,6152098:doEvent2,[])
}
Add(MultiElement,6896592,119,196)
{
@Color=255
link(onEvent1,5315194:doLoad,[])
link(onEvent2,11920761:doSave,[(167,209)(167,244)])
link(Data1,6388418:Var,[])
}
BEGIN_SDK
Add(EditMulti,15628907,21,21)
{
@Color=0
EventCount=2
WorkCount=1
DataCount=1
VarCount=2
Width=328
link(doWork1,8548359:doEvent,[(35,27)(35,104)])
link(Var1,15591745:Result,[(27,175)(216,175)])
link(Var2,503825:Result,[(34,200)(216,200)])
}
Add(StrCat,15591745,210,98)
{
@Color=5592575
Str2="_B.txt"
link(onStrCat,15628907:onEvent1,[(296,104)(296,27)])
}
Add(StrCat,503825,210,147)
{
@Color=5592575
Str2="_B.txt"
link(onStrCat,15628907:onEvent2,[(296,153)(296,34)])
}
Add(GetDataEx,8701971,42,39)
{
Angle=3
link(Data,15628907:Data1,[(27,44)])
}
Add(StrCat,2986072,147,147)
{
@Color=5570815
link(onStrCat,503825:doStrCat,[])
link(Str2,8701971:Var3,[(160,44)])
}
Add(StrCat,8338865,133,98)
{
@Color=5570815
link(onStrCat,15591745:doStrCat,[])
link(Str2,8701971:Var2,[(146,73)(48,73)])
}
Add(MT_IndexToChanel,8548359,49,98)
{
link(onEvent1,8338865:doStrCat,[])
link(onEvent2,2986072:doStrCat,[(114,111)(114,153)])
}
END_SDK
Add(LineBreak,717230,36,364)
{
@Hint=#38:Найденое и сконструированное имя файла|
@Color=0
Caption="TM_text"
link(Out,4848144:doData,[])
Primary=[4006446,6,-343]
}
Add(MST_RowAction,1633812,189,364)
{
MSTControl="Size-pro"
}
Add(ArrayEnum,686593,385,217)
{
link(onItem,446756:doData,[])
link(onEndEnum,2920702:In,[(454,230)(454,237)])
link(Array,4701230:Strings,[])
}
Add(MST_ArrayRows,4701230,385,173)
{
MSTControl="Size-pro"
}
Add(MTStrTbl,5728477,427,175)
{
Top=80
Width=375
Height=185
Name="Size-pro"
Columns=#1:1|
}
Add(ChangeMon,4848144,147,364)
{
@Hint=#19:Фильтр одинаковости|
link(onData,1633812:doRowAction,[])
AddHint(-113,44,129,13,@Hint)
}
Add(ChangeMon,446756,427,217)
{
@Hint=#19:Фильтр одинаковости|
link(onData,16374019:In,[])
AddHint(-72,38,129,13,@Hint)
}
Add(Hub,6152098,357,217)
{
InCount=2
OutCount=1
link(onEvent1,686593:doEnum,[])
}
Add(InfoTip,11801515,21,126)
{
Info=#9:Load/Save|
Width=211
Height=158
}
Add(InfoTip,9176671,21,294)
{
Info=#19:Вставка писка строк|24:первый уровень филтраций|
Width=211
Height=158
}
Add(InfoTip,11304052,238,126)
{
Info=#45:Начальная сортировка 2 и 3 уровень фильтраций|
Width=330
Height=158
}
Add(MST_Clear,10925508,343,175)
{
MSTControl="Size-pro"
}
Add(ComboBox,9539729,819,287)
{
Left=2
Top=15
Width=136
Height=21
Point(onMouseMove)
Point(Count)
link(onChange,6957260:doEvent2,[(867,293)(867,286)])
link(onClick,15274760:doData,[(867,300)(867,391)])
link(onMouseMove,4395781:onEvent3,[(863,307)(863,174)(575,174)(575,41)])
}
Add(DoData,15274760,882,385)
{
@Hint=#43:получение строковой составляющей для поиска|
@Color=5570815
link(onEventData,16167966:In,[])
link(Data,9539729:String,[(888,359)(832,359)])
AddHint(-56,41,136,26,@Hint)
}
Add(Hub,5558249,760,294)
{
@Color=5570815
link(onEvent1,9539729:doClear,[])
link(onEvent2,6957260:doEvent1,[(828,307)(828,279)])
}
Add(Hub,6957260,882,273)
{
InCount=2
OutCount=1
link(onEvent1,6000558:doStrCat,[(945,279)(945,370)])
}
Add(StrCat,6000558,994,364)
{
@Hint=#35:Имя состовляющей + количества строк|
@Color=5570815
link(onStrCat,10431958:doCaption,[])
link(Str1,11114155:Var,[])
link(Str2,9539729:Count,[(1007,348)(839,348)])
AddHint(-70,99,189,26,@Hint)
}
Add(LineBreak,2041488,675,280)
{
Caption="Data-строка"
link(Out,9539729:doAdd,[(792,286)(792,293)])
Primary=[14591234,-206,273]
}
Add(LineBreak,16714832,244,567)
{
Caption="End "
link(Out,11744541:doSortDigit,[])
Primary=[2920702,247,-336]
}
Add(Hub,1003012,315,511)
{
@Color=65535
InCount=2
link(onEvent1,8147895:doClear,[])
}
Add(LineBreak,15468271,237,511)
{
@Hint=#43:Задает начальную установку частей программы|
@Color=0
Caption="Активатор"
link(Out,1003012:doEvent1,[])
Primary=[2069545,261,-329]
}
Add(MST_SortInCol,11744541,308,560)
{
MSTControl="Size-pro-pro"
Point(doSortDigit)
link(onChange,1696383:doEvent2,[])
}
Add(MST_RowAction,16517851,189,532)
{
MSTControl="Size-pro-pro"
}
Add(ArrayEnum,5697670,385,553)
{
link(onItem,3033158:doData,[])
link(Array,13065808:Strings,[])
}
Add(MST_ArrayRows,13065808,385,509)
{
MSTControl="Size-pro-pro"
}
Add(MTStrTbl,7015044,427,511)
{
Top=80
Width=375
Height=185
Name="Size-pro-pro"
Columns=#1:1|
}
Add(ChangeMon,11803614,147,532)
{
@Hint=#19:Фильтр одинаковости|
link(onData,16517851:doRowAction,[])
AddHint(-113,44,129,13,@Hint)
}
Add(ChangeMon,3033158,427,553)
{
@Hint=#19:Фильтр одинаковости|
link(onData,14591234:In,[])
AddHint(-72,38,129,13,@Hint)
}
Add(Hub,1696383,357,553)
{
InCount=2
OutCount=1
link(onEvent1,5697670:doEnum,[])
}
Add(InfoTip,222301,21,462)
{
Info=#19:Вставка писка строк|24:первый уровень филтраций|
Width=211
Height=158
}
Add(InfoTip,7291502,238,462)
{
Info=#45:Начальная сортировка 2 и 3 уровень фильтраций|
Width=330
Height=158
}
Add(MST_Clear,8147895,343,511)
{
MSTControl="Size-pro-pro"
}
Add(LineBreak,16670516,223,525)
{
Caption="ОперСброс1"
link(Out,1003012:doEvent2,[(308,531)(308,524)])
Primary=[8586672,349,-187]
}
Add(Button,2952699,336,62)
{
Left=88
Top=4
Width=10
Height=10
Hint="Диалог управлением выбора категорий по поиску в колонке Size-Размер"
HintManager="прова"
link(onClick,16127904:In,[(355,68)(355,69)])
}
Add(LineBreak,3551338,308,28)
{
Caption="УсловПоискаSize"
link(Out,4395781:onEvent2,[(489,34)(489,34)])
Primary=[16127904,84,35]
}
END_SDK
Add(Hub,9602468,98,98)
{
link(onEvent1,11043801:doWork2,[])
link(onEvent2,1098126:doFor,[])
}
Add(For,1098126,126,105)
{
End=15000
link(onEvent,8873230:doRandom,[])
link(onStop,10923539:doTimer,[])
}
Add(Timer,10923539,238,112)
{
Enable=1
AutoStop=1
link(onTimer,11043801:doWork4,[])
}


Обсудите мои ошибочные действия, благодаря данной схеме скорость считывания данных уменьшилась в 1.5, а то и 3.5 раза - жуть как 'мало'
И ресурсоемко и времяемко! Данных, у меня, пока - 10229 записей. А будет больше

карма: 0

0
файлы: 1code_14962.txt [10.5KB] [266]
Гость
Ответов: 17029
Рейтинг: 0
#33: 2009-09-17 08:24:27 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2020-03-01 19:15:27
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#34: 2009-09-17 09:51:30 ЛС | профиль | цитата
Sergoo писал(а):
прошу обсудить работу данной программы целиком, и/или по частям.

Нет слов...
Особенно порадовало
Вставка писка строк
Оказывается строки ещё и пищать будут. а таблицы, в зависимости от данных, будут просвечиваться одна через другую...
Сразу стало понятно, почему потребовалась сортировка 50 000 тысяч значений в ComboBox.
------------ Дoбавленo в 10.14:
vir1a.toonel.net, Привет! Чё работаешь из подполья ?
Когда есть Count и в FileSearch и в ListBox, то ставить счетчик как-то ...

Add(MainForm,12710158,203,91)
{
Width=724
Height=329
link(onCreate,9234054:doBrowse,[])
}
Add(ListBox,1214043,378,105)
{
Left=10
Top=10
Width=700
Height=245
}
Add(VBJScript,9962549,392,224)
{
WorkPoints=#6:doWork|
DataPoints=#5:inArr|7:Reverse|
Language=1
Script=#28:function doWork(Data,Index){|21: var strArr, arrTemp;|20: strArr = sys.inArr;|23: arrTemp = new Array();|5: |35: for (i=0; i < strArr.Count; i++) {|29: arrTemp.push(strArr.get(i));|2: }|16: arrTemp.sort();|23: if (sys.Reverse == 1){|19: arrTemp.reverse();|2: }|35: for (i=0; i < strArr.Count; i++) {|28: strArr.set (i, arrTemp[i]);|2: }|1:}|
UseName=0
link(inArr,1214043:Array,[])
link(Reverse,438528:Checked,[(405,208)(447,208)])
}
Add(Button,10846661,322,224)
{
Left=10
Top=265
Caption="Sort"
link(onClick,9962549:doWork,[])
}
Add(Browse,9234054,259,105)
{
link(onBrowse,6363434:doSearch,[])
}
Add(FileSearch,6363434,308,105)
{
FullName=1
link(onSearch,1214043:doAdd,[])
link(onEndSearch,15853758:doData,[(359,118)(359,167)])
}
Add(CheckBox,438528,441,161)
{
Left=85
Top=265
Width=80
Caption="Reverse"
}
Add(DoData,15853758,385,161)
{
link(onEventData,12710158:doCaption,[(429,167)(429,71)(191,71)(191,97)])
link(Data,1214043:Count,[])
}
И RunTime Error не видел ?
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 80
Рейтинг: -5
#35: 2009-09-17 11:22:38 ЛС | профиль | цитата
Первое, таблицы видны не будут, так как находятся за пределами рамки окна, будет видна только верхняя часть с готовым списком, кнопками и надписями.
Второе, предложите свой красивый вариант решения данной задачи в пределах заданного. Программа должна работать быстро и иметь как можно малые объемы как по коду так и поресурсоемкости.

Это задача для мастистых программеров, хорошо знающих hiasm, коих сдесь немного.


Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#36: 2009-09-17 11:36:51 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2020-03-01 19:15:33
карма: 0

0
Ответов: 80
Рейтинг: -5
#37: 2009-09-17 11:48:02 ЛС | профиль | цитата
Ошибка - RunTime Error!!!!!
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#38: 2009-09-17 12:29:57 ЛС | профиль | цитата
Sergoo, что ты хочешь в итоге получить от программы ?
code_14966.txt
------------ Дoбавленo в 12.31:
Вот 60 000 файлов обрабатывает за 1.67 секунды
------------ Дoбавленo в 12.33:
vir1a.toonel.net писал(а):
Привет!, нет, из дома
А чё, дома ника нет
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14966.txt [2.3KB] [222]
Ответов: 80
Рейтинг: -5
#39: 2009-09-17 16:09:58 ЛС | профиль | цитата
Проверил, работает, попробую привести ее в соответствие с требованием отдельного модуля по заданным параметрам результата.

Спасибо. Как сделаю то выложу на обозрение.

.......

Готово, причесал, сделал в том-же ключе-тесте, прошу смотреть результат:

Make(delphi)
ver(4.03 build 180)
Add(MainForm,2953706,49,105)
{
Width=369
Height=244
Font=[Arial,8,1,0,204]
Caption=""
BorderStyle=1
Position=1
link(onCreate,10720643:doWork2,[(257,125)(257,166)])
}
Add(Browse,1770936,119,21)
{
link(onBrowse,11236746:doEvent1,[])
link(onCancel,2953706:doClose,[(156,34)(156,80)(31,80)(31,132)])
}
Add(FileSearch,14976559,210,105)
{
link(onSearch,14715294:doData,[(268,111)(268,160)])
link(onEndSearch,10720643:doWork4,[(354,118)(354,180)])
link(Dir,7477079:Text,[])
}
Add(Edit,7477079,217,21)
{
Left=70
Top=10
Width=270
ParentFont=0
Text=""
}
Add(Button,9537344,63,21)
{
Left=10
Top=10
Font=[Arial,8,1,0,204]
ParentFont=0
Caption="Browse"
link(onClick,1770936:doBrowse,[])
}
Add(Button,9652609,91,105)
{
Left=10
Top=40
Font=[Arial,8,1,0,204]
ParentFont=0
Caption="Start"
link(onClick,14976559:doSearch,[(182,111)(182,111)])
}
Add(ChildGroupBox,10720643,434,153)
{
@Color=0
}
BEGIN_SDK
Add(EditMulti,4395781,21,21)
{
@Color=0
EventCount=3
WorkCount=4
DataCount=2
Width=545
Height=95
HOffset=200
link(doWork1,4006446:In,[])
link(doWork2,4315887:In,[])
link(doWork3,15894555:In,[])
link(doWork4,8274232:In,[(29,48)(29,55)])
}
Add(LineBreak,2800229,420,21)
{
@Color=0
Caption="Размер"
link(Out,4395781:onEvent1,[(519,27)(519,27)])
Primary=[16167966,315,231]
}
Add(LineBreak,10755968,221,44)
{
Caption="Текст заголовка"
Type=1
link(Data,4395781:Data1,[])
Primary=[11114155,584,138]
}
Add(GroupBox,10431958,881,231)
{
@Color=5614080
Top=160
Width=140
Height=39
Color=15780518
Font=[MS Sans Serif,8,1,255,1]
Name="РазмерB"
Caption="Size"
Point(doCaption)
}
Add(LineBreak,8838069,23,196)
{
@Hint=#43:Задает начальную установку частей программы|
@Color=0
Caption="Активатор"
link(Out,12824544:doWork2,[])
Primary=[4315887,97,-168]
}
Add(LineBreak,14780530,95,203)
{
@Color=0
Caption="Load/Save"
link(Out,12824544:doWork3,[])
Primary=[15894555,-53,-168]
}
Add(LineBreak,15177798,228,63)
{
Caption="ИмяФайла"
Type=1
link(Data,4395781:Data2,[])
Primary=[6388418,-46,98]
}
Add(LineBreak,15485675,110,189)
{
@Hint=#38:Найденое и сконструированное имя файла|
@Color=0
Caption="TM_text"
link(Out,12824544:doWork1,[])
Primary=[4006446,-68,-168]
}
Add(ComboBox,9539729,630,154)
{
Left=2
Top=15
Width=136
Height=21
Point(onMouseMove)
Point(Count)
link(onChange,6957260:doEvent2,[(678,160)(678,153)])
link(onClick,15274760:doData,[(678,167)(678,258)])
link(onMouseMove,4395781:onEvent3,[(674,174)(674,108)(554,108)(554,41)])
}
Add(DoData,15274760,693,252)
{
@Hint=#43:получение строковой составляющей для поиска|
@Color=5570815
link(onEventData,16167966:In,[])
link(Data,9539729:String,[(699,226)(643,226)])
AddHint(-56,41,136,26,@Hint)
}
Add(Hub,5558249,571,161)
{
@Color=5570815
link(onEvent1,9539729:doClear,[])
link(onEvent2,6957260:doEvent1,[(615,174)(615,146)])
}
Add(Hub,6957260,693,140)
{
InCount=2
OutCount=1
link(onEvent1,6000558:doStrCat,[(756,146)(756,237)])
}
Add(StrCat,6000558,805,231)
{
@Hint=#35:Имя состовляющей + количества строк|
@Color=5570815
link(onStrCat,10431958:doCaption,[])
link(Str1,11114155:Var,[])
link(Str2,9539729:Count,[(818,215)(650,215)])
AddHint(-70,99,189,26,@Hint)
}
Add(LineBreak,12872304,486,133)
{
Caption="Data-строка"
link(Out,9539729:doAdd,[(595,139)(595,160)])
Primary=[14591234,-241,287]
}
Add(Button,2952699,336,62)
{
Left=88
Top=4
Width=10
Height=10
Hint="Диалог управлением выбора категорий по поиску в колонке Size-Размер"
HintManager="прова"
link(onClick,16127904:In,[(355,68)(355,69)])
}
Add(LineBreak,14836509,308,28)
{
Caption="УсловПоискаSize"
link(Out,4395781:onEvent2,[(489,34)(489,34)])
Primary=[16127904,84,35]
}
Add(LineBreak,2586809,44,211)
{
Caption="End A"
link(Out,12824544:doWork4,[(128,217)(128,216)])
Primary=[8274232,6,-162]
}
Add(LineBreak,734608,120,217)
{
Caption="Старт"
link(Out,12824544:doWork5,[])
Primary=[10374710,195,112]
}
Add(Label,3991924,247,308)
{
Left=115
Top=2
Width=11
Height=17
Color=15780518
Font=[MS Sans Serif,8,1,255,1]
Caption="+"
Point(doBringToFront)
}
Add(UpDown,8206508,170,308)
{
Left=101
Top=2
Width=10
Height=15
Color=15780518
Hint="Фильтр - Разделение по СИМВОЛАМ"
Max=25
Point(doBringToFront)
link(onPosition,254027:doEvent1,[])
}
Add(MultiElement,10691306,247,350)
{
link(onEvent1,6274890:In,[])
}
BEGIN_SDK
Add(EditMulti,13394823,21,21)
{
EventCount=1
WorkCount=2
Width=433
Height=144
link(doWork1,12025655:In,[])
link(doWork2,10644509:In,[])
}
Add(Delete,13145066,173,98)
{
Count=256
link(onDelete,10763736:doTrim,[])
link(Position,11500044:Result,[])
}
Add(Hub,12779076,299,98)
{
InCount=2
OutCount=1
link(onEvent1,446756:doData,[])
}
Add(LineBreak,905196,59,56)
{
@Hint=#37:Счетчик количества выбранных символав|
Caption="Счтчик"
link(Out,2058245:doValue,[])
Primary=[12025655,-24,-35]
}
Add(LineBreak,489204,17,98)
{
Caption="Data-строка"
link(Out,1232898:doWork1,[])
Primary=[10644509,74,-70]
}
Add(Math,11500044,180,56)
{
Op2=1
ResultType=0
}
Add(MultiElement,1232898,124,98)
{
link(onEvent1,13145066:doDelete,[])
link(onEvent2,12779076:doEvent2,[])
link(Data1,2058245:Value,[])
}
BEGIN_SDK
Add(EditMulti,1813348,21,21)
{
EventCount=2
WorkCount=1
DataCount=1
Width=181
Height=354
link(doWork1,7225789:doEvent,[(28,27)(28,76)])
}
Add(IndexToChanel,7225789,35,70)
{
Count=25
Point(Index)
link(onEvent1,1813348:onEvent2,[(135,76)(170,62)(170,34)])
link(onEvent2,537767:doEvent1,[])
link(onEvent3,537767:doEvent2,[])
link(onEvent4,537767:doEvent3,[])
link(onEvent5,537767:doEvent4,[])
link(onEvent6,537767:doEvent5,[])
link(onEvent7,537767:doEvent6,[])
link(onEvent8,537767:doEvent7,[])
link(onEvent9,537767:doEvent8,[])
link(onEvent10,537767:doEvent9,[])
link(onEvent11,537767:doEvent10,[])
link(onEvent12,537767:doEvent11,[])
link(onEvent13,537767:doEvent12,[])
link(onEvent14,537767:doEvent13,[])
link(onEvent15,537767:doEvent14,[])
link(onEvent16,537767:doEvent15,[])
link(onEvent17,537767:doEvent16,[])
link(onEvent18,537767:doEvent17,[])
link(onEvent19,537767:doEvent18,[])
link(onEvent20,537767:doEvent19,[])
link(onEvent21,537767:doEvent20,[])
link(onEvent22,537767:doEvent21,[])
link(onEvent23,537767:doEvent22,[])
link(onEvent24,537767:doEvent23,[])
link(onEvent25,537767:doEvent24,[])
link(Index,1813348:Data1,[(41,46)(27,46)])
}
Add(Hub,537767,105,77)
{
InCount=24
OutCount=1
link(onEvent1,1813348:onEvent1,[(177,83)(177,27)])
}
END_SDK
Add(LineBreak,8516506,322,21)
{
Caption="Результат"
link(Out,13394823:onEvent1,[])
Primary=[10591343,52,77]
}
Add(Trim,10763736,215,98)
{
Char=","
link(onTrim,6852375:doTrim,[])
}
Add(Trim,6852375,257,98)
{
Char="!"
link(onTrim,12779076:doEvent1,[])
}
Add(Memory,2058245,124,56)
{
link(onData,11500044:doOperation,[])
}
Add(ChangeMon,446756,329,98)
{
@Hint=#19:Фильтр одинаковости|
link(onData,10591343:In,[])
AddHint(-72,38,129,13,@Hint)
}
END_SDK
Add(Hub,254027,210,308)
{
OutCount=4
link(onEvent1,3991924:doText,[])
link(onEvent2,4569372:In,[(257,321)(257,320)])
link(onEvent3,10691306:doWork1,[(236,328)(236,356)])
link(onEvent4,10374710:In,[])
}
Add(LineBreak,8179486,52,357)
{
Caption="Data-строка"
link(Out,10691306:doWork2,[])
Primary=[15785146,259,-139]
}
Add(LineBreak,3011826,112,420)
{
Caption="Результат"
link(Out,13868492:doWork1,[])
Primary=[6274890,183,-70]
}
Add(InfoTip,16442825,42,273)
{
Info=#25:Филтр строк с управлением|
Width=330
Height=116
}
Add(DoData,8041495,119,308)
{
Data=Integer(0)
link(onEventData,8206508:doPosition,[])
}
Add(LineBreak,9755084,36,308)
{
Caption="Активатор"
link(Out,8041495:doData,[])
Primary=[1947522,196,-119]
}
Add(LineBreak,5781954,44,426)
{
Caption="Активатор"
link(Out,13868492:doWork2,[(150,432)(150,433)])
Primary=[15037878,267,-230]
}
Add(LineBreak,13668824,494,161)
{
Caption="Активатор"
link(Out,5558249:doEvent1,[])
Primary=[775804,-261,42]
}
Add(LineBreak,4524188,24,223)
{
Caption="Активатор'"
link(Out,12824544:doWork6,[(157,229)(157,230)])
Primary=[4569372,266,91]
}
Add(LineBreak,1290378,113,434)
{
Caption="End B"
link(Out,13868492:doWork3,[])
Primary=[13514878,119,-217]
}
Add(MultiElement,12824544,182,189)
{
link(Data1,6388418:Var,[])
link(onEvent1,1947522:In,[])
link(onEvent2,15037878:In,[])
link(onEvent3,775804:In,[])
link(onEvent4,15785146:In,[(262,216)(262,224)])
link(onEvent5,13514878:In,[])
}
BEGIN_SDK
Add(EditMulti,3347419,21,21)
{
EventCount=5
WorkCount=6
DataCount=1
Width=454
Height=95
HOffset=200
link(doWork1,4006446:In,[])
link(doWork2,4315887:In,[])
link(doWork3,15894555:In,[])
link(doWork4,8274232:In,[])
link(doWork5,10374710:In,[])
link(doWork6,4569372:In,[(68,62)(68,61)])
}
Add(LineBreak,16672480,237,168)
{
@Hint=#43:Задает начальную установку частей программы|
@Color=0
Caption="Активатор"
link(Out,15449000:doEvent1,[])
Primary=[4315887,-124,-140]
}
Add(LineBreak,6807636,347,189)
{
@Color=0
Caption="Load/Save"
link(Out,11165791:doWork1,[])
Primary=[15894555,-312,-154]
}
Add(LineBreak,4100060,221,35)
{
Caption="ИмяФайла"
Type=1
link(Data,3347419:Data1,[])
Primary=[6388418,213,100]
}
Add(LineBreak,14130903,36,161)
{
@Hint=#38:Найденое и сконструированное имя файла|
@Color=0
Caption="TM_text"
link(Out,5269517:doEvent,[])
Primary=[4006446,-1,-140]
}
Add(Convertor,7418203,206,161)
{
Digits=15
SymbolFill=" "
link(onResult,6600827:doAdd,[])
}
Add(StrList,6600827,508,161)
{
Point(doSort)
}
Add(ArrayEnum,5782366,522,229)
{
link(onItem,13207939:doData,[])
link(onEndEnum,13514878:In,[(558,242)(558,272)])
link(Array,6600827:Array,[])
}
Add(Hub,5387806,453,223)
{
link(onEvent1,6600827:doSort,[(487,229)(487,209)])
link(onEvent2,9912311:doEvent1,[(468,236)(468,235)])
}
Add(ChangeMon,13207939,564,229)
{
link(onData,11656882:doTrim,[])
}
Add(Trim,11656882,608,229)
{
Char=" "
link(onTrim,15785146:In,[])
}
Add(MultiElement,11165791,434,189)
{
@Color=255
link(onEvent1,6600827:doLoad,[])
link(onEvent2,6600827:doSave,[])
link(Data1,6388418:Var,[])
}
BEGIN_SDK
Add(EditMulti,15628907,21,21)
{
@Color=0
EventCount=2
WorkCount=1
DataCount=1
Width=328
link(doWork1,8548359:doEvent,[(35,27)(35,104)])
}
Add(StrCat,15591745,210,98)
{
@Color=5592575
Str2="_B.txt"
link(onStrCat,15628907:onEvent1,[(296,104)(296,27)])
}
Add(StrCat,503825,210,147)
{
@Color=5592575
Str2="_B.txt"
link(onStrCat,15628907:onEvent2,[(296,153)(296,34)])
}
Add(GetDataEx,8701971,42,39)
{
Angle=3
link(Data,15628907:Data1,[(27,44)])
}
Add(StrCat,2986072,147,147)
{
@Color=5570815
link(onStrCat,503825:doStrCat,[])
link(Str2,8701971:Var3,[(160,44)])
}
Add(StrCat,8338865,133,98)
{
@Color=5570815
link(onStrCat,15591745:doStrCat,[])
link(Str2,8701971:Var2,[(146,73)(48,73)])
}
Add(MT_IndexToChanel,8548359,49,98)
{
link(onEvent1,8338865:doStrCat,[])
link(onEvent2,2986072:doStrCat,[(114,111)(114,153)])
}
END_SDK
Add(LineBreak,4361120,379,223)
{
Caption="End A"
link(Out,5387806:doEvent1,[])
Primary=[8274232,-266,-181]
}
Add(LineBreak,12072344,439,245)
{
Caption="Старт"
link(Out,9912311:doEvent2,[(490,251)(490,242)])
Primary=[10374710,-403,-196]
}
Add(LineBreak,3435990,295,42)
{
Caption="Data-строка"
link(Out,3347419:onEvent4,[])
Primary=[15785146,354,187]
}
Add(Hub,9912311,497,229)
{
InCount=2
OutCount=1
link(onEvent1,5782366:doEnum,[])
}
Add(LineBreak,8165122,372,21)
{
Caption="Активатор"
link(Out,3347419:onEvent1,[])
Primary=[1947522,35,258]
}
Add(LineBreak,427169,396,49)
{
Caption="End B"
link(Out,3347419:onEvent5,[])
Primary=[13514878,165,217]
}
Add(Hub,15449000,320,168)
{
link(onEvent1,6600827:doClear,[])
link(onEvent2,13834917:doEvent1,[(346,181)(346,285)])
}
Add(Hub,13834917,358,279)
{
OutCount=3
link(onEvent1,1947522:In,[])
link(onEvent2,10097775:doEvent1,[])
}
Add(LineBreak,14604177,303,28)
{
Caption="Активатор"
link(Out,3347419:onEvent2,[])
Primary=[15037878,204,258]
}
Add(LineBreak,10432610,375,35)
{
Caption="Активатор"
link(Out,3347419:onEvent3,[])
Primary=[775804,131,265]
}
Add(ChangeMon,4079093,161,161)
{
link(onData,7418203:doConvert,[])
}
Add(Hub,10097775,478,286)
{
InCount=2
link(onEvent1,15037878:In,[])
link(onEvent2,775804:In,[(502,299)(502,306)])
}
Add(LineBreak,1908523,401,300)
{
Caption="Активатор'"
link(Out,10097775:doEvent2,[(473,306)(473,299)])
Primary=[4569372,-286,-245]
}
Add(MT_MultiData,4364506,161,273)
{
@Hint=#29:Выдача соответствующей записи|
@Color=16776960
From=5
Count=1
AddHint(-75,-49,186,13,@Hint)
}
Add(Debug,5269517,126,161)
{
link(onEvent,4079093:doData,[])
}
END_SDK
Add(MultiElement,13868492,189,420)
{
link(onEvent1,14591234:In,[])
}
BEGIN_SDK
Add(EditMulti,1304967,21,21)
{
EventCount=1
WorkCount=3
Width=412
Height=172
link(doWork1,6274890:In,[])
link(doWork2,15037878:In,[])
link(doWork3,13514878:In,[])
}
Add(LineBreak,16192586,220,21)
{
Caption="Data-строка"
link(Out,1304967:onEvent1,[])
Primary=[14591234,123,126]
}
Add(LineBreak,1550963,30,74)
{
Caption="Текст"
link(Out,9467688:doConvert,[])
Primary=[6274890,76,-53]
}
Add(LineBreak,7849412,72,83)
{
Caption="Активатор"
link(Out,15158088:doClear,[(175,89)(175,87)])
Primary=[15037878,-41,-55]
}
Add(StrList,15158088,197,74)
{
Point(doSort)
}
Add(Convertor,9467688,155,74)
{
Digits=15
SymbolFill=" "
link(onResult,15158088:doAdd,[])
}
Add(ArrayEnum,6247928,211,147)
{
link(onItem,5673293:doData,[])
link(Array,15158088:Array,[])
}
Add(ChangeMon,5673293,253,147)
{
link(onData,1192009:doTrim,[])
}
Add(Trim,1192009,296,147)
{
Char=" "
link(onTrim,14591234:In,[])
}
Add(Hub,15002333,155,116)
{
link(onEvent1,15158088:doSort,[])
link(onEvent2,6247928:doEnum,[(190,129)(190,153)])
}
Add(LineBreak,1981677,99,116)
{
Caption="End B"
link(Out,15002333:doEvent1,[])
Primary=[13514878,7,-81]
}
END_SDK
END_SDK
Add(DoData,14715294,294,154)
{
link(onEventData,10720643:doWork1,[(380,160)(380,159)])
link(Data,14976559:Size,[(300,146)(223,146)])
}
Add(Hub,11236746,161,21)
{
link(onEvent1,7477079:doText,[])
}


Хотел поблагодарить Tad, но к сожалению не могу, так как по причине не желания дать мне рейтинг с +, участвовать в голосованиях не могу, похоже такой сдесь я один

Нет ничего более постоянного, чем временное! А хорошее, все же -- враг лучшего !
карма: 0

0
Ответов: 8609
Рейтинг: 800
#40: 2009-09-17 17:30:41 ЛС | профиль | цитата
Tad, от имени коллеги Sergoo: СПАСИБО!
карма: 18

0
Разработчик
Ответов: 25681
Рейтинг: 2087
#41: 2009-09-17 17:36:57 ЛС | профиль | цитата
Леонид, не вижу у Tad-a вещественной благодарности
карма: 20

0
Ответов: 16884
Рейтинг: 1237
#42: 2009-09-17 18:02:17 ЛС | профиль | цитата
Tad писал(а):
Sergoo, что ты хочешь в итоге получить от программы ?
Леонид, nesco, вот спрашивал - нет ответа.
Вы случайно не экстрасенсы ?
Может кто скажет - какая конечная цель этой проги ??????
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8609
Рейтинг: 800
#43: 2009-09-17 18:54:49 ЛС | профиль | цитата
nesco, так этот топик не для Tad-а, а для Sergoo
Tad, пятьдесят тысяч строк в выпадающем списке - это выше моей логики
карма: 18

0
Разработчик
Ответов: 25681
Рейтинг: 2087
#44: 2009-09-17 19:00:27 ЛС | профиль | цитата
Леонид писал(а):
пятьдесят тысяч строк в выпадающем списке

Пешеходы про это уже спрашивали, но толком ничего не поняли, откуда и появилось
Tad писал(а):
Может кто скажет - какая конечная цель этой проги ?

Леонид писал(а):
так этот топик не для Tad-а, а для Sergoo

Я так и понял, но спасибо ты сказал за Sergoo, мне показалось, что и плюсик ты за него поставишь, он, ведь, не может

карма: 20

0
Гость
Ответов: 17029
Рейтинг: 0
#45: 2009-09-17 19:24:27 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2020-03-01 19:15:33
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)