Вверх ↑
Ответов: 632
Рейтинг: 4
#1: 2017-07-18 16:55:36 ЛС | профиль | цитата
Спасибо, мне надо поиск по имени и содержанию или по размеру файла.

--- Добавлено в 2017-07-18 17:31:29


Add(ArrayCountRepeats,11413846,413,602)
{
link(onCount,4940698:doStr,[])
link(Array,3497886:Array,[(419,572)(475,572)])
}
Add(MT_String,4940698,476,602)
{
link(onResult,16204237:doAdd,[(611,608)(611,534)(499,534)(499,461)])
}
Add(MainForm,2953706,84,364)
{
Width=573
Height=383
Caption="Ищем копии файлов"
}
Add(Edit,15216250,273,343)
{
Left=80
Top=15
Width=410
Text=""
}
Add(Label,11808342,75,273)
{
Left=15
Top=15
Width=60
Height=17
Caption="Где искать"
}
Add(Button,335334,133,350)
{
Left=495
Top=15
Caption="Выбор"
link(onClick,3264345:doBrowse,[(202,356)(202,349)])
}
Add(Browse,3264345,217,343)
{
Title="Сканировать"
NewDirButton=1
link(onBrowse,15216250:doText2,[(261,349)(261,356)])
}
Add(Button,15604769,119,420)
{
Left=15
Top=45
Width=530
Caption="Искать"
link(onClick,2943089:doEvent1,[])
}
Add(FileSearch,7696906,203,413)
{
Point(Attr)
link(onSearch,16743984:doValue,[(251,419)(251,405)])
link(onEndSearch,11413846:doCount,[(373,426)(373,608)])
link(Dir,15216250:Text,[(216,394)(279,394)])
}
Add(Memory,16743984,266,399)
{
link(onData,3738448:doPart,[(306,405)(306,412)])
}
Add(FormatStr,11686084,259,518)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,3497886:doAdd,[(373,524)(373,503)])
link(Str1,16459261:Var2,[(265,474)(272,474)])
link(Str2,3738448:Part,[(272,478)(321,478)])
link(Str3,3300151:Var2,[(279,474)(447,474)])
}
Add(StrList,3497886,455,497)
{
}
Add(FilePartElm,3738448,315,406)
{
Point(Part)
link(onPart,1224980:doData,[])
}
Add(Hub,2943089,161,420)
{
OutCount=4
link(onEvent1,3497886:doClear,[(315,426)(315,510)])
link(onEvent3,16204237:doClear,[(343,440)(343,468)])
link(onEvent4,7696906:doSearch,[(189,447)(189,419)])
}
Add(StringTable,16204237,511,455)
{
Left=5
Top=70
Width=550
Height=270
Columns=#4:Путь|14:Названия файла|9:Хэш сумма|
Point(Strings)
}
Add(Hashsum,6121917,399,399)
{
link(onResult,14854513:doValue,[])
}
Add(DoData,1224980,357,406)
{
link(onEventData,6121917:doFileHashsum,[])
link(Data,16459261:Var3,[(363,394)(319,394)(319,467)])
}
Add(GetDataEx,16459261,266,462)
{
link(Data,16743984:Value,[])
}
Add(Memory,14854513,441,399)
{
link(onData,11686084:doString,[(485,405)(485,465)(247,465)(247,524)])
}
Add(GetDataEx,3300151,441,441)
{
link(Data,14854513:Value,[])
}

Находит правильно копии файла, но элемент "ArrayCountRepeats" выдаёт только хеш сумму, нужно кроме хеш суммы и подсчёт повторов, ещё полный путь к файлу и имя файла.
карма: 0

0
Редактировалось 2 раз(а), последний 2017-07-18 17:31:29