Retourner un nom de fichier ???

Salut à tous !

Je ne réussi pas à faire retourner juste le nom du fichier, et même avec file_name$. File_name$ me retourne tout au complet : l'emplacement et le nom.

salut

fais une recherche de slash et ensuite sépare avec la fonction right

@+

Citation :

fais une recherche de slash et ensuite sépare avec la fonction right

Georges peut-tu me préciser c'est quoi 'une recherche de slash'

Salut nicolas

le slash est le caractère suivant : /
l'antislash ou le backslash : \

tu controle la longeur de la chaine et tu recherches l'un de ces deux caractères suivant la formulation de ton chemin.
si tu as des / tu recherches des /
si tu as des \ tu recherches des \

tu fais par exemple
for i=(longueur chemin) to 1 step-1
.....
next i

et ensuite tu utilises la fonction RIGHT$
pour en retirer juste le nom de ton fichier (avec l'extension)

Georges
@+

Georges peut-tu me faire un exemple S.V.P !

Je vois cette discutions.
J'ai repris une petite partie du codage de "jardin potager" que j'ai publié, qui répond à ta question

Code:

dim f$,u%,d%,a$,fiche$,vue$

rem un fichier dans un dossier quelquonque

f$="c:\dossier1\dossier2\teste programme.txt"


if f$="" or f$="_" :rem ceci dans le cas d'un open_dialog
else
  fiche$="" :d%=1
  for u%=len(f$) to 1 step -1
      a$=mid$(f$,u%,1)
      if a$="\" then exit_for
      fiche$=right$(f$,d%):d%=d%+1
  next u%
rem nom relatif du fichier:
print fiche$
 
  d%=len(fiche$)-4:if d%>0 then vue$=left$(fiche$,d%)
end_if

rem nom sans l'extension
print vue$

Faits une analyse du code tu comprendras, sinon redemandes des explications.
@+

J'ai réfléchi un peu. Ça me donne ça :

Code:

or i=j to 1 step -1
  if (mid$(NomFichier$,i,1)="\")
    NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
    text 45,""+Nom$
    exit_for
  end_if
next i

Text 45 c'est ou on trouve le nom du fichier.
Et si text 45 on met à la place text 45,""+NomPath$ ça retourne juste l'emplacement.

Salut Nicolas

Prog pour retourner le nom d'un fichier
Voila un exemple avec l'OPEN_DIALOG.
Donc n'importe quels fichiers fera l'affaire pour ce code

Code:

dim a$,nom$,chem$,a,i,ps,ps2
label fin
full_space 0
error_french
open_dialog 1
a$=file_name$(1)
a=len(a$)
for i=a to 1 step -1
if mid$(a$,i,1)="\" then ps=i : exit_for
next i
ps2 = a-ps
nom$ = right$(a$,ps2)
chem$ = left$(a$,ps)
display
print
print "Ceci est le nom et le chemin du fichier : ";a$
print
print
print "Voici le nom du fichier : ";nom$
print
print "Voici le nom du chemin : ";chem$
print
on_click 0,fin
end
fin:
terminate

Il suffit de clicker sur le FORM 0 pour sortir du programme proprement.
Tu peux aussi ajouter des filtres de fichiers, etc. ,,

Georges
@+