[Ayuda] Reemplazar caracter en cadena de texto

Iniciado por Psyke1, 24 Mayo 2010, 11:10 AM

0 Miembros y 2 Visitantes están viendo este tema.

Psyke1

Hola, necesito vuestra ayda para una duda muy simple... :silbar:
Tengo que quitar el caracter "e" de una cadena, para ello actualmente hago esto:

Código (vb) [Seleccionar]

Dim cadena As String
Cadena = "estoy cansado"
Cadena = Replace(Cadena, "e", "")


Queria saber si hay otra forma de hacerlo... ;)

Gracias! :)

Shell Root

Supongo que con Expresiones Regulares, pero no se...
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

seba123neo

si, hay, tenes un modulo de Cobein que publico aca mismo...y sino esta pagina:

Replace

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

.:BlackCoder:.

No entiendo bien ese link... sera que me das el link del "modulo que publico cubein" o el nombre del "modulo"?

Saludos...
"No te esfuerzes por saber mas, esfuerzate por ser el mejor en lo que sabes... Y asi sabras mas" .:BlackCoder:. jajaja




Psyke1

Gracias seba123neo, me sirvio! ;)

Cita de: El_nuevo_HH en 25 Mayo 2010, 05:02 AM
No entiendo bien ese link... sera que me das el link del "modulo que publico cubein" o el nombre del "modulo"?

Saludos...
:¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬

Dreamaker

#5
Todas las "e" de una cadena o sólo 1 quieres remover?

Pensandolo, en tal caso podrías hacer un for x=1 to Len(cadena) que vaya recorriendo hasta el largo de la cadena y que si el Mid de (cadena, x, 1) es distinto de "e" entonces que guarde la cadena en una variable contenedora o acumulador, luego podrías hacer un contador para controlar si quieres sacar todas las "e" o tan sólo 1 ;)

Te muestro un ejemplo que acabo de hacer:
Código (vb) [Seleccionar]
Private Sub cmdQuitar_Click()

'Declaracion de variables

Dim strCadena As String, strAux As String

'Asignacion de valor

strCadena = LCase(txtValor1.Text)

'Busqueda de "e"'s y eliminacion

For x = 1 To Len(strCadena)
    If Mid(strCadena, x, 1) <> "e" Then
        strAux = strAux + Mid(strCadena, x, 1)
    End If
Next x

'Asignacion de resultado final

lblResultado.Caption = strAux

End Sub


El proyecto por si lo quieres ver y/o probar mejor:
http://www.mediafire.com/?h0cyh53jmgv

;)


Psyke1

Gracias Dreamaker!! :)
Muy sencillo y eficaz! ;-)

Salu2! ;)

Dreamaker

#7
De nada, gracias a que este año estoy aprendiendo vb en el colegio :xD

Se me ocurre hasta podrías hacer otro textbox dándole al usuario la chance de elegir que letra quitar y que el for verifique si es distinto(<>) a esa letra, y así cuando la encuentre, que le deje quitar cualquier caracter que elija de la cadena

Veo que le estás poniendo empeño y vb es bastante bueno a mi parecer, yo el próximo año tengo C/C++ y el otro java :¬¬