This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

sSplitDirigido [By Expermicid]

  • 0 Replies
  • 2240 Views

0 Members and 1 Guest are viewing this topic.

Offline Expermicid

  • *
  • Ex-Staff
  • *****
  • Posts: 458
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • View Profile

sSplitDirigido [By Expermicid]

  • on: July 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. :)



Code: (delphi) You are not allowed to view links. Register or Login
//  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.
« Last Edit: April 21, 2013, 01:10:21 pm by Expermicid »