Página 1 de 1
[Función] Simple Split By Metal [VB6]
Publicado: 13 Nov 2011, 04:44
por Metal_Kingdom
Os dejo este simple split de strings que he estado haciendo.
Código: Seleccionar todo
'Autor: Metal_Kingdom
'Lenguaje: VB6
'Web: udtools.net
'Finalidad: Separar datos de cadena.
Function sSplit(cadena As String, delimitador As String) As String
Dim a As String, b As String
a = InStr(1, cadena, delimitador) + Len(delimitador)
b = Mid(cadena, a, Len(cadena) - a + 1)
If a = "1" Or a = "" Then Exit Function
sSplit = b
End Function
Ejemplo de uso:
Código: Seleccionar todo
MsgBox (sSplit("vaya bonitos coños peludos", "bonitos")
'Devuelve " coños peludos"
Gracias a los que me han soportado por msn xD, en especial Mingo.
Esto iba a ser de otra manera soportando delimitador final, pero me estoy volviendo loco
Re: [Función] Simple Split By Metal [VB6]
Publicado: 13 Nov 2011, 04:45
por COBRA
Gracias por la función Metal!
Re: [Función] Simple Split By Metal [VB6]
Publicado: 13 Nov 2011, 05:48
por Franbv
jaja que buena que mingo te soporto xD a mi no lo iso xD
buen tips men como siempre
Re: [Función] Simple Split By Metal [VB6]
Publicado: 13 Nov 2011, 06:02
por AnGeLcAiDoC++
Gracias por el tip Metal
saludos
Re: [Función] Simple Split By Metal [VB6]
Publicado: 13 Nov 2011, 21:14
por The_ProDiGy
Muy bueno Metal.
Gracias, saludos.
Re: [Función] Simple Split By Metal [VB6]
Publicado: 15 Nov 2011, 13:35
por Javito
Magnífico ejemplo de uso
Buen trabajo, salut!
Re: [Función] Simple Split By Metal [VB6]
Publicado: 15 Nov 2011, 13:47
por xserpientex
Muy bueno me abrio la cabeza , a usarlo ya
Re: [Función] Simple Split By Metal [VB6]
Publicado: 16 Nov 2011, 20:01
por Lucho
Quedo bien Metal gracias
Saludos.
Re: [Función] Simple Split By Metal [VB6]
Publicado: 21 Nov 2011, 11:17
por K-0Z
muy bueno tio
unas observaciones, la variable a tiene que ser tipo long para cadenas largas, la variable b la puedes quitar y asignar directamente a la función, en la busqueda de instr puedes omitir el 1 y nadamas comparar si el valor es mayor a 0, salu2
Re: [Función] Simple Split By Metal [VB6]
Publicado: 21 Nov 2011, 15:43
por Metal_Kingdom
K-0Z escribió:muy bueno tio
unas observaciones, la variable a tiene que ser tipo long para cadenas largas, la variable b la puedes quitar y asignar directamente a la función, en la busqueda de instr puedes omitir el 1 y nadamas comparar si el valor es mayor a 0, salu2
Sí, tienes razón jejeje, quedó como string debido a que le di muchas vueltas y al final no corregí ese fallo :P
Gracias muchachos
Re: [Función] Simple Split By Metal [VB6]
Publicado: 21 Nov 2011, 22:17
por _ROOTt_
Gracias por el para cadenas Metal
gran saludos hermano