Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: 79137913 en Octubre 24, 2011, 10:48:13 am

Título: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
Publicado por: 79137913 en Octubre 24, 2011, 10:48:13 am

HOLA!!!

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

Código: (vb) [Seleccionar]

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