How to delete duplicate file names?

[BK]

If the name(TEST(.*?)) is the same, with the exception of one, you want to delete a file.
How can this solve?

ex:
"$desktop$\Data\Screenshot\*.jpg"' Folder in file list

TITLE= l 2016/05/24/18/19/40/ l TEST=FN2061519588 l ID=.jpg
TITLE= l 2016/05/24/20/42/47/ l TEST=FN2061519588 l ID=.jpg
TITLE= l 2016/05/24/18/24/37/ l TEST=FK2061519589 l ID=.jpg
TITLE= l 2016/05/24/20/47/44/ l TEST=FK2061519589 l ID=.jpg
TITLE= l 2016/05/24/18/29/05/ l TEST=FS2061519590 l ID=.jpg
TITLE= l 2016/05/24/20/51/54/ l TEST=FS2061519590 l ID=.jpg
TITLE= l 2016/05/24/18/33/20/ l TEST=FT2061519591 l ID=.jpg
TITLE= l 2016/05/24/20/55/55/ l TEST=FT2061519591 l ID=.jpg
TITLE= l 2016/05/24/18/38/24/ l TEST=FQ2061519592 l ID=.jpg
TITLE= l 2016/05/24/21/00/55/ l TEST=FQ2061519592 l ID=.jpg
TITLE= l 2016/05/24/18/42/42/ l TEST=FR2061519593 l ID=.jpg
TITLE= l 2016/05/24/18/47/07/ l TEST=FO2061519594 l ID=.jpg
TITLE= l 2016/05/24/18/56/15/ l TEST=FM2061519596 l ID=.jpg
TITLE= l 2016/05/24/19/00/54/ l TEST=FN2061519597 l ID=.jpg
TITLE= l 2016/05/24/19/05/55/ l TEST=FK2061519598 l ID=.jpg
TITLE= l 2016/05/24/19/10/22/ l TEST=FL2061519599 l ID=.jpg
TITLE= l 2016/05/24/19/14/30/ l TEST=FX2061519600 l ID=.jpg
TITLE= l 2016/05/24/19/19/02/ l TEST=FY2061519601 l ID=.jpg
TITLE= l 2016/05/24/19/23/27/ l TEST=FY2061519602 l ID=.jpg
TITLE= l 2016/05/24/19/27/53/ l TEST=FA2061519603 l ID=.jpg
TITLE= l 2016/05/24/19/32/10/ l TEST=FW2061519604 l ID=.jpg
TITLE= l 2016/05/24/19/36/45/ l TEST=FX2061519605 l ID=.jpg
TITLE= l 2016/05/24/19/41/16/ l TEST=FU2061519606 l ID=.jpg
TITLE= l 2016/05/24/19/43/58/ l TEST=FV2061519607 l ID=.jpg
TITLE= l 2016/05/24/19/48/24/ l TEST=FS2061519608 l ID=.jpg
TITLE= l 2016/05/24/19/55/34/ l TEST=FT2061519609 l ID=.jpg
TITLE= l 2016/05/24/20/00/22/ l TEST=FY2061519610 l ID=.jpg
TITLE= l 2016/05/24/20/04/44/ l TEST=FY2061519611 l ID=.jpg
TITLE= l 2016/05/24/20/09/17/ l TEST=FA2061519612 l ID=.jpg
TITLE= l 2016/05/24/20/13/50/ l TEST=FW2061519613 l ID=.jpg
TITLE= l 2016/05/24/20/18/18/ l TEST=FX2061519614 l ID=.jpg
TITLE= l 2016/05/24/20/22/41/ l TEST=FT2062571385 l ID=.jpg
TITLE= l 2016/05/24/20/28/49/ l TEST=FS2062572374 l ID=.jpg
TITLE= l 2016/05/24/18/12/07/ l TEST=FR2061705389 l ID=.jpg
TITLE= l 2016/05/24/20/35/21/ l TEST=FR2061705389 l ID=.jpg
TITLE= l 2016/05/24/16/45/53/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/16/57/30/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/02/10/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/08/10/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/16/05/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/22/07/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/28/04/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/33/00/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/37/59/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/17/42/49/ l TEST=FS2066154545 l ID=.jpg
TITLE= l 2016/05/24/16/27/49/ l TEST=FS2066206763 l ID=.jpg
TITLE= l 2016/05/24/16/34/57/ l TEST=FS2066206763 l ID=.jpg
TITLE= l 2016/05/24/16/40/12/ l TEST=FS2066206763 l ID=.jpg
TITLE= l 2016/05/24/16/16/58/ l TEST=FW2066501905 l ID=.jpg
TITLE= l 2016/05/24/16/21/48/ l TEST=FW2066501905 l ID=.jpg
TITLE= l 2016/05/25/10/12/25/ l TEST=FP2067146188 l ID=.jpg
TITLE= l 2016/05/25/10/27/01/ l TEST=FP2067146188 l ID=.jpg
TITLE= l 2016/05/25/10/28/01/ l TEST=FN2066778603 l ID=.jpg
TITLE= l 2016/05/24/15/08/52/ l TEST=FM2066749172 l ID=.jpg
TITLE= l 2016/05/24/15/15/47/ l TEST=FM2066581943 l ID=.jpg
TITLE= l 2016/05/24/15/22/33/ l TEST=FM2066581943 l ID=.jpg
TITLE= l 2016/05/24/15/29/17/ l TEST=FM2066581943 l ID=.jpg
TITLE= l 2016/05/24/15/36/02/ l TEST=FM2066581943 l ID=.jpg
TITLE= l 2016/05/24/15/42/53/ l TEST=FM2066581943 l ID=.jpg
TITLE= l 2016/05/24/16/10/57/ l TEST=FS2066752361 l ID=.jpg
TITLE= l 2016/05/24/16/52/34/ l TEST=FA2066143632 l ID=.jpg
TITLE= l 2016/05/24/17/49/39/ l TEST=FA2066143632 l ID=.jpg
TITLE= l 2016/05/24/17/56/11/ l TEST=FA2066143632 l ID=.jpg
TITLE= l 2016/05/24/18/02/36/ l TEST=FA2066143632 l ID=.jpg
TITLE= l 2016/05/25/10/35/07/ l TEST=FK2066772934 l ID=.jpg


