oh, there is a third one:
 Code:
$Readln = Readline(9)
While @Error = 0
 If InStr($Readln,"cn:")
  $Group = SubStr($Readln, 5,Len($Readln)-4)
  $Groupster = $Groupster+chr(9)+$Group
 EndIf
 $Readln = Readline(9)
Loop
$groups=split(substr($groupster,2))
_________________________
!

download KiXnet