Nom de fichier

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
bugrane
Messages : 24
Inscription : dim. 02/mai/2004 18:28
Localisation : Bruxelles

Nom de fichier

Message par bugrane »

Bonjour, je voudrais savoir comment récupérer le nom d'un fichier dans une variable.

Merci :?:
julien
Messages : 846
Inscription : ven. 30/janv./2004 15:06
Contact :

Message par julien »

c'est un peu vague ta question, que contient ta variable ?, un chemin ?, si oui :

Code : Tout sélectionner

Fichier$ = GetFilePart(tavariable$) 
bugrane
Messages : 24
Inscription : dim. 02/mai/2004 18:28
Localisation : Bruxelles

Message par bugrane »

Je voudrais simplement pouvoir récupérer le nom d'un fichier dans une variable de type string$.

Merci pour ta réponse précédente.
julien
Messages : 846
Inscription : ven. 30/janv./2004 15:06
Contact :

Message par julien »

je suis pas sûr de bien comprendre,

Si tu veux récupérer le contenu de la variable, tu peux l'enregistrer avec les commandes openfile(0,nom$) et writefileN(tavariable$)

Si ta variable est composé d'une chemin par exemple c:\windows\fichier.txt et que tu veux extraire fichier.txt, utilise la commande que je t'ai donné + haut
:)
bugrane
Messages : 24
Inscription : dim. 02/mai/2004 18:28
Localisation : Bruxelles

Message par bugrane »

Non, je voudrais simplement récupérer dans une variable de type string$ le nom d'un fichier que ouvrirai avec une sélecteur de fichiers, pour pouvoir afficher le nom du fichier ouvert dans le titre d'une fênetre.

Merci Julien
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Quelque chose comme ça:

Code : Tout sélectionner

If OpenWindow(0, 200, 200, 600, 200, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")
  
 Chemin$ = OpenFileRequester("Choisir un fichier", "", "|All Files|*.*", 0)
    If Chemin$
      SetWindowTitle(0,Chemin$)
    EndIf

  Repeat
    EventID.l = WaitWindowEvent() 
    If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf 
  Until Quit = 1 
EndIf
bugrane
Messages : 24
Inscription : dim. 02/mai/2004 18:28
Localisation : Bruxelles

Message par bugrane »

Merci Nicolas, c'est ce que je cherchais à faire.

PS merci à toi aussi Julien, car tu m'as fait découvrir des fonction que je ne connaissais pas
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

bugrane a écrit :PS merci à toi aussi Julien, car tu m'as fait découvrir des fonction que je ne connaissais pas
Moi aussi, je ne connaissait pas, j'ai zappé la rubrique Misc!

Alors Merci :wink:
julien
Messages : 846
Inscription : ven. 30/janv./2004 15:06
Contact :

Message par julien »

c la rubrique foure tout :lol:
A ne pas oublier d'allez voir
Répondre