[R] Connaître l'extension du fichier

[Trash]

Bonjour,
Je fais une recherche mais n'ayant rien trouver, je vient demander de l'aide.

L'utilisateur choisis son fichier :

Code : Tout sélectionner

$fichier = FileOpenDialog("Chercher votre fichier :","","Tous (*.*)")

Puis, je souhaiterai connaitre son expansion. Mais je ne sais pas comment, et s'il existe une commande spéciale..

Merci pour vos réponses futures !
Trash

[ani]

Qu'entendez vous par expansion ?

Si c'est pour connaître le chemin ou l'extension y a plusieur possibilité.
L'expression régulière, lecture de droite à gauche (stringtrim...) ou la fonction _PathSplit.

[Trash]

Oui , j'ai regardé , et la fonction : _PathSplit m'interesse, je voudrais l'extansion du fichier ( .txt,.php,.htm , etc etc )

Merci ta reponse rapide !

[Yogui]

perso je fais comme ça :

Code : Tout sélectionner

$var = StringSplit($fichier,".")
MsgBox(0,"", $var[$var[0]])

exemple donné avec la fonction _PathSplit

Code : Tout sélectionner

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt
$var= _PathSplit($fichier,$szDrive, $szDir, $szFName, $szExt)
MsgBox(0,"",$var[4])
_ArrayDisplay($var,"Demo _PathSplit()")

[ani]

d'accord extension
Comme vous l'a indiqué Yogui avec stringsplit

_PathSplit

Code : Tout sélectionner

#include <file.au3>
Dim $szDrive, $szDir, $szFName, $szExt
$fichier = @ScriptFullPath ; ou un lien c:\monfichier.txt 
$var= _PathSplit($fichier,$szDrive, $szDir, $szFName, $szExt)
MsgBox(0,"",$szExt)

StringRegExp... la y a bcp de possibilité j'en indique une

Code : Tout sélectionner

$fichier = @ScriptFullPath ; ou @scriptname 
msgbox(0,"Extention du " & $fichier,StringRegExpReplace($fichier,"(.*\.)",""))

avec StringStrim...

Code : Tout sélectionner

$fichier = @ScriptFullPath
msgbox(0,"Extention du " & $fichier,StringTrimLeft($Fichier, StringInStr($Fichier, ".", 1, -1)))
 

Autant de possibilté pour arriver au même point