Código: Seleccionar todo

Function sSplit(Str As String, Del As String) As String()
'Autor: Slek
'Fecha: 14/02/10
'Descripción: esta función simula Split de VB6
'Para Indetectables.net
Dim lRet As Long, nRet As Long, i As Integer
Dim lCont As Long, Cst As Long
Dim Splitted() As String
 
If Del = "" Or Str = "" Then Exit Function
If InStr(1, Str, Del) = 0 Then Exit Function
 
Cst = Len(Del)
 
lRet = InStr(1, Str, Del)
 
Do While lRet <> 0
    lRet = InStr(lRet + Cst, Str, Del)
    lCont = lCont + 1
Loop
 
ReDim Splitted(lCont)
 
lRet = 1 - Cst
 
For i = 0 To UBound(Splitted) - 1
    nRet = InStr(lRet + Cst, Text1.Text, Del)
    Splitted(i) = Mid(Str, lRet + Cst, nRet - lRet - Cst)
    lRet = nRet
Next i
 
lRet = lRet - 1 + Cst
 
Splitted(lCont) = Right(Str, Len(Str) - lRet)
 
sSplit = Splitted
End Function

Código: Seleccionar todo

Dim Tmp() As String
Dim i as integer
 
Tmp = sSplit(Text1.Text, " ")
For i = 0 to Ubound(Tmp)
 msgbox tmp(i)
next i

Código: Seleccionar todo

Function sSplit(Str As String, Del As String) As String()
'Autor: Slek
'Fecha: 14/02/10
'Descripción: esta función simula Split de VB6
'Para Indetectables.net
Dim lRet As Long, nRet As Long, i As Integer
Dim lCont As Long, Cst As Long
Dim Splitted() As String

If Del = "" Or Str = "" Then Exit Function
If InStr(1, Str, Del) = 0 Then Exit Function

Cst = Len(Del)

lRet = InStr(1, Str, Del)

Do While lRet <> 0
    lRet = InStr(lRet + Cst, Str, Del)
    lCont = lCont + 1
Loop

ReDim Splitted(lCont)

lRet = 1 - Cst

For i = 0 To UBound(Splitted) - 1
    nRet = InStr(lRet + Cst, Str, Del)
    Splitted(i) = Mid(Str, lRet + Cst, nRet - lRet - Cst)
    lRet = nRet
Next i

lRet = lRet - 1 + Cst

Splitted(lCont) = Right(Str, Len(Str) - lRet)

sSplit = Splitted
End Function