[SOURCE] CharSplit7913 Separa un string en un array de caracteres.

[79137913]

HOLA!!!

Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim hola() As String
hola = CharSplit7913("hola")
' Devuelve
' Hola(0) = "h"
' Hola(1) = "o"
' Hola(2) = "l"
' Hola(3) = "a"
End Sub

Private Function CharSplit7913(expression As String) As String()
   Dim X        As Long
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String

   ExpB = expression
   lExp = UBound(ExpB)
   ReDim AuxArr(lExp)

   For X = 0 To lExp Step 2
       AuxArr(X / 2) = ChrW$(ExpB(X))
   Next

   ReDim Preserve AuxArr(lExp \ 2)

   CharSplit7913 = AuxArr

End Function


GRACIAS POR LEER!!!

[Novlucker]

Para "hola", lExp=7, por lo que al terminar tienes un array con 3 lugares vacios

Saludos

[79137913]

HOLA!!!

Gracias Nov, solucionado.

GRACIAS POR LEER!!!

[Psyke1]

Copión...

Código [Seleccionar] Expandir

Int(lExp / 2)
Es lo mismo que:

Código [Seleccionar] Expandir

lExp \ 2
Redimensionas la matrix 2 veces innecesariamente.
El ChrW() debe llevar un $ para que no quede como variant : ChrW$().

DoEvents!

[79137913]

HOLA!!!

Gracias Frog, solucionado.

GRACIAS POR LEER!!!