[Función] Simple Split By Metal V2
Publicado: 01 Dic 2011, 13:16
Bueno, me decidí a hacer la V2 de mi split.
Añadido soporte para un 2º delimitador opcional.
Uso con un delimitador:
Uso con dos delimitadores:
Se podrían depurar algunos errores en caso de ingresar mal los delimitadores, pero si usáis bien la función no hay ningún problema.
Saludos!!!
Añadido soporte para un 2º delimitador opcional.
Código: Seleccionar todo
'Autor: Metal_Kingdom
'Lenguaje: VB6
'Web: udtools.net
'Fecha: 30-11-2011
'Finalidad: Separar datos de cadena.
'Añadido soporte de 2º delimitador opcional.
Function sSplit(cadena As String, delimitador As String, Optional delimitador2 As String) As String
Dim a As String, b As String, c As Long, d As Long
c = InStr(1, cadena, delimitador) + Len(delimitador)
a = Mid(cadena, c, Len(cadena))
b = StrReverse(a)
d = InStr(1, b, StrReverse(delimitador2)) + Len(delimitador2)
b = StrReverse(Mid(b, d, Len(b)))
If Not delimitador2 <> "" Then
sSplit = a
Else
sSplit = b
End If
End Function
Código: Seleccionar todo
MsgBox sSplit("zorrrrrrrrrrrraaaaaaaaahola puta bastarda de mierda hola puta zorra, basura", "puta bastarda")
'Devuelve " de mierda hola puta zorra, basura".
Código: Seleccionar todo
MsgBox sSplit("zorrrrrrrrrrrraaaaaaaaahola puta bastarda de mierda hola puta zorra, basura", "puta bastarda", "puta zorra")
'Devuelve " de mierda hola "
Saludos!!!