Pascal: Renombrar (renumerar) ficheros

Renombrar varios ficheros, cambiando su nombre por una parte fija y un número que se incrementa

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Renombrar varios ficheros, cambiando su nombre *)

(*  por una parte fija y un número que se incrementa *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Intermedio *)

(* Disponible desde 17/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Randon Spackman *)

(* Web original: http://www.kd5col.info/swag/FILES/0085.PAS.html *)

program renamer;
uses crt,dos;
var
   f:file;
   s,s2,s3:string;
   on:integer;
   found:searchrec;
begin
     on:=1;
     write('Start of name: ');
     readln(s);
     findfirst('*.*',anyfile,found);
     while doserror=0 do begin
           if found.attr and directory=0 then begin
              assign(f,found.name);
              str(on,s2);
              while length(s2)+length(s)<8 do s2:='0'+s2;
              s2:=s+s2;
              s3:=found.name;
              if pos('.',s3)=0 then s3:=s3+'.';
              s2:=s2+copy(s3,pos('.',s3),length(s3));
              rename(f,s2);
              inc(on);
              end;
           findnext(found);
           end;
     end.