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
Int(lExp / 2)
Es lo mismo que:
lExp \ 2
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!!!