Find & Erase

[BJ]

Thank you ken,

Here is my code with your update, works well.

Macro Macro2

Code:

Copy      Help

Acc Contacts=acc("" "LISTITEM" win("Yahoo! Messenger" "YahooBuddyMain") "SysListView32" "" 0x1030)
_i=Contacts.a.ChildCount
for Contacts.elem 1 _i
,_s.gett(Contacts.Name 0 "-")
,out _s