Discussion :

[OR34a]

Bonjour,

Je suis désolé d'avoir recours au Forum pour un problème dont la solutiion était jusqu'à présent évidente et qui ne posait aucune question :
je souhaite modifier le nom d'un fichier qui se termine par .CSv. Jusuq'à présent la construction d'un chemin complet et nom d'un fichier ne me posait aucun problème.
Le code en question est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
NomFichUTF := ED_FichChoisi.Text ;  // le chemin complet et nom d'un fichier se terminant par .csv
    TradFichANS := '';  // initialisation de la variable string TRadFichANS
    Valeur1 := '' ;  // Initialiastion de la variable string Valeur1
    For k :=  0 To ((length(NomFichUTF))-4) Do
     Begin
      Valeur1 := NomFichUTF[k] ;
      TradFichANS := TradFichAnS + Valeur1 ; //construction du nom du fichier converti
     end;
    TradFichANS := TRadFichANS+ '_ANS.csv' ;  // le chemin et nom complet du fichier

Bien entendu, la variable Valeur1 n'a été introduite que pour vérifier que la lecture de la variable NomFichUTF caractère par caractère se faisait correctement ce qui est le cas.
Par contre la construction pas à pas du contenu de la variable TradFichANS ne se fait pas et le contenu de cette variable reste vide !!!

