Función sSplit by Slek

Iniciado por Slek Hacker, 13 Febrero 2010, 20:11 PM

0 Miembros y 2 Visitantes están viendo este tema.

Slek Hacker

Función que simula Split con Instr y Mid  ;D

Código (vb) [Seleccionar]
Function sSplit(Str As String, Del As String) As String()
'Autor: Slek
'Fecha: 14/02/10
'Versión: 0.3
'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

Str = Str & Del
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 - 1)

lRet = 1 - Cst

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

sSplit = Splitted
End Function



Ejemplo de su uso:

Código (vb) [Seleccionar]
Dim Tmp() As String
Dim i as integer

Tmp = sSplit(Text1.Text, " ")
For i = 0 to Ubound(Tmp)
msgbox tmp(i)
next i

Shell Root

Es bueno saber, como funcionan las cosas, pero si ya estan creadas para que volverlas a crear ...  :silbar:
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

raul338

Hay que reinventar la rueda cuando uno esta en programacion, a veces uno quiere las cosas "a medida"

Parece bueno, ahora hay que probarlo :P

Slek Hacker

Por que la función original es detectada en algunas ocasiones...
Por ejemplo Ikarus y Asquared...

BlackZeroX

.
Me gusta mas el split que creo Cobein xP

Sangrientas Lunas!¡.
.
The Dark Shadow is my passion.

hAcKeR92

Woow que currada jajjaa

habra que probarlo ;)

raul338

Cita de: BlackZeroX▓▓▒▒░░ en 13 Febrero 2010, 22:58 PM
.
Me gusta mas el split que creo Cobein xP

Sangrientas Lunas!¡.
.

y ese cual es?? :rolleyes:

seba123neo

#7
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Slek Hacker

Ahora que veo la función de Cobein se parece un poco, pero es que no hay mucho más para cambiar.
No me he copiado de la función de cobein, me he basado en una función anterior que yo mismo cree para un crypter que hice. Pero cada uno es libre de pensar lo que quiera  ::)

Y esta función anda correctamente  ;D

Saludos!

seba123neo

ahora funciona porque veo que editaste el post, y algo le cambiaste, pero igualmente quiero decir que la de cobein es impresionantemente mucho mas rapida que esta.

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson