Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#31: 2016-03-27 19:28:23 ЛС | профиль | цитата
[flood]Только соберёшься разбогатеть - то трусы порвутся, то сахар закончится. [/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2059
Рейтинг: 132
#32: 2016-03-27 22:25:24 ЛС | профиль | цитата
Такой вариант:
http://forum.hiasm.net/forum_serv.php?q=56&id=4257
Если подключён список масок, то обрабатывается список, иначе всё по прежнему.
Если список подключён,но пуст, то всё по прежнему.
_prop_ думаю излишне.

Add(MainForm,13168981,182,203)
{
Width=587
Height=259
Caption="Рџ"
}
Add(Button,13119109,189,294)
{
Left=10
Top=170
Caption="Поехали"
link(onClick,16414411:doBrowse,[])
}
Add(LED,4550135,511,343)
{
Left=540
Top=165
}
Add(Browse,16414411,245,294)
{
Point(doDefaultFolder)
link(onBrowse,9379269:doEvent1,[])
}
Add(Hub,9379269,294,294)
{
OutCount=3
link(onEvent1,16414411:doDefaultFolder,[(319,300)(319,280)(233,280)(233,307)])
link(onEvent2,8176701:doClear,[])
link(onEvent3,16567130:doSearch,[(350,314)(350,349)])
}
Add(FileSearch,16567130,392,343)
{
Point(ShortName)
link(onSearch,8176701:doAdd,[(496,349)(496,300)])
link(onEndSearch,4550135:doChangeValue,[(486,356)(486,349)])
link(Array,3976629:Array,[])
}
Add(ListBox,8176701,567,294)
{
Left=15
Top=15
Width=550
Height=140
}
Add(Button,2583921,322,231)
{
Left=10
Top=200
Caption="Clear"
link(onClick,3976629:doClear,[])
}
Add(ComboBox,3976629,406,224)
{
Left=85
Top=170
Width=200
Height=21
Text=""
Point(onKeyDown)
Point(onChangeText)
link(onKeyDown,175293:doCompare,[])
link(onChangeText,1208076:doValue,[(555,251)(555,181)])
}
Add(If_else,175293,497,238)
{
Op2=Integer(13)
link(onTrue,14531717:doData,[])
}
Add(DoData,14531717,567,238)
{
link(onEventData,3976629:doAdd,[(611,244)(611,237)(394,237)(394,230)])
link(Data,1208076:Value,[])
}
Add(Memory,1208076,567,175)
{
}

Перезалил. Маленькое улучшение.
карма: 6

0
Ответов: 9906
Рейтинг: 351
#33: 2016-03-29 20:39:34 ЛС | профиль | цитата
nesco, предлагаю к тестированию
карма: 9

1
файлы: 1hifilesearch.rar [1.8KB] [322]
Голосовали:Tad
Разработчик
Ответов: 26151
Рейтинг: 2127
#34: 2016-03-29 23:27:36 ЛС | профиль | цитата
Galkov писал(а):
предлагаю к тестированию

Пардонсе, я че-то не понял -- это расширения надо записывать в столбик
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#35: 2016-03-30 08:04:07 ЛС | профиль | цитата


Galkov, класс!
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1filesearch.gif [12.9KB] [481]
Разработчик
Ответов: 26151
Рейтинг: 2127
#36: 2016-03-30 10:54:37 ЛС | профиль | цитата
Tad писал(а):
класс!

А как скорость работы
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#37: 2016-03-30 13:59:12 ЛС | профиль | цитата
nesco писал(а):
А как скорость работы
Нормальная.
Из каталога в котором подкаталогов 1271 и файлов 23283 отобрало 150 файлов за 930 ms
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#38: 2016-03-30 14:34:47 ЛС | профиль | цитата
Добавлено
карма: 22

0
Ответов: 824
Рейтинг: 138
#39: 2016-03-30 14:41:23 ЛС | профиль | цитата
Tad писал(а):
Добавлено
Слишком быстро....
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#40: 2016-03-30 14:49:36 ЛС | профиль | цитата
sashaoli,
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 824
Рейтинг: 138
#41: 2016-03-30 15:03:26 ЛС | профиль | цитата
У меня есть вариант интереснее.
Надибал вариант в инете, адаптировал под КОL, но как-то "грязно", что ли...
Просто времени и вдохновения не хватает, что бы доделать в удобоваримом виде...



------------ Дoбавленo в 15.03:
Не нравится, мне, там сверху StrList...
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#42: 2016-03-30 15:14:15 ЛС | профиль | цитата
sashaoli писал(а):
Не нравится, мне, там сверху StrList...
Ты про что ?
Где ты его "сверху" увидел ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4630
Рейтинг: 749
#43: 2016-03-30 15:14:38 ЛС | профиль | цитата
"Сверху" - где? На верхней точке? Так там string, а не StrList.
карма: 26

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#44: 2016-03-30 15:20:04 ЛС | профиль | цитата
Netspirit писал(а):
Так там string, а не StrList.

Да, там именно string, и вот, кстати, метод, который из строки делает список

FWorkExt.SetText(LowerCase(ReadString(_Data,_data_Ext,_prop_Ext)), false);
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#45: 2016-03-30 15:52:59 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 12:06:44
карма: 0

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