Qu'ai-je oublié ? peut-être dans les Uses où les paquets rfequis (l'inpecteur de projet affiche FCL, LazUtils, LCL ( les deux derniers étant ajoutés par moi.

[Roland Chastain]

Bonjour !

Je vois au moins un problème dans le code que vous montrez, c'est NomFichUTF[k], avec k = 0. k devrait commencer à 1, me semble-t-il.

Personnellement, pour ce genre de problème, je mets des WriteLn aux endroits concernés et je lance mon programme depuis la console.

[bb84000]

Bonjour,

Pour avoir le nombre de caractères d'une chaîne UTF8, il vous faut utiliser UTF8Length et non Length. Et aussi (voir réponse précédente) le premier caractère d'une chaîne est à l'indice 1.

Si j'ai bien compris, vous voulez remplacer '.csv' par '_ANS.csv'; Pourquoi ne pas utiliser simplement la fonction
stringReplace ? Comme il y a très peu ce chances qu'il y ait deux fois '.csv' dans le nom du fichier :

Code :

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

TradFichANS := stringReplace(NomFichUTF , '.csv',  '_ANS.csv' ,[rfIgnoreCase]);

Mais si vous, voulez faire autre chose que simplement changer l'extension, alors ni votre code, ni le mien ne conviennent et il vous faut préciser votre objectif...

bb84000

[OR34a]

Bonjour,

Effectivement c'est bien le remplacement que je veux faire. Je ne connaissais pas cette instruction qui fera parfaitement l'affaire. Il n'empêche qu'il est anormal que la construction caractère par caractère du nouveau nom bloque et que la variable TradfichANS reste vide car la boucle remplit bien son rôle quant à l'individualisation des caractères. La variable valeur1 prend bien la valeur D puis : puis \ puis T etc.. si la valeur de NomFichUTF est D:\toto\monfichier.csv même si l'instruction est length et nom UTF8Length et qu'elle commence à 0 et non 1.
Le problème est donc contourné mais pas vraiment résolu.
Merci pour vos réponses.

R. O.

[OR34a]

Bonjour,

Mea culpa !!!

Je viens de tester les réponses qui m'ont été faites et, particulièrement de commencer la boucle "For k := ..." à 1 et non à 0 et ce simple changement fait que la chaine TradFichANS est construite sans problèmes. Le fait que la chaine, en commençant à zéro ne renvoie rien pour le premier caractère de construction de TradFichANS bloque le déroulement normal de la boucle.
Même si la solution du simple remplacement est beaucoup plus satisfaisante, c'est un soulagement d'avoir résolu le problème de la boucle.

Merci à tous

R.O.

[bb84000]

Bonjour !

Parfait.


A noter que si vous voulez changer l'extension d'un fichier sans connaître cette extension, vous pouvez utiliser la fonction ExtractFileExt(FileName) et utiliser la valeur retournée dans la fonction StringReplace...

bb84000

[Jon Shannow]

Bonjour,

Mea culpa !!!

Je viens de tester les réponses qui m'ont été faites et, particulièrement de commencer la boucle "For k := ..." à 1 et non à 0 et ce simple changement fait que la chaine TradFichANS est construite sans problèmes. Le fait que la chaine, en commençant à zéro ne renvoie rien pour le premier caractère de construction de TradFichANS bloque le déroulement normal de la boucle.
Même si la solution du simple remplacement est beaucoup plus satisfaisante, c'est un soulagement d'avoir résolu le problème de la boucle.

Merci à tous

R.O.

Juste pour info. Dans les "string" pascal, qui sont limitées à 255 caractères, de mémoire, le Chaine[0] contient le code ascii représentant la longueur de la chaine. Forcer ce caractère doit pas être acceptable et provoquer un dysfonctionnement !

[OR34a]

Merci pour les compléments et l'explication du dysfonctionnement si on initialise la boucle à 0.

[Andnotor]

Il est préférable d'utiliser UTF8Length pour assurer la compatibilité mais ici et puisque le chemin n'est constitué que de caractères ASCII Length renverra aussi la longueur correct.

Le fait que la chaine, en commençant à zéro ne renvoie rien pour le premier caractère de construction de TradFichANS bloque le déroulement normal de la boucle.

Non il n'y a aucun blocage et je dirais même que TradFichANS est correctement rempli mais NomFichUTF[0] vallant #0 (hazard ?) et #0 étant la marque de fin de chaîne, TradFichANS est tronquée à l'affichage.
Pour s'en convaincre, il suffit de contrôler la longueur de la chaîne par UTF8Length(TradFichANS) et constater que le résultat est bien la longueur de chaîne voulue... +1. On pourrait même effacer ce premier caractère #0 par Delete(TradFichANS, 1, 1) pour retomber sur nos pieds.

A contrario, StrLen(PChar(TradFichANS)) retournerait bien 0 puisque dans ce cas c'est la position du #0 qui est déterminante.

Dans les "string" pascal, qui sont limitées à 255 caractères, de mémoire, le Chaine[0] contient le code ascii représentant la longueur de la chaine. Forcer ce caractère doit pas être acceptable et provoquer un dysfonctionnement !

C'est effectivement la longueur dans le cas d'une ShortString mais l'allocation est toujours de 256 octets. Le caractère zéro ne faisant que donner la longueur utile dans ce buffer il n'y a pas de dysfonctionnement possible.
Et au contraire, à l'époque c'était une façon simple de tronquer une chaîne. Si TradFichANS avait été de ce type et qu'on voulait juste en conserver le lecteur (d:\), TradFichANS[0] := chr(3) était parfait (mais maintenant on préfèrera SetLength bien sûr).

[Guesset]

Bonjour,

Et le plus simple de tout, il y a tout une ribambelle de fonctions qui traficottent les noms de fichier dont celle-ci :

Code PASCAL :

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

FileName2 := ChangeFileExt(FileName, '.csv');

Salutations

[bb84000]

Bonjour Guesset,

Bon sang, je l'avais loupée, celle-là, quand je voulais une fonction pour supprimer l'extension !

bb84000

[Guesset]

Bonjour,

Il me semble même qu'il y en a une qui ne récupère que le nom du fichier sans l'extension ni chemin d'accès. Mieux, il y en a aussi une qui éclate un nom long en drive, chemin, nom, extension. Il faut juste faire attention aux noms qui ont plusieurs charnières comme Toto.old.pas, même si les fonctions considèrent généralement que l'extension va de la fin vers le premier point en marche arrière. Mais les appels successifs...

Salutations