Вверх ↑
Ответов: 700
Рейтинг: 145
#1: 2022-07-03 13:12:15 ЛС | профиль | цитата
Udokanec писал(а):
Вместе с дубликатами очищает все папки

Попробовал несколько раз. У меня удаляются только те файлы, которые в списке дубликаты.
Выбери папку - "drawable-ldpi" и посмотри сколько дубликатов и сколько удалит.

Add(Button,1032059,49,154)
{
Left=45
Top=10
Width=95
Caption="Выбратьпапку"
link(onClick,15679354:doEvent1,[])
}
Add(Button,1454278,455,308)
{
Left=300
Top=10
Width=140
Caption="Найти дубликаты"
link(onClick,8782185:doEvent1,[])
}
Add(FileSearch,9717498,714,196)
{
Ext="*.png"
TimeType=1
link(onSearch,3582628:doPart,[])
link(onEndSearch,8658984:doData,[(781,209)(781,279)])
}
Add(MainForm,11209390,329,14)
{
Width=977
Height=479
}
Add(Memo,2318742,917,252)
{
Left=270
Top=75
Width=195
Height=260
ScrollBars=3
ReadOnly=0
}
Add(Memo,10164561,987,210)
{
Left=490
Top=75
Width=405
Height=260
ScrollBars=3
ReadOnly=0
link(Str,14001984:Value,[(993,201)(967,201)(967,355)(741,355)])
}
Add(FilePartElm,3582628,791,196)
{
link(onPart,8494641:doAdd,[])
}
Add(FileSearch,6566935,553,315)
{
Ext="*.png"
TimeType=1
link(onSearch,4180243:doCompare,[])
link(Dir,10153823:Var2,[])
}
Add(StrList,8494641,854,196)
{
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,15132075:doCompare,[])
}
Add(DoData,8658984,854,273)
{
link(onEventData,2318742:doText,[])
link(Data,8494641:Text,[])
}
Add(Memory,14001984,735,315)
{
link(onData,8211724:doPart,[])
}
Add(FilePartElm,8211724,798,315)
{
link(onPart,8494641:doGetIndex,[(844,321)(844,230)])
}
Add(If_else,15132075,917,203)
{
Op2=Integer(-1)
link(onFalse,10164561:doAdd,[])
}
Add(FileTools,539386,1057,399)
{
link(onEnd,10407144:doData,[])
link(FileName,10396108:Item,[(1063,390)(1049,390)(1049,460)(1007,460)])
}
Add(StrMask,13872315,294,161)
{
Mask="*drawable*"
Point(doMask)
link(onTrue,10491973:doCompare,[])
}
Add(StrMask,10491973,343,168)
{
Mask="*hdpi*"
Point(doMask)
link(onFalse,8824824:doCompare,[(387,174)(387,146)])
link(onTrue,132297:doWork2,[])
}
Add(StrMask,8824824,399,140)
{
Mask="*mdpi*"
Point(doMask)
link(onFalse,7082500:doCompare,[])
link(onTrue,132297:doWork1,[(438,153)])
}
Add(HubEx,132297,434,175)
{
link(onEvent,9455963:doWork2,[])
}
Add(StrMask,7082500,455,140)
{
Mask="*ldpi*"
Point(doMask)
link(onTrue,9455963:doWork1,[(501,153)])
}
Add(HubEx,9455963,497,175)
{
link(onEvent,5935476:doAdd,[])
}
Add(FileSearch,14184120,238,161)
{
FullName=1
Include=1
link(onSearch,13872315:doCompare,[])
}
Add(Browse,5449089,147,161)
{
Title="Папка где искать дубликаты"
NewStyle=0
NewDirButton=1
link(onBrowse,8494145:doText,[])
}
Add(Edit,8494145,196,161)
{
Left=35
Top=40
Width=195
Text=""
link(onChange,14184120:doSearch,[])
}
Add(FormatStr,12548257,616,196)
{
Mask="%2\\res\%1"
Point(FString)
link(onFString,9717498:doSearch,[])
link(Str2,10153823:Var1,[(629,173)(566,173)])
}
Add(Label,5275819,371,21)
{
Left=60
Top=375
Width=147
Height=27
Caption="Выбор эталонной папки\r\nВыделить элемент"
}
Add(ListBox,5935476,518,175)
{
Left=35
Top=75
Width=205
Height=260
Hint="Выбор эталонной папки\r\nВыделить элемент"
DataType=1
Point(String)
link(onClick,4796137:doEvent1,[])
}
Add(Hub,15679354,112,154)
{
link(onEvent1,10052181:In,[(137,160)(137,146)])
link(onEvent2,5449089:doBrowse,[])
}
Add(LineBreak,8460923,469,189)
{
link(Out,5935476:doClear,[(508,195)(508,188)])
Primary=[10052181,-315,-49]
}
Add(Hub,4796137,574,182)
{
link(onEvent1,8494641:doClear,[(830,188)(830,209)])
link(onEvent2,12548257:doString,[(606,195)(606,202)])
}
Add(StrMask,4180243,679,315)
{
Point(doMask)
link(onFalse,14001984:doValue,[])
}
Add(StrCatDelim,13696455,616,322)
{
Delimiter="\"
Str2="*"
link(onStrCatDlm,4180243:doMask,[])
link(Str1,12548257:FString,[])
}
Add(Hub,8782185,504,308)
{
link(onEvent1,13696455:doStrCatDlm,[(592,314)(592,328)])
link(onEvent2,6566935:doSearch,[])
}
Add(GetDataEx,10153823,560,210)
{
Angle=3
link(Data,8494145:Text,[(202,215)])
}
Add(Button,10652088,889,406)
{
Left=585
Top=10
Width=215
Caption="Удалить лубликаты"
link(onClick,3359661:doMessage,[])
}
Add(Message,3359661,945,406)
{
Message="Вы уверены что нужно удалить эти файлы"
Type=2
Point(onYES)
link(onYES,10396108:doEnum,[])
}
Add(ArrayEnum,10396108,1001,413)
{
Type=1
link(onItem,539386:doDelete,[])
link(Array,10164561:Array,[])
}
Add(DoData,10407144,1113,399)
{
link(onEventData,10164561:doDelete,[(1152,405)(1152,384)(977,384)(977,230)])
link(Data,10396108:Index,[(1119,390)(1105,390)(1105,453)(1014,453)])
}

карма: 15

1
Голосовали:Udokanec