Autor Tema: cadena de caracteres (Leído 1016 veces)

Jesmi89 · « **en:** Jueves 2 de Octubre de 2008, 23:48 »

Hola, es que tengo un pequeño problemita con un codigo. Lo que necesito es que al ingresar una palabra cualquiera este me desfragmente, es decir, que si por ejemplo se tiene "codigo", aparezca asi: "co", luego, "cod", luego, "codi", luego, "codig" y "codigo". Yo lo he estado haciendo asi, pero me doy cuenta que solamente se reduce aun tamaño especifico de palabra (asi que no estoy muy segura si lo estoy haciendo bien).

Entonces quisiera saber, si me podrian ayudar con esto, es decir, como se haria para que sin importar el tamaño de la palabra que se ingrese la desfragmente.

Código: Text

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim a As String
 
        a = TextBox1.Text
 
        For a = Len(TextBox1.Text) To 1 Step -1
 
            TextBox2.Text = Strings.Left(TextBox1.Text, 2)
            TextBox3.Text = Strings.Left(TextBox1.Text, 3)
            TextBox4.Text = Strings.Left(TextBox1.Text, 4)
 
        Next
    End Sub
End Class

Gracias

Nebire

Cita de: "Jesmi89"

Entonces quisiera saber, si me podrian ayudar con esto, es decir, como se haria para que sin importar el tamaño de la palabra que se ingrese la desfragmente.

Código: Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
a = TextBox1.Text

For a = Len(TextBox1.Text) To 1 Step -1
TextBox2.Text = Strings.Left(TextBox1.Text, 2)
TextBox3.Text = Strings.Left(TextBox1.Text, 3)
TextBox4.Text = Strings.Left(TextBox1.Text, 4)
Next
End Sub
End Class

Gracias

Veamos, en primer lugar la variable 'a' la declaras como string, y luego le asignas el contendio de un textbox.... luego ya no lo vuelves a usar como string...
2º Declaras 'a' como string pero luego lo usas como integer para el contador del bucle, esto es una contradición.
3º un bucle se usa para no repetir código, por tanto si haces manualmente algo, el bucle carece de sentido.

El código debería quedar algo así como:

Código: Visual Basic

 
       Dim a As String = TextBox1.Text
       dim k as integer=0
 
        For k = Len(a) To 1 Step -1
            TextBox2.Text = Strings.Left(a, k)  ' cadena de la que se toma, cantidad que se toma
        Next

SoloCodigo

Autor Tema: cadena de caracteres (Leído 1016 veces)

Jesmi89

cadena de caracteres

Nebire

Re: cadena de caracteres