Macro Macro20

Code:

Copy      Help

out
Dir D_JPG
foreach(D_JPG "$desktop$\Data\Screenshot\*.jpg" FE_Dir)
,str JPG_Path=D_JPG.FullPath
,str JPG_Name=D_JPG.FileName

,;out JPG_Path
,out JPG_Name
;
,str TEST =
,;TEST=(.*?)\s

,ARRAY(str) GetTEST; int cc
,if(!findrx(JPG_Name TEST 0 4 GetTEST)) out "ERROR"; ret
,for(_i 0 GetTEST.len)
,,out GetTEST[1 _i]

[Start_Learning]

Try this:

Macro Macro26

Code:

Copy      Help

out
Dir D_JPG
ARRAY(str) a
foreach(D_JPG "$desktop$\Data\Screenshot\*.jpg" FE_Dir)
,a[]=D_JPG.FullPath

foreach(D_JPG "$desktop$\Data\Screenshot\*.jpg" FE_Dir)
,str JPG_Path=D_JPG.FullPath
,str JPG_Name=D_JPG.FileName

,str GetTEST; int cc
,if(!findrx(JPG_Name "TEST=(.*?)\s" 0 2 GetTEST)) out "ERROR"; ret
,;out GetTEST
,;Check for duplicate filename
,int i found=0
,for i 0 a.len
,,if (find(a[i] GetTEST) != -1)
,,,;out "Found a match"
,,,if found
,,,,del a[i]
,,,,a.remove(i)
,,,,break
,,,else
,,,,found=1