Visual Basic.NET - Dividir una cadena en cadenas mas pequeñas

   
Vista:

Dividir una cadena en cadenas mas pequeñas

Publicado por Jose (12 intervenciones) el 24/09/2008 17:20:00
Hola.
Mi problema es el siguiente:
Mi entrada de texto es un "TextBox". Imaginen que introduzco: "Hola me llamo Jose", pués pretendo guardar esa cadena en cadenas de 4 caracteres. Quedando:
cad1 = "Hola"
cad2 = " me "
cad3 = "llam"
cad4 = "o Jo"
cad5 = "se"
¿A alguien se le ocurre cómo hacerlo?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Dividir una cadena en cadenas mas pequeñas

Publicado por Jose (12 intervenciones) el 25/09/2008 11:58:55
Lo solucioné:

Dim TxtLen As Integer = Len(TxtEscribir.Text) 'Longitud de la cadena a escribir
Dim Bloques As Integer
Dim cadena(9) As String

'Para contar el numero de bloques de memoria
If (TxtLen Mod 4) > 0 Then
Bloques = (TxtLen 4) + 1
Else
Bloques = TxtLen / 4
End If

'Para separar el texto en bloques de 4
For i As Integer = 0 To Bloques - 1
cadena(i) = Mid(TxtEscribir.Text, 1 + i * 4, 4)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar