Lenguaje de programación Borland Delphi
Esta función quita la ruta (carpeta) y la extensión de un fichero dado, devolviendo sólo el nombre del fichero:
function extraerSoloNombreFichero (fichero : string) : string;
var
ficheroFinal : string;
begin
ficheroFinal := ExtractFileName(fichero);
ficheroFinal := copy (ficheroFinal, 1, pos (ExtractFileExt (ficheroFinal), ficheroFinal) - 1);
Result := ficheroFinal;
end;
Publicado el: 2005-07-26