WhilePrintingRecords;
Local NumberVar c := Ubound(Split({Table.Your_Field}, ', '));
Local NumberVar i;
Local StringVar X;
For i := 1 to c do
X := X + Split(Split({Table.Your_Field}, ', ')[i], '(') [1] + ', ' ;
X := Replace(X, ' , ', ', ');
X := Left(X, Len(X)-2)