Using this to help out with a task at work #lang racket
(define (fix str) (define tmp str) (set! tmp (regexp-replace* " / " tmp "_")) (set! tmp (regexp-replace* " " tmp "_")) (set! tmp (regexp-replace* "%" tmp "")) (set! tmp (regexp-replace* "-" tmp "_")) (string-upcase tmp)) Is there a better way? ____________________ Racket Users list: http://lists.racket-lang.org/users
