MyHomeLib - отметить дубликаты в списке

[mikzin]

доброго дня

есть программа каталогизатор, чудит тем, что после каждого ежемес. обновления дублирует книги, приходится удалять вручную.
нужен код чтобы отмечал дубликаты в списке (удалю сам), но именно дубликаты, одиночные книги не трогая.
вот так должно быть:


данные из Window Info

[CLASS:TBookTree; INSTANCE:1]

спасибо заранее

 

[CreatoR]

Можно попробовать так:

$sTitle = 'MyHomeLib'
$sClass = '[CLASS:TBookTree; INSTANCE:1]'

$hTV = ControlGetHandle($sTitle, '', $sClass)
$iCount = ControlTreeView($sTitle, '', $sClass, 'GetItemCount', '#0')
$sDups = ''

For $i = 0 To $iCount - 1
    $sText = ControlTreeView($sTitle, '', $sClass, 'GetText', '#' & $i)
    
    If StringInStr('|' & $sDups & '|', '|' & $sText & '|') Then
        ControlTreeView($sTitle, '', $sClass, 'Check', '#' & $i)
    EndIf
    
    $sDups &= ($sDups ? '|' : '') & $sText
Next

 

[mikzin]

попробовал, вообще ничего не происходит.. :(