Page 1 sur 1
[R] Connaître l'extension du fichier
Posté : ven. 13 févr. 2009 11:06
par 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
Re: [..] Connaître l'expansion du fichier
Posté : ven. 13 févr. 2009 11:27
par 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.
Re: [..] Connaître l'expansion du fichier
Posté : ven. 13 févr. 2009 13:49
par 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 !
Re: [..] Connaître l'expansion du fichier
Posté : ven. 13 févr. 2009 14:02
par Yogui
perso je fais comme ça :
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()")
Re: [..] Connaître l'expansion du fichier
Posté : ven. 13 févr. 2009 14:38
par 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