Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: TheKillerWantsYou en 25 Julio 2009, 19:26 pm



Título: [SOLUCIONADO] Problema sustituyendo carácteres.
Publicado por: TheKillerWantsYou en 25 Julio 2009, 19:26 pm
¡Buenas!
Estoy programando un programa que hace la función de que, cuando escribes algo en un TextBox, al pulsar un botón, aparezca otra cosa en otro TextBox, es decir, sustituyo carácteres. El código es el siguiente:

Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim V As String
        V = Replace(TextBox1.Text, "a", "xD")
        TextBox2.Text = V
End Sub
Hasta ahí todo va bien, el problema es ahora. Cuando le añado otra línea más al código, de manera que quede así:

Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim V As String
        V = Replace(TextBox1.Text, "a", "xD")
        V = Replace(TextBox1.Text, "b", "xP")
        TextBox2.Text = V
End Sub
Solamente me sustituye la b, es decir, que si pongo ab, me sale axP.

Tambien he probado con dos variables, pero el resultado es el mismo:
Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim V As String
        Dim Va As String
        V = Replace(TextBox1.Text, "a", "xD")
        Va = Replace(TextBox1.Text, "b", "xP")
        TextBox2.Text = V
        TextBox2.Text = Va
End Sub

¿Qué le falta o que falla en el código?

Saludos. ^^-


Título: Re: Problema sustituyendo carácteres.
Publicado por: BlackZeroX en 25 Julio 2009, 20:38 pm
LO DEBES HACES DE FORMA SERIAl NO PARALELA.

Código
  1.        V = Replace(TextBox1.Text, "a", "xD")
  2.        'V = Replace(TextBox1.Text, "b", "xP")
  3.        V = Replace(v, "b", "xP")
  4.        TextBox2.Text = v
  5.  
  6.  

ò

Código
  1.        V = Replace(TextBox1.Text, "a", "xD")
  2.        TextBox1.Text=v
  3.        V = Replace(TextBox1.Text, "b", "xP")
  4.        TextBox2.Text = v
  5.  
  6.  

ò

Código
  1.        V = Replace(Replace(TextBox1.Text, "a", "xD"), "b", "xP")
  2.        TextBox2.Text = v
  3.  
  4.  


Dulces Lunas.


Título: Re: Problema sustituyendo carácteres.
Publicado por: TheKillerWantsYou en 25 Julio 2009, 20:46 pm
BlackZeroX, muchas gracias por contestarme, al final tomé el tercer metodo de los que me has pasado. ^__^

¡Saludos!