Remove all character styles unless in group 'X'

Hi again everyone

First a massive thanks to everyone who has helped me so far... now onto what i'm trying to do

I'm trying to put together a script that will delete all character styles that are not in a particular group, and ideally in the same script replace them with nothing so i don't have to click the dialouge box.

I have been playing around and not getting any where so i don't know if this is even possible, thanks in advance for any and all help.

Cheers

EDIT: or maybe even just a delete all script would do the job and then i can just re-load the couple of styles i wanted to keep.