Reto1_Shell_P1
' gambas class file
'En este ejemplo voy a usar arrays
Private acadena_con_espacios As New String[]
Private acadena_sin_espacios As New String[]
Private scadena_final As String
Public Sub _new()
End
Public Sub Form_Open()
Me.Center
End
Public Sub txtCadena_KeyPress()
Dim x As Integer
'Inicializamos los array y la cadena final resultante
acadena_con_espacios.Clear
acadena_sin_espacios.Clear
scadena_final = ""
'Comprobamos que la tecla pulsada es Intro o Return
If Key.Code = Key.Enter Or Key.Code = Key.Return Then
acadena_con_espacios = Split(txtCadena.Text, " ")
For x = 0 To acadena_con_espacios.Max
'Si la cadena que contiene el indice es distinto a espacio la añadimos al array_sin_espacios
If acadena_con_espacios[x] <> "" Then acadena_sin_espacios.Add(acadena_con_espacios[x])
Next
'Recorremos el array desde el primer elemento hasta el ultimo
For x = 0 To acadena_sin_espacios.Max
'Comprobamos si hemos llegado al ultimo elemento del array
If x < acadena_sin_espacios.Max Then
'Si no es asi, concatenamos un espacio a la cadena que contiene el indice de array
scadena_final &= acadena_sin_espacios[x] & " "
Else
'Si llegamos a la ultima cadena del array, solo concatenamos la cadena que contiene el indice del array, sin añadir ningun espacio
scadena_final &= acadena_sin_espacios[x]
Endif
Next
'Mostramos en la caja de texto el contenido de la cadena final con los espacios necesarios
txtSalida.Text = scadena_final
Endif
End
Public Sub btnSalir_Click()
Me.Close
End
'En este ejemplo voy a usar arrays
Private acadena_con_espacios As New String[]
Private acadena_sin_espacios As New String[]
Private scadena_final As String
Public Sub _new()
End
Public Sub Form_Open()
Me.Center
End
Public Sub txtCadena_KeyPress()
Dim x As Integer
'Inicializamos los array y la cadena final resultante
acadena_con_espacios.Clear
acadena_sin_espacios.Clear
scadena_final = ""
'Comprobamos que la tecla pulsada es Intro o Return
If Key.Code = Key.Enter Or Key.Code = Key.Return Then
acadena_con_espacios = Split(txtCadena.Text, " ")
For x = 0 To acadena_con_espacios.Max
'Si la cadena que contiene el indice es distinto a espacio la añadimos al array_sin_espacios
If acadena_con_espacios[x] <> "" Then acadena_sin_espacios.Add(acadena_con_espacios[x])
Next
'Recorremos el array desde el primer elemento hasta el ultimo
For x = 0 To acadena_sin_espacios.Max
'Comprobamos si hemos llegado al ultimo elemento del array
If x < acadena_sin_espacios.Max Then
'Si no es asi, concatenamos un espacio a la cadena que contiene el indice de array
scadena_final &= acadena_sin_espacios[x] & " "
Else
'Si llegamos a la ultima cadena del array, solo concatenamos la cadena que contiene el indice del array, sin añadir ningun espacio
scadena_final &= acadena_sin_espacios[x]
Endif
Next
'Mostramos en la caja de texto el contenido de la cadena final con los espacios necesarios
txtSalida.Text = scadena_final
Endif
End
Public Sub btnSalir_Click()
Me.Close
End
Reto1_Shell_P1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Reto1_Shell_P1.tar.gz | |
Tamaño: | 5.47 KB | |
Descargado: | 42 veces |
Reto1_Shell_P1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Reto1_Shell_P1.tar.gz | |
Tamaño: | 5.47 KB | |
Descargado: | 42 veces |
Reto1_Shell_P1.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Reto1_Shell_P1.tar.gz | |
Tamaño: | 5.47 KB | |
Descargado: | 42 veces |