Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Psyke1 en 24 Mayo 2010, 11:10 am



Título: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Psyke1 en 24 Mayo 2010, 11:10 am
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
  1. Dim cadena As String
  2. Cadena = "estoy cansado"
  3. Cadena = Replace(Cadena, "e", "")

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

Gracias! :)


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Shell Root en 24 Mayo 2010, 21:00 pm
Supongo que con Expresiones Regulares, pero no se...


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: seba123neo en 25 Mayo 2010, 03:41 am
si, hay, tenes un modulo de Cobein que publico aca mismo...y sino esta pagina:

Replace (http://www.xbeat.net/vbspeed/c_Replace.htm)

saludos.


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: .:BlackCoder:. 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...


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Psyke1 en 25 Mayo 2010, 09:04 am
Gracias seba123neo, me sirvio! ;)

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

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


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Dreamaker en 26 Mayo 2010, 11:43 am
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
  1. Private Sub cmdQuitar_Click()
  2.  
  3. 'Declaracion de variables
  4.  
  5. Dim strCadena As String, strAux As String
  6.  
  7. 'Asignacion de valor
  8.  
  9. strCadena = LCase(txtValor1.Text)
  10.  
  11. 'Busqueda de "e"'s y eliminacion
  12.  
  13. For x = 1 To Len(strCadena)
  14.    If Mid(strCadena, x, 1) <> "e" Then
  15.        strAux = strAux + Mid(strCadena, x, 1)
  16.    End If
  17. Next x
  18.  
  19. 'Asignacion de resultado final
  20.  
  21. lblResultado.Caption = strAux
  22.  
  23. End Sub

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



Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Psyke1 en 26 Mayo 2010, 11:58 am
Gracias Dreamaker!! :)
Muy sencillo y eficaz! ;-)

Salu2! ;)


Título: Re: [Ayuda] Reemplazar caracter en cadena de texto
Publicado por: Dreamaker en 26 Mayo 2010, 12:02 pm
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 :¬¬