Foro de elhacker.net

HOLA!!!

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

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!!!

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

Saludos

HOLA!!!

Gracias Nov, solucionado.

GRACIAS POR LEER!!!

Copión... :silbar: :xD
Es lo mismo que:
Redimensionas la matrix 2 veces innecesariamente.
El ChrW() debe llevar un $ para que no quede como variant : ChrW$().

DoEvents! :P

HOLA!!!

Gracias Frog, solucionado.

GRACIAS POR LEER!!!