FSplit |
Sépare le fichier |
|---|---|
| HighSpeed Pascal | DOS |
Syntaxe
| Procedure FSplit(P:PathStr;var D:DirStr;var N:NameStr;var E:ExtStr); |
Paramètres
| Nom | Description |
|---|---|
| P | Ce paramètre permet d'indiquer le nom du fichier à traiter. |
| D | Ce paramètre reçoit le répertoire du fichier. |
| N | Ce paramètre reçoit le nom du fichier. |
| E | Ce paramètre reçoit l'extension du fichier. |
Description
Cette procédure permet d'extraire l'extension, le nom et le chemin d'un fichier contenu dans le nom spécifier en utilisant des chaînes de caractères de format standard Pascal.
Remarques
- La procédure FSplit divise un chemin de fichier en ses 3 composantes : la spécification du répertoire, le nom du fichier et l'extension de fichier.
- N'importe lequel des 3 composantes peut être vide au retour, si le chemin du fichier ne contenait pas cette composante à l'entrée.
- Les types PathStr, DirStr, NameStr et ExtStr sont déclarés dans l'unité DOS comme suit :
- Type
- PathStr=String[127];
- DirStr=String[127];
- NameStr=String[31];
- ExtStr=String[15];
Exemple
L'exemple suivant permet de décomposer le chemin que vous entrez :
- Program FSplitSamples;
- Uses DOS;
- Var
- FullPath:PathStr;
- Dir:DirStr;
- Name:NameStr;
- Ext:ExtStr;
- BEGIN
- Repeat
- Write('Entrez le chemin à séparer: ');
- Readln(FullPath);
- FSplit(FullPath,Dir,Name,Ext);
- Writeln;
- Writeln(FullPath,' est constitué de:');
- Writeln;
- Writeln('Le répertoire: ',Dir);
- Writeln('Le nom du fichier: ',Name);
- Writeln('Avec l''extension: ',Ext);
- Until (FullPath = '');
- END.
Dernière mise à jour : Lundi, le 20 avril 2020