borrar un caracter de un numero

polielb · #1 (**permalink**) 27/01/2005, 15:33

hola amigos, tengo un pequeño problemita, tengo numeros 0255-1569446 que son TE quiero borrar el caracter "-" teniendo en cuenta siempre que pueden haber ceros al principio GRACIAS ¡¡¡¡¡¡¡¡¡¡¡¡¡¡

Eternal Idol · #2 (**permalink**) 27/01/2005, 15:47

¿Lenguaje?

halconhalcon · #3 (**permalink**) 27/01/2005, 15:53

Visual Basic

polielb · #4 (**permalink**) 27/01/2005, 15:53

Visual Basic 6.0

Eternal Idol · #5 (**permalink**) 27/01/2005, 15:57

Hay un subforo de VB

OYEME · #6 (**permalink**) 27/01/2005, 23:51

explicate mas no te entiendo ese numeor lo ingresas en un tetxo o lo genras a ver explicate mejor para ver si te ayudamos

pero te digoq ye hya funcione para substraer cadenas mid,left,rigth

polielb · #7 (**permalink**) 28/01/2005, 04:38

hola, me pasaron esta por ejemplo a = "012-345689" NumTE = Replace(Trim(a), "-", "")
anda un balaso, borra el caracter "-" este donde este ubicado en la cadena, pero tambien me interesaria saber si hubiera cualquier tipo de caracter en la cadena por ejemplo: a = "12-*//,_:;4568:;:-/*466" donde solo me interesan los numero algo que me de como resultado a = "124568466" seria interesante, existe la posibilidad de ponerle rango de asccii o algo asi creo ? GRCASIAASSS ¡¡¡¡¡¡

lucasiramos · #8 (**permalink**) 31/01/2005, 06:39

Hola. Proba el siguiente código

Código:

Dim Num As String
Dim Caracter As String
Dim X As Byte
 
X = 1
Num = ""
 
Do While X <= Len(Text1.Text)
	Caracter = Mid(Text1.Text, X, 1)
	If IsNumeric(Caracter) = True Then
		Num = Num & Caracter
	End If
	X = X + 1
Loop
 
Text1.Text = Num

Este código te sirve para sacar todos los caracteres que no sean numericos.

Saludos. Lucas

lucasiramos · #9 (**permalink**) 31/01/2005, 06:46

Cita:

Iniciado por lucasiramos

Text1.Text = Num

Puse Text1.Text, pero en realidad puede ser una variable, un elemento de un combo, lo que quieras.

Hecha la aclaración...

Saludos. Lucas

polielb · #10 (**permalink**) 02/02/2005, 08:03

MUCHAS GRACIAS LUCAS, Eternal Idol, OYEME por la ayuda