AssignFile et '.'

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.

Salut,

Citation:

---

Envoyé par rezuss

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.

Citation:

---

Envoyé par Kaféine

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:

---

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

---

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

Je sais pas ce que tu fais mais ceci par exemple

Code:

---

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

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

non car ceci

Code:

---

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

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.

Citation:

---

Envoyé par Kaféine

evidemment c:\bla.bla\ existe

---

Le probelme viens surement de la.
Tu as une fonction dans FileCtrl : ForceDirectories qui cree l'ensemble des repertoire du chemin si l'un d'entre eux viens a manquer. A combiner avec ExtractFileDir pour preparer l'arborescence d'un fichier qui va etre ecrit sur le disque.

Oui en effet, après vérification du code qui suivait, il y avait une fonction qui modifiait mon chemin d'enregistrement et qui ducoup devenait invalide.

merci