Alternatively, in Perl:

#!/usr/bin/perl

while(<>) {
chomp;
s/^\#.*//g;
s/"//g;
s/{|}//g;
s/\(.*\)//g;
s/\[.*\]//g;
s/\d*//g;
s/Sec/sec/g;
s/\s+/,/g;
s/^\s+$//g;
chop;
print "$_\n" unless(/^$/);
}

Run as 'parsefile.pl file.txt'