Hace tiempo tube la necesidad de crear una funcion(cuando aprendia pseudocodigo) para trabajar con datos de registros que sigen un formato, asi que asi nacio esta funcion Frag, por lo cual en ese momento no conocia a split, pero tenia la necesidad de algo como eso...
Ahora acabo de encontrar el documento donde guarde detalles de la funcion el cual habia hecho para compartir con compañeros de estudio, y ahora lo posteo por si le sea util a alguien mas...
La funcion split sirve para lo mismo, pero a veces no es necesario crear un array para acceder a un dado en una posicion en concreto; y mas aun, si es que tienes un documento con muchos registros, entonces es necesario de Frag, que apunta hacia algo en concreto...
A mi me es util en programas que usan sockets para enviar y recibir datos, guardar configuraciones del programa, para registros de usuarios, para archivos de configs, en fin...
usos:
aqui dejo el enlace del documento con su respectiva pequeña ayuda:http://www.tienspiura.com/jackl007/FuncionFrag_vb.pdf
el codigo de la funcion es este:
Código
Hay veces que no es necesario usar frag para cosas simples donde con split lo logras, pero si necesitas datos mas trabajados y rapido, frag te simplifica bastante...
Public Function Frag(ByVal Cad As String, dLim As String, X As Integer) As String Dim i, a As Integer Dim Encontrado As Boolean For a = 1 To X i = InStr(1, Cad, dLim) If i = 0 Then If Encontrado = False Then Frag = Cad Encontrado = True Else Frag = "NotFound" End If Else Frag = Mid(Cad, 1, i - 1) Cad = Mid(Cad, i + Len(dLim)) End If Next a End Function