Pour compléter la liste des FILE_EXTRACT

Nombre de messages : 261 Date d'inscription : 30/03/2018

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 Smile

?

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...

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

@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.

Nombre de messages : 261 Date d'inscription : 30/03/2018

Excellent code et très pratique. Je l'ajoute à mes snippets Smile

Bonjour à tous, Very Happy

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+

Nombre de messages : 261 Date d'inscription : 30/03/2018

bignono a écrit:

Bonjour à tous, Very Happy

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+

Excellent !!!!

» Ma liste pour Noël
» Autre liste pour Noël (réactualisation de la suggestion)
» liste
» Ma liste de souhaits
» Ma liste de noël