Tu comunidad de Seguridad Informatica

sSplitDirigido [By Expermicid] Info1810 Para ver Todo el contenido del foro es necesario estar Registrado! sSplitDirigido [By Expermicid] Info1810
sSplitDirigido [By Expermicid] Info1810 Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules sSplitDirigido [By Expermicid] Info1810
sSplitDirigido [By Expermicid] Info1810Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post. sSplitDirigido [By Expermicid] Info1810
sSplitDirigido [By Expermicid] Info1810Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]sSplitDirigido [By Expermicid] Info1810

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1Expermicid 

Expermicid
Usuario
Usuario

Lun Jul 09, 2012 3:34 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. :)

sSplitDirigido [By Expermicid] RRYFI

Código:
//  Autor : Expermicid
//  Fecha : 10/07/2012
//  Alternativa a Split
//  Forma de uso : sSplitDirigido(Texto,Delimitador,Elemento)
function sSplitDirigido( Input : String; Delimit : String; Index : Integer) : String;
  var
    aux : String;
    i : Integer;
  begin
    if Input = '' then Exit;
    if Delimit = '' then Exit;
    aux := Input;
    if Index > 0 then
      begin
        i := 0 ;
        while i < Index do
          begin
            if pos(Delimit, aux) <> 0 then
              aux := Copy(aux, pos(Delimit, aux) + Length(Delimit), Length(aux) - (pos(Delimit, aux) + Length(Delimit) - 1));
            i := i + 1;
          end;
      end;
    if pos(Delimit, aux) <> 0 then
      aux := Copy(aux, 0, pos(Delimit, aux) - 1);
    Result := aux;
  end;

Saludos.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.