comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

sSplitDirigido [By Expermicid]

  • 0 Respuestas
  • 1445 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« en: Julio 09, 2012, 05:34:26 pm »
Hola a todos, aqui les dejo un reemplazo de la funcion split.
Pasandole como parametros el texto de entrada, un delimitador y una posicion te devuelve el elemento que se encuentra en esa posicion.
Aqui les dejo para que lo entiendan mejor. :)



Código: Delphi
  1. //  Autor : Expermicid
  2. //  Fecha : 10/07/2012
  3. //  Alternativa a Split
  4. //  Forma de uso : sSplitDirigido(Texto,Delimitador,Elemento)
  5. function sSplitDirigido( Input : String; Delimit : String; Index : Integer) : String;
  6.   var
  7.     aux : String;
  8.     i : Integer;
  9.   begin
  10.     if Input = '' then Exit;
  11.     if Delimit = '' then Exit;
  12.     aux := Input;
  13.     if Index > 0 then
  14.       begin
  15.         i := 0 ;
  16.         while i < Index do
  17.           begin
  18.             if pos(Delimit, aux) <> 0 then
  19.               aux := Copy(aux, pos(Delimit, aux) + Length(Delimit), Length(aux) - (pos(Delimit, aux) + Length(Delimit) - 1));
  20.             i := i + 1;
  21.           end;
  22.       end;
  23.     if pos(Delimit, aux) <> 0 then
  24.       aux := Copy(aux, 0, pos(Delimit, aux) - 1);
  25.     Result := aux;
  26.   end;

Saludos.
« Última modificación: Abril 21, 2013, 01:10:21 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Cifrado Basico [By Expermicid]

Iniciado por Expermicid

Respuestas: 3
Vistas: 3043
Último mensaje Octubre 09, 2012, 05:25:44 pm
por Pr0ph3t
Acorralador de Firmas [By Expermicid]

Iniciado por Expermicid

Respuestas: 1
Vistas: 1396
Último mensaje Enero 17, 2013, 01:40:14 pm
por ANTRAX