Separar un string en un array cada 3 caracteres

[davape9]

Buenass...

Tengo una variable en visual basic, que necesito pasarla a un array de manera que cada elemento del array tenga 3 caracteres...

Por ejemplo:

variable = "abcdefghijk"

variable2 = 'Aquí se crea el array de manera que:

msgbox variable2(0) 'Esto debe lanzar abc
msgbox variable2(1) 'Esto debe lanzar def
msgbox variable2(2) 'Esto debe lanzar ghi
msgbox variable2(3) 'Esto debe lanzar jk

Si me pudierais ayudar os lo agradecería mucho

[pkj]

Como a mi no me asusta usar "GoTo" te propongo esta solución:

contador=0
Repite:
if len(cadena)>=3 then
variable(contador)=left$(cadena,3)
cadena=right$(cadena,len(cadena)-3)
contador=contador+1
goto repite
else
if cadena<>"" then variable(contador)=cadena
endif

Saludos

[davape9]

Gracias por responder..

Pero como le hago el dim a variable??

dim variable() as string

como lo hago porque no me funciona de ninguna manera?

[pkj]

Si sabes cuantos elementos va a tener como máximo:
Dim Variable(numero) as string

Si quieres redimensionarla cada vez:
Dim Variable() as string

y en la sub que la cargas:


numero=int(len(cadena)/3)+1
ReDim Variable(numero) as string

Espero que te sirva.

[davape9]

Ok.

Muchas gracias por tu ayuda

[pkj]

Encantado de ayudar.

Quiero aclarar lo que he dicho sobre el GoTo.
El caso es que sé que un Loop hace el trabajo, pero nunca me acuerdo qué hacía el Until y qué hacía el While, y el goto lo más que me genera es un bucle infinito de vez en cuando... cosa facil de encontrar con ctrl+pausa mientras depuras.

Nunca he tenido intención de menospreciar a quien usa (porque sabe) otro tipo de comandos. De hecho mi lenguaje de programación es muy limitado y básico y no me siento orgulloso de ello, aunque si de conseguir casi todo lo que me propongo con ese poco lenguaje.

Saludos y estudiad mucho los que aún tengais neuronas libres