Replace lettere e numeri

[jordy80]

Ciao a tutti,
ho cercato nel forum e su google ma nada

Come posso fare il replace di tutti i caratteri diversi da lettere e numeri?
ovvero dalla A alla Z e da 0 a 9

esempio se ho una frase tipo:
mast.dvd 3.5"
deve diventare
mast_dvd_3_5_

per ora faccio il replace carattere per carattere ma in ascii c'è ne sono troppi

ciao

[tas]

Con un ciclo for passi carattere per carattere (funzione Mid). Se il codice ascii del carattere (funzione Asc) è compreso tra 48 e 57 (cifre da 0 a 9) oppure compreso tra 65 e 132 (caratteri da A a Z) lasci il carattere invariato, altrimenti lo sostituisci con l'underscore.

In alternativa, usi il metodo Replace dell'oggetto RegExp:

Dim rx, titolo
titolo = "mast.dvd 3.5"""
Set rx = New RegExp
rx.IgnoreCase = True
rx.Global = True
rx.Pattern = "[^\w]"   'cerca tutti i caratteri diversi da a-z, A-Z, 0-9, _
titolo = rx.Replace(titolo, "_")