mon fichier est vide

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
france
Messages : 7
Inscription : mer. 10/mars/2004 0:14

mon fichier est vide

Message par france »

j'ai creer un fichier, mais j'ai du oublier quelque chose, est-ce que quelqu'un pourrait me donner un petit coup de main svp?


Procedure creation_fichier()
If CreateGadgetList(WindowID())







If CreateFile(0,"catalogue.txt")

titre.s= GetGadgetItemText(#text_9,a,1)
realisateur.s=GetGadgetItemText(#text_11,a,2)
acteur1.s = GetGadgetItemText(#text_13,a,3)
acteur2.s=GetGadgetItemText(#text_14,a,4)
acteur3.s=GetGadgetItemText(#text_15,a,5)
duree.s=GetGadgetItemText(#text_17,a,6)
origine.s=getgadgetitemtext(#text_19,a,7)
annee.s=GetGadgetItemText(#text_21,a,8)
producteur.s=GetGadgetItemText(#text_23,a,9)

WriteString(titre)
WriteString(realisateur)
WriteString(acteur1)
WriteString(acteur2)
WriteString(acteur3)

WriteString(duree)
WriteString(origine)
WriteString(annee)
WriteString(producteur)


CloseFile(0)
SaveFileRequester("Sauver un fichier","c:\PureBasic\catalogue","Fichiers PureBasic|*.pb;*.pbi|Tout type|*.*",0)

EndIf
EndIf


EndProcedure
Haut
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

Message par Patrick88 »

à premiere vue si le savefilerequester te sert à choisir l'emplacement de ton fichier, il est mal placé, il le mettre à la place de "catalogue.txt"
ce qui donnerais If CreateFile(0,SaveFileRequester("Sauver un fichier","c:\PureBasic\catalogue","Fichiers PureBasic|*.pb;*.pbi|Tout type|*.*",0) )

"catalogue.txt" étant le fichier que tu crées, regarde dans le dossier de ton appli , il doit s'y trouver....

patrick
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

Code : Tout sélectionner

Procedure creation_fichier()

  ; Demande le nom du fichier à l'utilisateur
  Fichier.s = SaveFileRequester("Sauver le fichier", "c:\PureBasic\catalogue\", "Fichiers texte|*.txt", 0)
  
  
  If Fichier = "" ; Si la function retourne un texte vide, vous avez appuyé sur annulé
    Debug "Vous avez annulé la sauvegarde"
    
  Else ; si la fonction SaveFileRequester retourne une valeur
    Debug "Fichier : " + Fichier
    
    If GetExtensionPart(Fichier) = "" ; si le nom de fichier ne comporte pas d'extension
      Fichier = Fichier + ".txt" ; on ajoute l'extension
      Debug "Fichier avec extension : " + Fichier
    EndIf
      
    Debug "Vous pouvez créer un fichier avec CreateFile(0, " + Chr(34) + Fichier + Chr(34) + ")"

  EndIf
EndProcedure

creation_fichier()
Et voila :wink:
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

le temps que je fasse un copier coller ,le soldat avait déjà répondu , tant pis je laisse la réponse :)

Code : Tout sélectionner

Procedure creation_fichier() 
   ; ceci n'est pas indispensable  ,c'est juste pour se placer dans le même répertoire que ton appli
   Repertoire.s = Space(256)
   GetCurrentDirectory_(256,@Repertoire)
   
   Titre$ = "Enregistre un catalogue"
   FichierParDefaut$ = Repertoire+"\" 
   Filtre$ = "Fichiers texte |*.Txt" ; ici tu devrais choisir un autre nom d'extension ( ex : .ctg), spécifique à ton prog , ça facilite la recherche des fichiers compatibles avec ton appli
   FiltrePosition = 0
   Chemin$ = SaveFileRequester(Titre$, FichierParDefaut$, Filtre$, FiltrePosition) 
   fichier$ = GetFilePart(Chemin$)
   EnregistreFichier = #True
   ;on écrase le fichier s'il existe ?
   If FileSize(Chemin$)>0
      Reponse = MessageRequester("Enregistre catalogue","Voulez vous écraser ce catalogue " + fichier$ + " ? ",#PB_MessageRequester_YesNo )
      If Reponse <> 6
         EnregistreFichier = #False
      EndIf
   EndIf   
   
   If EnregistreFichier   
   
      If CreateFile(0,Chemin$) 
         
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
         
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
         
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
          
         CloseFile(0) 
        
      EndIf 

   EndIf
   
EndProcedure
Haut
Invité

Message par Invité »

merci beaucoup a tous
ca marche et c'est génial
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

voici une petite procédure pour la prochaine fois que tu mettras un bout de code sur le forum , ça facilitera la lecture :)

- 1 - Copie ton code dans le post
- 2 - Sélectionne le code à la souris
- 3 - Clique sur le bouton

Code : Tout sélectionner

 en haut entre [Quote] et [List]

et voila , ainsi l'indentation de ton code sera conservée .
Haut
Invité

Message par Invité »

y a _ t il une autre fonction que savefilerequester qui permettrait d'enregister le fichier sans ouvrir de fenetre ?
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

saverequester() ne fait pas la sauvegarde du fichier ,ça permet seulement d'afficher une fenêtre pour sélectionner un fichier , ou indiquer un fichier .

Pour la sauvegarde il faut utiliser CreateFile()
ou OpenFile()

Je te renvoie à l'aide de purebasic pour lire la différence entre ces deux commandes .

Et si ce n'est pas clair , comme d'hab , il y a aura quelqu'un pour répondre ici à tes questions :)

Code : Tout sélectionner

Procedure creation_fichier() 
      If CreateFile(0,"catalogue.Txt") 
          
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
          
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
          
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
          
         CloseFile(0) 
        
      EndIf 
   
EndProcedure
Haut
Invité

Message par Invité »

lorsque j'envoies la procedure creation_fichier, en me servant seulement de createfile rien ne se passe, il ne m'enregistre rien, c'est pour ca que j'avais pense me servir de savefilerequester.
j'avoue que je suis perdue.
et je voulais savoir aussi lorsque j'arriverai a le faire marcher, lorsque j'entrerai une nouvelle fiche, est-ce qu'il me gardera en memoire la premiere, ou est-ce qu'il faudra que je rajoute un add quelque chose..

j'ai l'air nul, mais je me suis mis a la programmation qu'il y a à peine 2 semaines et j'ai vraiment envie d'y arriver.

merci pour votre aide, qui m'a bien fait avancer jusqu'à maintenant.
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

tu peux mettre ton code complet qu'on puisse y jeter un oeil ?

tu as quoi comme gadget ?
GetGadgetItemText(#text_9,a,1)

ajoute ceci dans ta procedure create_fichier() , juste avant closefile()

Code : Tout sélectionner

debug Titre 
debug realisateur 
etc
histoire de vérifier qu'il y a bien quelque chose à enregistrer , sinon le fichier est créé ? ou il n'y a rien du tout ?
Haut
Invité

Message par Invité »

j'essaie de rajouter les debug

je te tiens au courant
Haut
Invité

Message par Invité »

bien je t'envoie tout le programme

;déclaration des constantes

Enumeration

#menu
#Text_0
#Text_1
#Text_2
#Text_3
#Text_4
#Text_5
#Text_6
#Text_7
#Text_8
#text_9
#text_10
#text_11
#text_12
#text_13
#text_14
#text_15
#text_16
#text_17
#text_18
#text_19
#text_20
#text_21
#text_22
#text_23
#text_24
#text_25
#String_0
#String_1
#String_2
#String_3
#String_4
#String_5
#String_6
#String_7
#String_8
#Button_0
#Button_1




EndEnumeration


Enumeration

#bouton_inserer
#page_film
#sauvegarder
#corriger
#gadget_editeur
EndEnumeration
Global titre$, acteur1$, realisateur$, acteur2$, acteur3$, duree$, origine$, annee$, producteur$
Declare creation_de_film()
Declare recapitulatif()
Declare creation_fichier()
Procedure ouverture_menu()


If OpenWindow(#menu,0,0,200,200,#pb_window_systemmenu|#pb_window_windowcentered,"menu")

If CreateGadgetList (WindowID())

ButtonGadget(#bouton_inserer,10,10,180,20,"INSERER UN FILM")


EndIf


EndIf

Repeat


eventid = WaitWindowEvent()


If EventID = #PB_EventGadget
Select EventGadgetID()

Case #bouton_inserer
HideWindow(#menu,1)
creation_de_film()
HideWindow(#menu,0)





EndSelect
EndIf
Until EventID = #PB_EventCloseWindow

EndProcedure

Procedure creation_de_film()


If OpenWindow(#page_film, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "information pour le film")
If CreateGadgetList(WindowID())
TextGadget(#Text_0, 10, 10, 90, 20, "Titre du film :")
TextGadget(#Text_1, 10, 40, 90, 20, "Réalisateur :")
TextGadget(#Text_2, 10, 70, 90, 20, "Premier acteur :")
TextGadget(#Text_3, 10, 100, 90, 20, "Deuxième acteur :")
TextGadget(#Text_4, 10, 130, 90, 20, "Troisième acteur :")
TextGadget(#Text_5, 10, 160, 90, 20, "Durée :")
TextGadget(#Text_6, 10, 190, 90, 20, "Origine :")
TextGadget(#Text_7, 10, 220, 90, 20, "Année :")
TextGadget(#Text_8, 10, 250, 90, 20, "Producteur :")
StringGadget(#String_0, 100, 10, 210, 20, "")
StringGadget(#String_1, 100, 40, 210, 20, "")
StringGadget(#String_2, 100, 70, 210, 20, "")
StringGadget(#String_3, 100, 100, 210, 20, "")
StringGadget(#String_4, 100, 130, 210, 20, "")
StringGadget(#String_5, 100, 160, 210, 20, "")
StringGadget(#String_6, 100, 190, 210, 20, "")
StringGadget(#String_7, 100, 220, 210, 20, "")
StringGadget(#String_8, 100, 250, 210, 20, "")
ButtonGadget(#Button_0, 30, 290, 120, 30, "Terminer")
ButtonGadget(#Button_1, 190, 290, 120, 30, "Annuler")

EndIf

Repeat

EventID = WaitWindowEvent()

If EventID = #PB_EventGadget
Select EventGadgetID() ; La gestion des évenements

Case #Button_0
; L'utilistateur à terminer la saisie des informations
titre$ = GetGadgetText(#String_0)
realisateur$ = GetGadgetText(#String_1)
acteur1$ = GetGadgetText(#String_2)
acteur2$ = GetGadgetText(#String_3)
acteur3$ = GetGadgetText(#String_4)
duree$ = GetGadgetText(#String_5)
origine$ = GetGadgetText(#String_6)
annee$ = GetGadgetText(#String_7)
producteur$ = GetGadgetText(#String_8)
; On a mémorisé toute les informations utiles
; on ferme la fenetre.

recapitulatif()
Case #Button_1
; L'utilisateur à changer d'idée, on ferme la fenètre
EventID = #PB_EventCloseWindow

EndSelect
EndIf
Until EventID = #PB_EventCloseWindow

EndIf
; On ferme la Fenètre pour la saisie des informations d'un film
CloseWindow(#page_film)

EndProcedure
ouverture_menu()

Procedure recapitulatif()


If OpenWindow(#page_film, 216, 0,430, 400, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "Récapitulatif des informations pour le nouveau film")



If CreateGadgetList(WindowID())

ButtonGadget(#sauvegarder,10,340,200,20,"sauvegarder")
ButtonGadget(#corriger,220,340,200,20,"corriger")

If LoadFont(0,"arial",25,#PB_Font_Underline )
SetGadgetFont(#pb_default,FontID())


TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)


SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf

Repeat
eventid = WaitWindowEvent()


If EventID = #PB_EventGadget
Select EventGadgetID()


Case #corriger
HideWindow(#page_film,1)
creation_de_film()
HideWindow(#page_film,0)
Case#sauvegarder
creation_fichier()
EndSelect
EndIf




Until EventID = #PB_EventCloseWindow

EndIf
EndIf

EndProcedure
Procedure creation_fichier()
If CreateFile(0,"catalogue.Txt")

Titre.s= GetGadgetItemText(#text_9,a,1)
realisateur.s=GetGadgetItemText(#text_11,a,2)
acteur1.s = GetGadgetItemText(#text_13,a,3)
acteur2.s=GetGadgetItemText(#text_14,a,4)
acteur3.s=GetGadgetItemText(#text_15,a,5)
duree.s=GetGadgetItemText(#text_17,a,6)
origine.s=GetGadgetItemText(#text_19,a,7)
annee.s=GetGadgetItemText(#text_21,a,8)
producteur.s=GetGadgetItemText(#text_23,a,9)

WriteStringN(Titre)
WriteStringN(realisateur)
WriteStringN(acteur1)
WriteStringN(acteur2)
WriteStringN(acteur3)

WriteStringN(duree)
WriteStringN(origine)
WriteStringN(annee)
WriteStringN(producteur)

Debug titre
Debug realisateur
Debug acteur1
Debug acteur2
Debug acteur3
Debug duree
Debug origine
Debug annee
Debug producteur

CloseFile(0)

EndIf









EndProcedure
End

Code : Tout sélectionner


desolé mais je ne voie pas ce qui ne va pas
Haut
Invité

Message par Invité »

je te le renvoies en faisant la bonne manip :oops:

désolé

Code : Tout sélectionner


;déclaration des constantes

Enumeration

#menu
#Text_0 
     #Text_1 
     #Text_2 
     #Text_3 
     #Text_4 
     #Text_5 
     #Text_6 
     #Text_7 
     #Text_8 
     #text_9
     #text_10
     #text_11
     #text_12
     #text_13
     #text_14
     #text_15
     #text_16
     #text_17
     #text_18
     #text_19
     #text_20
     #text_21
     #text_22
     #text_23
     #text_24
     #text_25
     #String_0 
     #String_1 
     #String_2 
     #String_3 
     #String_4 
     #String_5 
     #String_6 
     #String_7 
     #String_8 
     #Button_0 
     #Button_1 




EndEnumeration


Enumeration

#bouton_inserer
#page_film
#sauvegarder
#corriger
#gadget_editeur
EndEnumeration
Global titre$, acteur1$, realisateur$, acteur2$, acteur3$, duree$, origine$, annee$, producteur$ 
Declare creation_de_film()
Declare recapitulatif()
Declare creation_fichier()
Procedure ouverture_menu()


  If OpenWindow(#menu,0,0,200,200,#pb_window_systemmenu|#pb_window_windowcentered,"menu")
  
    If CreateGadgetList (WindowID())
    
      ButtonGadget(#bouton_inserer,10,10,180,20,"INSERER UN FILM")
     
      
    EndIf
  
  
  EndIf
  
      Repeat
      
  
      eventid = WaitWindowEvent()
      
      
       If EventID = #PB_EventGadget 
          Select EventGadgetID()
  
  Case #bouton_inserer
  HideWindow(#menu,1)
  creation_de_film()
  HideWindow(#menu,0)
   
  
  
  
  
     EndSelect 
     EndIf 
Until EventID = #PB_EventCloseWindow 

EndProcedure 

Procedure creation_de_film() 


      If OpenWindow(#page_film, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "information pour le film") 
          If CreateGadgetList(WindowID()) 
               TextGadget(#Text_0, 10, 10, 90, 20, "Titre du film :") 
               TextGadget(#Text_1, 10, 40, 90, 20, "Réalisateur :") 
               TextGadget(#Text_2, 10, 70, 90, 20, "Premier acteur :") 
               TextGadget(#Text_3, 10, 100, 90, 20, "Deuxième acteur :") 
               TextGadget(#Text_4, 10, 130, 90, 20, "Troisième acteur :") 
               TextGadget(#Text_5, 10, 160, 90, 20, "Durée :") 
               TextGadget(#Text_6, 10, 190, 90, 20, "Origine :") 
               TextGadget(#Text_7, 10, 220, 90, 20, "Année :") 
               TextGadget(#Text_8, 10, 250, 90, 20, "Producteur :") 
               StringGadget(#String_0, 100, 10, 210, 20, "") 
               StringGadget(#String_1, 100, 40, 210, 20, "") 
               StringGadget(#String_2, 100, 70, 210, 20, "") 
               StringGadget(#String_3, 100, 100, 210, 20, "") 
               StringGadget(#String_4, 100, 130, 210, 20, "") 
               StringGadget(#String_5, 100, 160, 210, 20, "") 
               StringGadget(#String_6, 100, 190, 210, 20, "") 
               StringGadget(#String_7, 100, 220, 210, 20, "") 
               StringGadget(#String_8, 100, 250, 210, 20, "") 
               ButtonGadget(#Button_0, 30, 290, 120, 30, "Terminer") 
               ButtonGadget(#Button_1, 190, 290, 120, 30, "Annuler") 
                
          EndIf 
          
          Repeat 
                
               EventID = WaitWindowEvent() 
                
               If EventID = #PB_EventGadget 
                    Select EventGadgetID() ; La gestion des évenements 
                              
                         Case #Button_0 
                              ; L'utilistateur à terminer la saisie des informations 
                              titre$ = GetGadgetText(#String_0) 
                              realisateur$ = GetGadgetText(#String_1) 
                             acteur1$ = GetGadgetText(#String_2) 
                              acteur2$ = GetGadgetText(#String_3) 
                              acteur3$ = GetGadgetText(#String_4) 
                              duree$ = GetGadgetText(#String_5) 
                              origine$ = GetGadgetText(#String_6) 
                              annee$ = GetGadgetText(#String_7) 
                              producteur$ = GetGadgetText(#String_8) 
                              ; On a mémorisé toute les informations utiles 
                              ; on ferme la fenetre. 
                              
                            recapitulatif()
                         Case #Button_1 
                              ; L'utilisateur à changer d'idée, on ferme la fenètre 
                              EventID = #PB_EventCloseWindow 
                              
                    EndSelect 
               EndIf 
          Until EventID = #PB_EventCloseWindow 
          
     EndIf 
     ; On ferme la Fenètre pour la saisie des informations d'un film 
     CloseWindow(#page_film) 

EndProcedure
ouverture_menu()

Procedure recapitulatif()


If OpenWindow(#page_film, 216, 0,430, 400, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "Récapitulatif des informations pour le nouveau film") 

 

If CreateGadgetList(WindowID())

 ButtonGadget(#sauvegarder,10,340,200,20,"sauvegarder")
  ButtonGadget(#corriger,220,340,200,20,"corriger")

 If LoadFont(0,"arial",25,#PB_Font_Underline   )
SetGadgetFont(#pb_default,FontID())


TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)


SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf

Repeat
eventid = WaitWindowEvent()
      
      
       If EventID = #PB_EventGadget 
          Select EventGadgetID()
  
  
  Case #corriger
  HideWindow(#page_film,1)
  creation_de_film()
  HideWindow(#page_film,0)
  Case#sauvegarder
 creation_fichier()
 EndSelect
EndIf




Until EventID = #PB_EventCloseWindow 
          
EndIf
EndIf

EndProcedure
Procedure creation_fichier()
If CreateFile(0,"catalogue.Txt") 
          
         Titre.s= GetGadgetItemText(#text_9,a,1) 
         realisateur.s=GetGadgetItemText(#text_11,a,2) 
         acteur1.s = GetGadgetItemText(#text_13,a,3) 
         acteur2.s=GetGadgetItemText(#text_14,a,4) 
         acteur3.s=GetGadgetItemText(#text_15,a,5) 
         duree.s=GetGadgetItemText(#text_17,a,6) 
         origine.s=GetGadgetItemText(#text_19,a,7) 
         annee.s=GetGadgetItemText(#text_21,a,8) 
         producteur.s=GetGadgetItemText(#text_23,a,9) 
          
         WriteStringN(Titre) 
         WriteStringN(realisateur) 
         WriteStringN(acteur1) 
         WriteStringN(acteur2) 
         WriteStringN(acteur3) 
          
         WriteStringN(duree) 
         WriteStringN(origine) 
         WriteStringN(annee) 
         WriteStringN(producteur) 
         
         Debug titre
         Debug realisateur
         Debug acteur1
         Debug acteur2
         Debug acteur3
         Debug duree
         Debug origine
         Debug annee
         Debug producteur
          
         CloseFile(0) 
        
      EndIf 
    

    
 





EndProcedure
End
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

mets plutôt ça dans la procedure create_fichier() , ça te dépannera .
pour l'organisation du prog , on verra plus tard ,là je vais bosser :)

Code : Tout sélectionner

      Titre.s= GetGadgetText(#text_9) 
      realisateur.s=GetGadgetText(#text_11) 
      acteur1.s = GetGadgetText(#text_13) 
      acteur2.s=GetGadgetText(#text_14) 
      acteur3.s=GetGadgetText(#text_15) 
      duree.s=GetGadgetText(#text_17) 
      origine.s=GetGadgetText(#text_19) 
      annee.s=GetGadgetText(#text_21) 
      producteur.s=GetGadgetText(#text_23)
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

Mais ????, tu mets des post partout ... j'ai répondu ailleurs sur un sujet Help!!!!!!!!!!!!!!!!!!!
et c'est tout bon :wink: ça marche quoi
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Répondre

Revenir à « Débutants »