Gambas France BETA


Pas de compte ? Incription

[RESOLU] Chemin repertoire relatif

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 6/2/2010 à 23:18:00
Bonjour
lors de l'ouverture d'une boite de dialogue pour choisir un fichier ,je souhaiterai avoir simplement le nom du fichier et non :

/home/taratata/monappli/monfichier.txt

Comment faire ?
Merci de votre réponse.
;)
manu#2 Posté le 7/2/2010 à 14:42:00
Avec Gambas ca roule !je suis pas sure de comprendre la question, filechooser semble te proposer trop de possibilités (choix du rep, de l'extention etc...)

Il faut peut être utiliser une combo ou un contrôle de liste quelquonque, que tu remplis avec les fichiers ayant une extension particulière et se trouvant dans un répertoire particulier donnée par toi (et non par l'utilisateur...)

??

Voila ce que tu pourrais ecrire pour remplir une combo avec tous les fichiers du répertoire home courant dans comboBox1:

1
PUBLIC SUB Form_Open()DIM fichiers AS STRING FOR EACH fichiers IN Dir(User.Home, "*") ComboBox1.Add(fichiers) NEXTEND


Tu peux évidement faire ça avec n'importe quel répertoire et ajouter un filtre supplémentaire...

Va voir la fonction DIR dans la doc ;)
Jeanne d'arc, elle a frit, elle a tout compris ! ;)

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)
spheris#3 Posté le 7/2/2010 à 21:00:00
Merci pour l'info manu, mais je récupère le nom du fichier par ce code là dans mon filechooser :

PUBLIC SUB opena_Click()
'ouverture fenetre dialogue pour asset
Dialog.Path = $sPath1
Dialog.Filter = ["*.mp3", "Fichier MP3", "*.wav", "Fichier Wav microsoft", "*.ogg", "Fichier OG son"]
IF Dialog.OpenFile() THEN RETURN
$sPath1 = Dialog.Path
morceaua.Text = $sPath1
END

$sPath1 est de la forme :

/home/user/monfichier.mp3

et moi je voudrais simplement avoir :

monfichier.mp3

et ceci simplement pour le fichier que j'ai choisi.
;)
manu#4 Posté le 7/2/2010 à 21:22:00
Avec Gambas ca roule !ha ok

il faut utiliser la classe File :

Tu veux le nom complet utilise File.Name

1
DIM fichiers AS Stringfichiers = ("/home/manu/essais.txt")Message.Info(File.Name(fichiers))


Reponse : essais.txt

tu veux juste le nom (sans extension), utilises file.BaseName

1
DIM fichiers AS Stringfichiers = ("/home/manu/essais.txt")Message.Info(File.BaseName(fichiers))


reponse : essais

plein d'autres instructions encore, tout est là ....
Jeanne d'arc, elle a frit, elle a tout compris ! ;)

Config :
Manjaro linux (excellent !)
XFCE 4.1 (simple et efficace)
Gambas 3 dans les dépots (confort total)
spheris#5 Posté le 7/2/2010 à 23:21:00
Merci manu, sympa ! C'est ce que je voulais !
;)
1