Reconocer solo las letras y los numeros de una cadena de texto

DaNieL
26 de Diciembre del 2005
Necesito reconocer solo las letras y numeros de una cadena de texto, los demas caracteres deberian ser reemplazados por un caracter underline ( _ ) ,

Gracias

Edgarin
26 de Diciembre del 2005
Hola Daniel:
Tengo la solución a tu problema. Supongamos que la cadena de texto se llama "cad". El codigo es el sgte:

cad = "??Solo quiero/* letras \ y -- 123 nUmeros"
Dim i As Integer, car As String
For i = 1 To Len(cad)
car = UCase(Mid(cad, i, 1))
If (car < "0" Or car > "9") And (car < "A" Or car > "Z") Then
Mid(cad, i, 1) = "_"
End If
Next
MsgBox cad 'Para mostrar

Resultado: "__Solo quiero___letras____y____123_nUmeros"

DaNieL
26 de Diciembre del 2005
Gracias por la ayuda , me sirvio bastante