Indetectables

Hola.
Recién tuve que obtener los datos (path, fullpath, extension, etc) de una serie de archivos y me hice un objeto simple que lo haga rápido, tanto para Windows como para Linux (desde Lazarus específicamente)
Se me ocurrió que capaz les interese/sirva en algún momento, o como para aprender.
Por las dudas aviso: funciona tanto en Delphi/Lazarus en Windows y para Lazarus en Linux (no lo probé en Linux porque estoy desde una máquina virtual conectado a una PC con Windows, pero como está hecho en Lazarus sin usar APIs de Windows debería funcionar en Linux - sino me avisan).
Saludos

Código:

Mostrar/Ocultar

Código: Seleccionar todo

unit UFileNameExtract;

{ Línea automática de Lazarus, eliminar si se usa Delphi }
{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type

{ TNameExtract }

  TFileNameExtract = class(TObject)
  private
    FFullPath: String;
  protected
    function GetFullPath: String;
    function GetPath: String;
    function GetContainerFolder: String;
    function GetFileName: String;
    function GetFileNameNoExt: String;
    function GetExtension: String;
  public
    constructor Create(AFileName: String);
    destructor Destroy;

    property FullPath: String read GetFullPath;
    property Path: String read GetPath;
    property ContainerFolder: String read GetContainerFolder;
    property FileName: String read GetFileName;
    property FileNameNoExt: String read GetFileNameNoExt;
    property Extension: String read GetExtension;
  end;

implementation

{ TNameExtract }

function TFileNameExtract.GetFullPath: String;
begin
	Result := Self.FFullPath;
end;

function TFileNameExtract.GetPath: String;
{ Pre: el path nunca va a ser vacío, al menos debe tener "C:\" en Windows o "/" como root en Linux }
var
	I: Integer;
begin
  Result := '';
	I := Length(Self.FFullPath);
  { Por las dudas tomar en cuenta ambos delimitadores de carpetas }
  while (I > 0) and (Self.FFullPath[I] <> '\') and (Self.FFullPath[I] <> '/') do
  	Dec(I);
  { I en '\' }
  Result := Copy(Self.FFullPath, 1, I);
end;

function TFileNameExtract.GetContainerFolder: String;
var
	I, J: Integer;
begin
  Result := '';
	I := Length(Self.FFullPath);
  { Por las dudas tomar en cuenta ambos delimitadores de carpetas }
  while (I > 0) and (Self.FFullPath[I] <> '\') and (Self.FFullPath[I] <> '/') do
  	Dec(I);
  { I en '\' o '/' -> Buscar '\' o '/' anterior }
  if (I = 1) then
  begin
  	{ Caso root "/" -> Salir }
    Result := Self.FFullPath[I];
    Exit;
  end;

  J := I-1;
  while (J > 0) and (Self.FFullPath[J] <> '\') and (Self.FFullPath[J] <> '/') do
  	Dec(J);
	{ J en '\' }
  Result := Copy(Self.FFullPath, J+1, Length(Self.FFullPath) - J - (Length(Self.FFullPath) - I) - 1);
end;

function TFileNameExtract.GetFileName: String;
var
	I: Integer;
begin
  Result := '';
	I := Length(Self.FFullPath);
  { Por las dudas tomar en cuenta ambos delimitadores de carpetas }
  while (I > 0) and (Self.FFullPath[I] <> '\') and (Self.FFullPath[I] <> '/') do
  	Dec(I);
  { I en '\' o '/' }
  Result := Copy(Self.FFullPath, I+1, Length(Self.FFullPath) - I);
end;

function TFileNameExtract.GetFileNameNoExt: String;
var
	I, J: Integer;
begin
  Result := '';
	I := Length(Self.FFullPath);
  { Por las dudas tomar en cuenta ambos delimitadores de carpetas }
  while (I > 0) and (Self.FFullPath[I] <> '\') and (Self.FFullPath[I] <> '/') do
  	Dec(I);
  { I en '\' o '/' }
  J := Length(Self.FFullPath);
  while (J > 0) and (Self.FFullPath[J] <> '.') do
  	Dec(J);
 	{ J en '.' }
  if (J = 0) then
  	Result := Copy(Self.FFullPath, I + 1, Length(Self.FFullPath) - I )
  else
		Result := Copy(Self.FFullPath, I + 1, Length(Self.FFullPath) - I - (Length(Self.FFullPath) - J) - 1);
end;

function TFileNameExtract.GetExtension: String;
var
	I: Integer;
begin
	Result := '';
	I := Length(Self.FFullPath);
	while (I > 0) and not(Self.FFullPath[I] = '.') do
  	Dec(I);
  { I en '.' }
  if (I = 0) then //Archivo sin extensión
  	Result := ''
  else
  	Result := Copy(Self.FFullPath, I+1, Length(Self.FFullPath)-I);
end;

constructor TFileNameExtract.Create(AFileName: String);
begin
	{ La siguiente comprobación es innecesaria, pero se podría implementar }
	{if not(FileExists(AFileName)) then
  	raise	Exception.Create('El archivo no existe');}

  Self.FFullPath:=AFileName;

  inherited Create;
end;

destructor TFileNameExtract.Destroy;
begin
	Self.FFullPath:='';
  inherited Destroy;
end;

end.

Cómo usar:

Mostrar/Ocultar

Bonito código BrunoBsso, le echaré un vistazo. Por cierto, no conocía esa IDE, abra que mirarlo también.

Saludo

Fakedo0r escribió:Bonito código BrunoBsso, le echaré un vistazo. Por cierto, no conocía esa IDE, abra que mirarlo también.

Saludo

Si querés desarrollar en Object Pascal (digamos Delphi así se entiende mejor) y querés hacerlo tanto para Windows como para Linux, Mac y unos cuántos dispositivos móviles, vas a tener que usar Lazarus como obligación

Ojo, no es igual a Delphi. Está creciendo bastante, mejoró mucho en las últimas 3 versiones (hace poco tiempo era un desastre). Pero todavía no se puede comparar al IDE de Delphi.
Animate a usarlo, asustate porque es diferente, rompete la cabeza instalando componentes en Linux y terminá haciendo programas en Object Pascal multiplataforma ;)

Saludos!

Por lo que veo, está bajo GPL. Después de exámenes le echare un ojo

Saludo

Indetectables

UFileNameExtract - Extracción de datos de un FileName

UFileNameExtract - Extracción de datos de un FileName

Re: UFileNameExtract - Extracción de datos de un FileName

Re: UFileNameExtract - Extracción de datos de un FileName

Re: UFileNameExtract - Extracción de datos de un FileName