nom de fichier sans son extention

Question

Bonjour a tous
Comment extraire le nom d'un fichier sans son extention pour l'afficher dans un textbox (et ensuite traiter cette valeur)

valtrase · Answer

tout simplement avec la fonction Instr("chaine","caractère recherché"
Dim NomFichierEntier , NomFichier as string
Dim Trouve as integer

NomFichierEntier = "Toto.exe"

Trouve = Instr("NomFichierEntier", ".")
NomFichier = Left$(NomFichierEntier,Trouve-1)

Attention certain noms de fichier comportent plusieurs point adapte ton code pour les resortir

bye

econs · Answer

Ceci fonctionne quel que soit le nombre de point présent dans le nom de fichier.
En effet, l'extension, par définition, ce sont les lettres présentes derrière le DERNIER point.


Public Function FichierSansExtension(s As String) As String
Dim i As Long
For i=Len(s) to 1 Step -1
If Mid(s,i,1)="." Then
 Exit For
End If
Next i
FichierSansExtension = Left(s,i-1)

End Function



Et çà s'appelle comme ceci :

Dim monFichier1 As String
Dim monFichier2 As String

monFichier1 = "C:\dossier\mon.fichier.txt"
monFichier2 = FichierSansExtension(monFichier1)

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

cboulas · Answer

Ou encore :


if instr(FileName,len(FileName)-4,".")>0 then
   FileName=mid(FileName,1,instr(FileName,len(FileName)-4,"."))
end if


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_rene38 · Answer

Salut
Une autre solution en 1 ligne :

NomSansExtension = Left$(NomFichier, InStrRev(NomFichier, ".") - 1)

econs · Answer

cboulas >

Si le fichier possède l'extension .html, ton code ne passe pas.

encore moins s'il a l'extension .htaccess ou .manifest (pour ne citer que ces exemples)

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

cboulas · Answer

econs> effectivement cela va déconner si l'extension à + de 4 lettres. alors voici :


p1=len(FileName)
do until sLetter="."
   sLetter=mid(FileName,p1,1)
   p1=p1-1
loop
FileName=mid(FileName,1,p1+1)


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

NeoUmbrella · Answer

Moi jfais comme ca:
public function NomFichier (Fichier as string) as string
dim tabTemp() as string
dim intTemp as integer
tabTemp=split(Fichier,".")
intTemp=len(tabTemp(ubound(tabTemp)))
NomFichier=left(Fichier,len(Fichier)-intTemp)
end function

Neo Umbrella.Inc

econs · Answer

Pour faire encore plus compliqué en utilisant Split, tu peux concaténer tous les élements du tableau Splitté, sauf le dernier.


public function NomFichier (Fichier as string) as string
dim tabTemp() as string
Dim i As Long
Dim sTemp As String
dim intTemp as integer
sTemp=""
tabTemp=split(Fichier,".")
For i=Lbound(tabTemp) to UBound(tabTemp)-1
sTemp = sTemp & tabTemp(i)
Next i
NomFichier=sTemp
end function



Mais bon, là, c'est pour s'amuser ...

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

NeoUmbrella · Answer

Lbound c'est le debut du tableau ?

Neo Umbrella.Inc

Nom de fichier sans son extention

9 réponses

Discussions similaires