Cita:
Empezado por Camilo
Gracias Movorack: no es lo que necesito. Gracias.
|
Archivos en el directorio:
Código:
camilo_campos_01-09-2022_clinica_ejemplo.pdf
camilo_campos_02-09-2022_clinica_ejemplo.pdf
camilo_campos_03-09-2022_clinica_ejemplo.pdf
camilo_campos_04-09-2022_clinica_ejemplo.pdf
camilo_campos_05-09-2022_clinica_ejemplo.pdf
jorge_campos_garcia_01-09-2022_hospital_central.pdf
jorge_campos_garcia_02-09-2022_hospital_central.pdf
jorge_campos_garcia_03-09-2022_hospital_central.pdf
jorge_campos_garcia_04-09-2022_hospital_central.pdf
jorge_campos_garcia_05-09-2022_hospital_central.pdf
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
lTemp : string;
lNombre: string;
lFecha: string;
lLugar: string;
SR : TSearchRec;
lFiles: TArray<string>;
lArchivo: TStrings;
begin
lTemp := IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + 'Archivos\*.pdf';
if FindFirst(lTemp, faAnyFile, SR) = 0 then
begin
repeat
lFiles := lFiles + [SR.Name];
until FindNext(SR) <> 0;
FindClose(SR);
end;
for i := Low(lFiles) to High(lFiles) do
begin
lTemp := lFiles[i];
lFecha := TRegex.Match(lTemp, '([0-9]+-)*[0-9]+', []).Value;
lNombre := lTemp.Substring(0, lTemp.IndexOf(lFecha)-1);
lNombre := StringReplace(lNombre, '_', ' ', [rfReplaceAll]).Trim;
lLugar := lTemp.Substring((lTemp.IndexOf(lFecha) + lFecha.Length) + 1, lTemp.Length);
lLugar := lLugar.Substring(0, lLugar.IndexOf('.'));
lLugar := StringReplace(lLugar, '_', ' ', [rfReplaceAll]).Trim;
lFiles[i] := Format('%s;%s;%s', [lNombre,lFecha,lLugar]);
end;
lArchivo:= TStringList.Create;
try
lArchivo.AddStrings(lFiles);
lArchivo.SaveToFile(IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0)))+'ListaArchivos.txt');
finally
lArchivo.Free;
end;
end;
Resultado:
Código:
camilo campos;01-09-2022;clinica ejemplo
camilo campos;02-09-2022;clinica ejemplo
camilo campos;03-09-2022;clinica ejemplo
camilo campos;04-09-2022;clinica ejemplo
camilo campos;05-09-2022;clinica ejemplo
jorge campos garcia;01-09-2022;hospital central
jorge campos garcia;02-09-2022;hospital central
jorge campos garcia;03-09-2022;hospital central
jorge campos garcia;04-09-2022;hospital central
jorge campos garcia;05-09-2022;hospital central