Discussion :

[Invité]

salut

désolé pour toutes ces questions mais j'ai fait mes propres recherches et ça n'a pas abouti

l'instruction changefileext permet de changer l'extension d'un fichier

mais au niveau des paramètres je ne suis plus très sûr

exemple : je désire changer l'extension d'un fichier *.set se trouvant à un endroit de l'ordi
mais cet endroit peut varier suivant où l'utilisateur décide de l'enregistrer

je sais que la syntaxe est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChangeFileExt(1er paramètre, '.txt');

ma question : dans le 1er paramètre que faut-il mettre pour qu'il cible le fichier ?

[Invité]

Ok je vais être plus explicite :

vu le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TxForm.btOkClick(Sender: TObject);
var
chaine: String;
begin         
     FormEn.CrOutFs;
     case cbBM.ItemIndex of
         0 : save_job('x.exe',chaine,ChangeFileExt(Log, '_single_abr.set'));
         1 : save_job('x.exe',chaine,ChangeFileExt(Log, '_single_crf.set'));
         2 : save_job('x.exe',chaine,ChangeFileExt(Log, '_single_qp.set'));
         3 : save_job('x.exe',chaine,ChangeFileExt(Log, '_firstpass.set'));
         4 : save_job('x.exe',chaine,ChangeFileExt(Log, '_firstpass.set'));
         5 : save_job('x.exe',chaine,ChangeFileExt(Log, '_secondpass.set'));     
     end;
     Close;
regexport;
end;
(...)
procedure TxForm.regexport;
begin
case cbM.ItemIndex of
         0 : ChangeFileExt(Log, '_firstpass.txt');
         1 : ChangeFileExt(Log, '_firstpass.txt');
         2 : ChangeFileExt(Log, '_firstpass.txt');
         3 : ChangeFileExt(Log, '_firstpass.txt');
         4 : ChangeFileExt(Log, '_firstpass.txt');
         5 : ChangeFileExt(Log, '_secondpass.txt');
end;
end;

Lorsque je clique sur le bouton "ok", le terme 'log' étant le nom du fichier log, comment se fait-il qu'il ne change pas d'extension ? Le fichier *.set est protégé ou quoi ?

[skywaukers]

Bonjour,

comme son nom l'indique, ChangeFileExt, change l'extension du fichier, et que son extension. Ce que tu essaye de faire ressemblerait plus à un RenameFile je pense.

@++
Dany

[MedGIR]

Salut,

ChangeFileExt ne modifie pas le fichier physiquement, mais permet de stocker dans une variable le resultat de cette fonction.

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
NomDuFichierOriginal : string;
NomDuFichierModifie : string;
begin
 NomDuFichierModifie := ChangeFileExt(NomDuFichierOriginal,'.set');

Après pour créer réellement ton fichier : CopyFile(NomDuFichierOriginal,NomDuFichierModifie);

Ca doit etre un truc comme ca, je fais ca de tete, j'ai pas Delphi sous la main... Malheuresement d'ailleur je suis sous Linux..

Salut Dany ;-)

A+

[Reisubar]

Après pour créer réellement ton fichier : CopyFile(NomDuFichierOriginal,NomDuFichierModifie);

Plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MoveFile(PChar(SourceFile), PChar(ChangeFileExt(SourceFile, NewExt))

Merci, encore une fois, de lire l'aide. C'est marqué très clairement :

ChangeFileExt ne renomme pas le fichier lui-même, elle crée simplement une chaîne contenant le nouveau nom du fichier.