Reemplazar todos los caracteres de una cadena de números

Hola Marta.

Puedes utilizar esta función (que quita todo lo que no sea un número de
la cadena):

Function quitaLetras(cadena)
Dim cadenaTemp
For i = 1 To Len(cadena)
If Asc(Mid(cadena, i, 1)) >H And Asc(Mid(cadena, i, 1)) <= 57 Then
cadenaTemp = cadenaTemp & Mid(cadena, i, 1)
End If
Next
quitaLetras = cadenaTemp
End Function

Marta Martín wrote:

Hola!

¿Alguien sabe como reemplazar de una cadena de caracteres que contiene
números y letras todas la letras de esa cadena?

Un saludo.

Marta.

Depende que quieras hacer.

La funcion replace te sirve para eso.

Si quieres remplazar una letra por otra, puedes hacer:

replace(cadena, "caracter a buscar", "caracter por remplazar")

Si quisieras que desaparezca:

replace(cadema, "caracter a buscar", "")

Puedes hacer un bucle que pase por todo el abecedario y remplace o borre los
caracteres.

Saludos,

Matías Iacono
Microsoft MVP ASP/ASP.net - DCE3

Profile: http://aspnet2.com/mvp.ashx?MatiasIacono
"Miguel Gonzalez" escribió en el mensaje
news:
Hola Marta.

Puedes utilizar esta función (que quita todo lo que no sea un número de
la cadena):

Function quitaLetras(cadena)
Dim cadenaTemp
For i = 1 To Len(cadena)
If Asc(Mid(cadena, i, 1)) >H And Asc(Mid(cadena, i, 1)) <= 57 Then
cadenaTemp = cadenaTemp & Mid(cadena, i, 1)
End If
Next
quitaLetras = cadenaTemp
End Function

Marta Martín wrote:

Hola!

¿Alguien sabe como reemplazar de una cadena de caracteres que contiene
números y letras todas la letras de esa cadena?

Un saludo.

Marta.