Discussion :

[rezuss]

Bonjour,

J'ai un programme dans lequel l'utilisateur à la possibilité de faire des exports de résultats de calculs. Actuellement, ces fonctions d'export utilistent les routines "AssignFile", "Rewrite", "Writeln" et "CloseFile" pour écrire dans un fichier en mode "Text".

Avec ces routines, il est impossible d'écrire un fichier dans un répertoire dont le nom contient des ".".

Je voulais donc savoir si il existait un moyen de contourner ce problème, sans pour autant réécrire tout monde code en passant par des TStringsList?

Merci.

[Kaféine]

Salut,

Avec ces routines, il est impossible d'écrire un fichier dans un répertoire dont le nom contient des ".".

Je vois pas en quoi c'est un problème.

Néanmoins il est possible de sauvegarder le contenu d'un TStringList dans un fichier avec ses méthodes LoadFromFile, SaveToFile.

[rezuss]

Je vois pas en quoi c'est un problème.

L'appel de la routine "AssignFile" passe, mais après lorsque je fais appel à la routine "Rewrite" j'obtiens l'erreur suivante :

Code :

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

1
2
 
... raised exception class  EInOutError with message 'Invalid filename'.

Et cela n'arrive que lorsque le nom du répertoire contient un ".".

[Kaféine]

Je sais pas ce que tu fais mais ceci par exemple

Code :

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

1
2
3
4
5
6
7
 
var
  F: File;
begin
  AssignFile(F, 'Test.Test.Txt');
  Rewrite(F);
  CloseFile(F);

ne pose aucun problème chez moi

[Kaféine]

peut qu'il te faut te position sur le bnon répertoire avant de traiter le fichier avec les fonction prévue à cette effet

[Kaféine]

non car ceci

Code :

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

1
2
3
4
5
6
7
 
var
  F: File;
begin
  AssignFile(F, 'c:\bla.bla\Test.Test.Txt');
  Rewrite(F);
  CloseFile(F);

fonctionne également et pourtant il y a un point dans répertoire
evidemment c:\bla.bla\ existe

[Clorish]

Apres tu peux aussi gerer l'ecriture du fichier via les Stream ....

Soit un TMemoryStream que tu sauve via la methode SaveToFile, soit directement un TFileStream.

Un peux obscure de prime abort mais tellement plus appreciable par la suite !

A noter que TFileStream et TMemoryStream (entre autre) derive de TStream donc permet un gestion generique du traitement via un parametre TStream, ce qui a pour effet de pouvoir effectuer le traitement directement depuis un fichier HDD comme depuis une szone memoire ou on aurait chargé un fichier extrait d'un package ou recupere sur le reseau sans transiter par le disque dur.