Bonjour
Je dois faire un prog qui concatene tout les fichiers texte (dont je ne connais pas le nom) d’un répertoire donné en un seul ficher sortie.
Je suis donc a la recherche soit d’un composant delphi 7 freeware soit d’un bout de code que quelqu’un aurait deja trouvé ou ecrit.
J’ai fait une recherche sur le net mais je n’ai pas trouvé grand chose !
Toute aide est bienvenue !
Merci a tous.
En ligne de commande: copy file1+file2+file3+file4 allfiles.
et il y a surement une command type Shell, ou System qqch pour lancer un batch depuis delphi.
edit: c’est peut-être un peu la solution du pauvre, mais ça doit marcher, et ça dépanne.
Sinon, ce serais la lecture bloc à bloc des fichiers en binaire, ça doit se faire à la main sans avoir à chercher de freeware. mais connaît pas la syntaxe delphi moi, et Pascal c’est loin…
Tu crées 2 TStrings, 1 pour le fichier courant et l’autre pour le fichier de concaténation:
procedure concatenation;
var
currFile: TStrings;
concatFile: TStrings;
begin
currFile := TStringList.Create;
concatFile := TStringList.Create;
// pour chaque fichiers
currFile.LoadFromFile(‘nom_fichier.ext’);
concatFile.AddStrings(currFile);
concatFile.SaveToFile(‘ton_fichier’);
concatFile.Free;
currFile.Free;
end;