Discussion :

[Spinoza23]

Bonjour à tous, j'aimerai créer une procédure pour découper une chaine de caractère. J'ai la chaine suivante :

C:\Documents and Settings\Utilisateur\Bureau\Collecte Lait\xml\FRA32572049800022_EXRM_R_20090612_02.xml

et j'aimerai récupérer la chaine

FRA32572049800022_EXRM_R_20090612_02

pour en faire un identifiant en fait.

Alors j'ai commencer à créer une procédure :

Code :

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

1
2
3
4
5
 
procedure Decoupechaine(Chaine : string);
begin
 
end;

Ainsi je lui passe en paramètre la chaine complète pour réccupérer mon résultat final.


PS : Le chemin complet ne sera pas toujours le même et la longueur de la chaine finale peut varier

Je pense que le top serai de se positionner sur le premier back slash ( "\" ) en partant de la fin et ensuite supprimer les 4 derniers caractères ( ".xml" )


Étant débutant en Delphi j'ai du mal à trouver le code qui pourrai m'aider... Si quelqu'un à la solution, merci d'avance de votre aide !

[Aka Guymelef]

Bonjour,

Pour extraire le nom du fichier utilise la routine ExtractFileName de l'unité SysUtils. Pour l'extension du fichier utilise Pos et Delete pour la supprimer.

Consultes l'aide des ces fonctions pour plus de détails.

[ShaiLeTroll]

Pour l'extension, ChangeFileExt(..., '')

[Spinoza23]

Ok merci beaucoup, j'ai bien compris pour récupérer le nom de fichier en revanche j'ai pas bien saisi la fonction pour supprimer l'extension... Merci

[ero-sennin]

Salut,

Un petit sur le nom de la fonction, et tu as tout ce qu'il te faut

[Spinoza23]

Ok j'avais pas vu la deuxième réponse de ShaiLeTroll ! désolé...

voilà ce que j'ai fais :

Code :

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

1
2
3
 
   NOMFICHIER := ExtractFileName(aFileName);
   NOMFICHIER := ChangeFileExt(NOMFICHIER, '');

et ça marche ! Merci à vous trois pour votre aide et votre rapidité !