Try this...

Code:
 
alias ssongss {  
var %slist $mircdirmp3\mp3list.txt  
var %i 1   
while (%i <= $lines(%slist)) {    
  did -a $dname 1 $remove($read(%slist, t, %i),.mp3)
  inc %i  
}
}