(defun foo ( text ) (vl-remove-if-not 'numberp (read (vl-string-translate "=,\"" " " (strcat "(" text ")")))))
Just found it. Lee Mac had it solved.Thank you :)http://www.lee-mac.com/parsenumbers.html