Comment ecrire dans Plusieurs Fichiers .....
Résolu
Xmustapha
Messages postés
116
Date d'inscription
Statut
Membre
-
Xmustapha Messages postés 116 Date d'inscription Statut Membre -
Xmustapha Messages postés 116 Date d'inscription Statut Membre -
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;
Configuration: Windows XP SP2 Firefox 2.0.0.10 RAM 512 Mo Processeur Pentuim 4 2.24 Ghz Carte qraphique GeForece 5500 Fx 256 Mo
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 -
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 -
Je ne suis pas spécialiste en DelPhi mais
AddInFile(path + Info.FindData.cFileName); peut-être -
Merci Pour Votre Réponse mais malhereusement ça marche
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 '\' ? -
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 -
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 tout cas c'est sûr qu'il faut faire AddInFile(path + Info.FindData.cFileName); , puisqu'il n'y a pas de chemin dans Info.FindData.cFileName.
Es-tu sûr de regarder dans le bon répertoire ? -
ReBonjour
Merci Pour Votre Aide ça Marche
j'ai fait fait ma recherche avec *.txt et ça marche
Merci Beaucoup
