Comment ecrire dans Plusieurs Fichiers .....
Résolu
Xmustapha
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
Xmustapha Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Xmustapha Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Program HelloIHaveAProblem
Bonjour,
Comment ecrire dans Plusieurs Fichiers en meme temp avec delphi
ex
J'ai 11 fichier dans le Dossier de Executable
et je veux ajouter a ses fichier des donnes en meme temp
et les fichier je ne sais rien de leur nom
alors je peut faire
FindFirst et FindNext (pour trouver leurs noms )
il me reste que ecrire les Donnes Dans les 11 Fichiers ( c'est ça le probleme )
Merci Pour Votre Aide;
End;
Bonjour,
Comment ecrire dans Plusieurs Fichiers en meme temp avec delphi
ex
J'ai 11 fichier dans le Dossier de Executable
et je veux ajouter a ses fichier des donnes en meme temp
et les fichier je ne sais rien de leur nom
alors je peut faire
FindFirst et FindNext (pour trouver leurs noms )
il me reste que ecrire les Donnes Dans les 11 Fichiers ( c'est ça le probleme )
Merci Pour Votre Aide;
End;
A voir également:
- Comment ecrire dans Plusieurs Fichiers .....
- Renommer plusieurs fichiers en même temps - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ecrire en gras sur whatsapp - Guide
- Comment écrire # sur pc - Guide
9 réponses
Bonjour
Où y a-t-il un problème ? Ecrire dans un fichier ou dans 2 ou dans 3 c'est pareil... Peux-tu montrer ton programme pour que nous puissions te guider ?
A moins que tu veuilles écrire dans tous les fichiers en un seul writeln ; ça je ne crois pas que ce soit possible
Où y a-t-il un problème ? Ecrire dans un fichier ou dans 2 ou dans 3 c'est pareil... Peux-tu montrer ton programme pour que nous puissions te guider ?
A moins que tu veuilles écrire dans tous les fichiers en un seul writeln ; ça je ne crois pas que ce soit possible
Bonjour
Voila Mon Probleme
Const
Data : String[46] = 'String Donnes Ex'; Des Donnes String
Procedure AddInFile(FileN: String);
Var
hFile: Integer;
Begin
hFile := FileOpen(FileN,fmOpenReadWrite);
Filewrite(hFile,Data,46);
FileClose(hFile);
End;
Procedure LstOfFile(Path:String);
Var
Info: TSearchRec;
hF : Integer;
begin
if FindFirst(Path+'*.*',faAnyFile,info) = 0 then Begin // FindFirst Car j'ai pas Leur Noms ( les Fichiers )
Repeat
AddInFile(Info.FindData.cFileName); // c'est ça le probleme La Procedure ne marche pas comme il faut
Until FindNext(Info)<>0;
SySutils.FindClose(Info);
End;
end;
Merci
Voila Mon Probleme
Const
Data : String[46] = 'String Donnes Ex'; Des Donnes String
Procedure AddInFile(FileN: String);
Var
hFile: Integer;
Begin
hFile := FileOpen(FileN,fmOpenReadWrite);
Filewrite(hFile,Data,46);
FileClose(hFile);
End;
Procedure LstOfFile(Path:String);
Var
Info: TSearchRec;
hF : Integer;
begin
if FindFirst(Path+'*.*',faAnyFile,info) = 0 then Begin // FindFirst Car j'ai pas Leur Noms ( les Fichiers )
Repeat
AddInFile(Info.FindData.cFileName); // c'est ça le probleme La Procedure ne marche pas comme il faut
Until FindNext(Info)<>0;
SySutils.FindClose(Info);
End;
end;
Merci
Merci Pour Votre Réponse mais malhereusement ça marche
pas j'ai meme probleme les fichiers son rester a son etat d'orgine
Merci
pas j'ai meme probleme les fichiers son rester a son etat d'orgine
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
et si dans la boucle tu affiches le contenu de Info.FindData.cFileName, tu verras bien s'il y a un chemin complet ou juste le nom du fichier.
Si tu ne vois rien du tout, vérifie ta valeur de path, es-tu sûr qu'elle se termine bien par un '\' ?
Si tu ne vois rien du tout, vérifie ta valeur de path, es-tu sûr qu'elle se termine bien par un '\' ?
ReBonjour
j'ai fait
ShowMessage(info.FindData.cFileName);
Voila le Resultat
. // Je crois les Point c'est la cause de ce probleme Alors il faut les passer ( Comment )
..
test.txt
test2.txt
tst.txt
data.txt
Merci
j'ai fait
ShowMessage(info.FindData.cFileName);
Voila le Resultat
. // Je crois les Point c'est la cause de ce probleme Alors il faut les passer ( Comment )
..
test.txt
test2.txt
tst.txt
data.txt
Merci
Comment ?
en faisant ta recherche sur *.txt (si tu ne t'intéresses qu'aux .txt) ou en testant:
if Info.FindData.cFileName<>'.' and Info.FindData.cFileName<>'..' then etc...
j'ai meme probleme les fichiers son rester a son etat d'orgine
et qu'y a-t-il dans les fichiers d'origine ? ils ne commenceraient pas par 'String Donnes Ex' par hasard ?
en faisant ta recherche sur *.txt (si tu ne t'intéresses qu'aux .txt) ou en testant:
if Info.FindData.cFileName<>'.' and Info.FindData.cFileName<>'..' then etc...
j'ai meme probleme les fichiers son rester a son etat d'orgine
et qu'y a-t-il dans les fichiers d'origine ? ils ne commenceraient pas par 'String Donnes Ex' par hasard ?