Add(If_else,1784317,791,364)
{
Op1=Integer(0)
link(onFalse,16204237:doAdd,[(835,377)(835,289)(436,289)(436,202)])
link(Op2,5338289:Value,[(804,352)(846,352)])
}
Add(MainForm,2953706,21,105)
{
Width=573
Height=383
Caption="Ищем копии файлов"
}
Add(Edit,15216250,210,84)
{
Left=80
Top=15
Width=410
Text=""
}
Add(Label,11808342,12,14)
{
Left=15
Top=15
Width=60
Height=17
Caption="Где искать"
}
Add(Button,335334,70,91)
{
Left=495
Top=15
Caption="Выбор"
link(onClick,3264345:doBrowse,[(139,97)(139,90)])
}
Add(Browse,3264345,154,84)
{
Title="Сканировать"
NewDirButton=1
link(onBrowse,15216250:doText2,[(198,90)(198,97)])
}
Add(Button,15604769,56,161)
{
Left=15
Top=45
Width=530
Caption="Искать"
link(onClick,2943089:doEvent1,[])
}
Add(FileSearch,7696906,140,154)
{
Point(Attr)
link(onSearch,16743984:doValue,[(188,160)(188,146)])
link(onEndSearch,10594897:doEvent1,[(184,167)(184,237)(86,237)(86,307)])
link(Dir,15216250:Text,[(153,135)(216,135)])
}
Add(FileAttributes,13983146,196,210)
{
Point(DateCreateReal)
Point(DateAccessReal)
Point(DateModifyReal)
Point(FileSize)
Point(Major)
Point(Minor)
Point(Release)
Point(Build)
link(onRead,11686084:doString,[(288,216)(288,248)(191,248)(191,279)])
link(FileName,15412587:Var2,[(202,202)(209,202)])
link(Attr,7696906:Attr,[(209,194)(160,194)])
}
Add(Memory,16743984,203,140)
{
link(onData,3738448:doPart,[(240,146)(240,153)])
}
Add(FormatStr,11686084,203,273)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,3497886:doAdd,[(271,279)(271,153)])
link(Str1,13983146:FileSize,[(209,251)(244,251)])
link(Str2,15412587:Var3,[(216,180)])
link(Str3,3738448:Part,[(223,226)(251,226)])
}
Add(GetDataEx,15412587,203,175)
{
link(Data,16743984:Value,[])
}
Add(StrList,3497886,308,147)
{
}
Add(FilePartElm,3738448,245,147)
{
Point(Part)
link(onPart,13983146:doRead,[(289,153)(289,185)(184,185)(184,216)])
}
Add(Hub,2943089,98,161)
{
OutCount=3
link(onEvent1,3497886:doClear,[(210,167)(210,160)])
link(onEvent2,16204237:doClear,[(430,174)(430,209)])
link(onEvent3,7696906:doSearch,[(126,181)(126,160)])
}
Add(DoData,16163684,315,112)
{
Data=Integer(1)
}
Add(StringTable,16204237,448,196)
{
Left=5
Top=70
Width=550
Height=270
Columns=#6:Размер|4:Путь|14:Названия файла|12:Копия Размер|10:Копия Путь|20:Копия Названия файла|
Point(Strings)
link(Str,12169275:Var2,[(454,184)(576,184)(576,345)(629,345)])
}
Add(ArrayRW,2193411,308,301)
{
link(onRead,9772667:doSplit,[(352,307)(352,293)])
link(Array,12749151:Var2,[(314,247)(328,247)])
link(Index,10604585:Count,[(321,289)(283,289)(283,373)(244,373)])
}
Add(Hub,10594897,98,301)
{
OutCount=4
link(onEvent1,12444171:doOperation,[(122,307)(122,314)])
link(onEvent2,15327796:doWork1,[(196,314)(196,405)])
link(onEvent3,7899367:doData,[(122,321)(122,342)])
link(onEvent4,3489173:doEvent1,[(158,328)(158,342)])
}
Add(CounterEx,10604585,238,315)
{
Default=-1
Point(doMax)
Point(doValue)
Point(onThroughMax)
link(onNext,5096600:doCompare,[(275,321)(275,363)])
link(onThroughMax,15327796:doWork2,[(275,328)(275,412)])
}
Add(Math,12444171,133,308)
{
OpType=1
Op2=1
link(onResult,10604585:doMax,[(201,314)(201,328)])
link(Op1,3497886:Count,[(139,250)(321,250)])
}
Add(DoData,7899367,133,336)
{
Data=Integer(-1)
link(onEventData,10604585:doValue,[(201,342)(201,335)])
}
Add(MultiStrPart,9772667,364,287)
{
Count=3
link(onSplit,8895152:doEnum,[(404,293)(404,300)])
}
Add(ArrayEnum,8895152,413,294)
{
link(onItem,5630715:doSplit,[(453,300)(453,286)])
link(Array,14885590:Var2,[])
}
Add(GetDataEx,12749151,322,210)
{
link(Data,3497886:Array,[])
}
Add(MultiStrPart,5630715,462,280)
{
Count=3
link(onSplit,13077130:doCompare,[(499,286)(499,300)])
}
Add(If_else,7625739,553,294)
{
link(onTrue,413299:doString,[(618,300)(618,307)])
link(onFalse,8533340:doEvent2,[(597,307)(597,331)(562,331)(562,356)])
link(Op1,14617563:Var3,[(559,282)(443,282)(443,338)])
link(Op2,15554007:Var3,[(566,282)(496,282)(496,338)])
}
Add(FormatStr,413299,623,301)
{
DataCount=6
Mask="%1;%2;%3;%4;%5;%6"
Point(FString)
link(onFString,4343549:doEnum,[])
link(Str1,14617563:Var1,[(629,289)(361,289)(361,338)])
link(Str2,7696348:Var2,[(636,289)(500,289)(500,337)(377,337)])
link(Str3,9772667:Part3,[(643,289)(507,289)(507,331)(384,331)])
link(Str4,15554007:Var1,[(650,289)(459,289)(459,338)])
link(Str5,15896475:Var2,[(657,289)(559,289)(559,344)(475,344)])
link(Str6,5630715:Part3,[(664,289)(566,289)(566,324)(482,324)])
}
Add(GetDataEx,14617563,364,333)
{
link(Data,9772667:Part1,[])
}
Add(GetDataEx,15554007,462,333)
{
link(Data,5630715:Part1,[])
}
Add(If_else,13077130,504,294)
{
link(onTrue,8533340:doEvent1,[(555,300)(555,349)])
link(onFalse,7625739:doCompare,[(544,307)(544,300)])
link(Op1,7696348:Var3,[(510,282)(445,282)(445,327)])
link(Op2,15896475:Var3,[(517,282)(497,282)(497,334)])
}
Add(GetDataEx,7696348,371,322)
{
link(Data,9772667:Part2,[])
}
Add(GetDataEx,15896475,469,329)
{
link(Data,5630715:Part2,[])
}
Add(Hub,8533340,574,343)
{
InCount=2
OutCount=1
link(onEvent1,3489173:doEvent2,[(600,349)(600,337)(191,337)(191,349)])
}
Add(Hub,3489173,203,336)
{
InCount=2
link(onEvent1,2625749:In,[])
link(onEvent2,10604585:doNext,[(227,349)(227,321)])
}
Add(If_else,5096600,280,357)
{
Op1=Integer(0)
link(onTrue,2193411:doRead,[(324,363)(324,335)(296,335)(296,307)])
link(Op2,15168220:Value,[(293,345)(321,345)(321,436)(349,436)])
}
Add(Memory,15168220,343,392)
{
}
Add(ChanelToIndex,15327796,280,399)
{
link(onIndex,15168220:doValue,[(328,405)(328,398)])
}
Add(ArrayEnum,4343549,686,301)
{
link(onItem,12410435:doCompare,[])
link(onEndEnum,1784317:doCompare,[(754,314)(754,370)])
link(Array,14885590:Var3,[(692,236)])
}
Add(GetDataEx,14885590,413,231)
{
link(Data,12749151:Var3,[(419,215)])
}
Add(If_else,12410435,735,301)
{
link(onFalse,15885879:doWork2,[(779,314)(779,321)])
link(Op1,12169275:Var3,[(741,289)(687,289)(687,341)])
link(Op2,4343549:Item,[(748,289)(720,289)(720,345)(692,345)])
}
Add(GetDataEx,12169275,623,336)
{
link(Data,413299:FString,[])
}
Add(ChanelToIndex,15885879,791,308)
{
link(onIndex,5338289:doValue,[])
}
Add(LineBreak,2344301,735,266)
{
link(Out,15885879:doWork1,[(785,272)(785,314)])
Primary=[2625749,-504,70]
}
Add(Memory,5338289,840,308)
{
}
Этот топик читают: Гость
Ответов: 632
Рейтинг: 4
|
|||
|
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
Vadimluk1 писал(а): Ищем копии файловКопия по содержанию — точное воспроизведение текста какого-либо документа. А копия по имени - это одноименные файлы. Vadimluk1 писал(а): Что можно поменять?Число одноименных файлов:
прим. Сейчас придет Galkov и скажет свое "фэ". Это не готовая программа. Это подсказка - в какую сторону копать. Для подсчета одинаковых по содержимому можно использовать компонент HashSum Редактировалось 10 раз(а), последний 2017-07-18 16:41:15 |
|||
карма: 25 |
| ||
Голосовали: | Vadimluk1 |
Ответов: 632
Рейтинг: 4
|
|||
Спасибо, мне надо поиск по имени и содержанию или по размеру файла.
--- Добавлено в 2017-07-18 17:31:29
Редактировалось 2 раз(а), последний 2017-07-18 17:31:29 |
|||
карма: 0 |
|
Разработчик
Ответов: 4698
Рейтинг: 426
|
|||
карма: 10 |
| ||
Голосовали: | Vadimluk1 |
Ответов: 413
Рейтинг: 57
|
|||
Добрый день.
Когдато делал поиск копий. http://forum.hiasm.com/topic/53262 |
|||
карма: 0 |
| ||
Голосовали: | Vadimluk1 |
Ответов: 632
Рейтинг: 4
|
|||
Poputchik писал(а): http://forum.hiasm.com/topic/53262Спасибо, но клоны не нашел у меня в папке. У меня картинки скачены около 5 тысяч и там много клонов, забывал или дважды одно и тоже скачивал. Надо именно вычислять по размеру или по хеш сумме. --- Добавлено в 2017-07-18 22:27:00 Assasin писал(а): Может, поможет /post/124046Спасибо большое помогло ! Редактировалось 1 раз(а), последний 2017-07-18 22:27:00 |
|||
карма: 0 |
|
Ответов: 632
Рейтинг: 4
|
|||
Кто еще может помочь, пожалуйста помогите. Редактировалось 2 раз(а), последний 2017-07-19 00:04:28 |
|||
карма: 0 |
|
Ответов: 632
Рейтинг: 4
|
|||
Поставил сортировку, пришлось поменять столбцы местами и не понятно, что происходит, когда ищут клонов в большом количестве файлов (5000~файлов). |
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
Vadimluk1, а над применением БД подумать не пробовал ?
|
|||
карма: 25 |
|
Ответов: 9906
Рейтинг: 351
|
|||
Кто про что, а Tad про БД
|
|||
карма: 9 |
|
Ответов: 632
Рейтинг: 4
|
|||
Tad, ни разу не применял не в одной программе базу данных, не знаю как ей пользоваться.
Редактировалось 1 раз(а), последний 2017-07-24 11:59:52 |
|||
карма: 0 |
|
Ответов: 497
Рейтинг: 16
|
|||
Vadimluk1, для этого и придумали примеры
|
|||
карма: 1 |
|
Ответов: 632
Рейтинг: 4
|
|||
RAWY_EX, знаю, настолько не пригодилась база данных, примеры не смотрел.
|
|||
карма: 0 |
|
13