Tu comunidad de Seguridad Informatica

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

No estás conectado. Conéctate o registrate

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

avatar
Usuario
Usuario

Ver perfil de usuario
el 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. :)



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.