| Pour compléter la liste des FILE_EXTRACT | |
|
|
Auteur | Message |
---|
Fredisland
Nombre de messages : 261 Date d'inscription : 30/03/2018
| Sujet: Pour compléter la liste des FILE_EXTRACT Dim 29 Avr 2018 - 0:01 | |
| Bonjour, Histoire de compléter la liste de... : FILE_EXTRACT_DISK$(F) : retourne un nom de disque à partir de F FILE_EXTRACT_EXTENSION$(F) : retourne une extension de fichier à partir de F FILE_EXTRACT_NAME$(F) : retourne un nom de fichier à partir de F FILE_EXTRACT_PATH$(F) : retourne un chemin de fichier à partir de F ... je verrais bien un : FILE_EXTRACT_NAME_WITHOUT_EXTENSION$(F) : retourne un nom de fichier sans son extension à partir de F C'est bien, non ? | |
|
| |
Klaus
Nombre de messages : 12274 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Dim 29 Avr 2018 - 1:04 | |
| En effet - ça pourrait aider à construire des noms de fichiers annexes pour une application, portant tous le même nom ou la même racine de nom, avec une extension différente. Je génère cela par des manipulations de chaînes de caractères... | |
|
| |
silverman
Nombre de messages : 968 Age : 51 Localisation : Picardie Date d'inscription : 18/03/2015
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Dim 29 Avr 2018 - 9:08 | |
| Ca serait pas mal, en effet. Mais depuis que jack a mis en place les fonctions, tu peux le faire très simplement: - Code:
-
dim a$ a$="c:\dossier\blablabla.txt" : print FILE_EXTRACT_NAME_WITHOUT_EXTENSION$(a$) END fnc FILE_EXTRACT_NAME_WITHOUT_EXTENSION$(file$) file$=FILE_EXTRACT_NAME$(file$) if instr(file$,".")>0 result left$(file$,instr(file$,".")-1) else result file$ end_if end_fnc | |
|
| |
Klaus
Nombre de messages : 12274 Age : 74 Localisation : Ile de France Date d'inscription : 29/12/2009
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Dim 29 Avr 2018 - 9:31 | |
| @Silverman: Tu oublies qu'un nom de fichier peut contenir "légalement" plusieurs points qui font partie du nom - sel le dernier introduit une extension. Il vaudrait mieux faire comme ceci: - Code:
-
dim a$ a$="c:\dossier\bla.bla.bla.txt" : print FILE_EXTRACT_NAME_WITHOUT_EXTENSION$(a$) END fnc FILE_EXTRACT_NAME_WITHOUT_EXTENSION$(nom$) dim_local n, ext$, file$ file$=FILE_EXTRACT_NAME$(nom$) ext$ = FILE_EXTRACT_EXTENSION$(nom$) if LEN(ext$)>0 result left$(file$,LEN(file$)-LEN(ext$)) else result file$ end_if end_fnc La, ça marche dans tous les cas. | |
|
| |
Fredisland
Nombre de messages : 261 Date d'inscription : 30/03/2018
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Dim 29 Avr 2018 - 11:37 | |
| Excellent code et très pratique. Je l'ajoute à mes snippets | |
|
| |
bignono
Nombre de messages : 1127 Age : 66 Localisation : Val de Marne Date d'inscription : 13/11/2011
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Mar 1 Mai 2018 - 7:41 | |
| Bonjour à tous, Klaus, il y a plus simple! - Code:
-
dim a$:a$="c:\dossier\bla.bla.bla.txt" print left$(file_extract_name$(a$),instr_last(file_extract_name$(a$),".")-1) A+ | |
|
| |
Fredisland
Nombre de messages : 261 Date d'inscription : 30/03/2018
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT Mar 1 Mai 2018 - 11:40 | |
| | |
|
| |
Contenu sponsorisé
| Sujet: Re: Pour compléter la liste des FILE_EXTRACT | |
| |
|
| |
| Pour compléter la liste des FILE_EXTRACT | |
|