enregistrer un listviewgadget

[venom]

bonjour,

voila j'ai chercher sur le forum et de moi meme, mais je n'est pas trouver comment enregistrer le resultat d'un listviewgadget en fichier texte.

voici un petit exemple

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
  #Listview_0
EndEnumeration

  If OpenWindow(#Window_0, 220, -1, 600, 300, "essaie",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 20, 10, 100, 30, "enregistrer sous...")
      ListViewGadget(#Listview_0, 20, 50, 560, 230)
     For a=1 To 10
      AddGadgetItem (#Listview_0,-1,Str(a)+" enregistrer sous")   ; défini le contenu de la boîte de liste
     Next

    EndIf
  EndIf

Repeat
 EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
   Select EventGadget()
   
    Case #Button_0
     

   EndSelect
  EndIf
 Until EventID = #PB_Event_CloseWindow

merci. si vous avez au moin un tuto ou lien sa serait cool.


@++

[Kwai chang caine]

Bonjour venom

Je n'ai pas vraiment compris le sens de ta question?
Que veux tu enregistrer exactement dans le fichier texte ?

Qu'appelle tu "résultat"
La selection dans la listview ????
La listview complete ???

[Jacobus]

Code : Tout sélectionner

;- Window Constants 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
Enumeration 
  #Button_0 
  #Listview_0 
EndEnumeration 

  If OpenWindow(#Window_0, 220, -1, 600, 300, "essaie",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered ) 
    If CreateGadgetList(WindowID(#Window_0)) 
      ButtonGadget(#Button_0, 20, 10, 100, 30, "enregistrer sous...") 
      ListViewGadget(#Listview_0, 20, 50, 560, 230) 
     For a=1 To 10 
      AddGadgetItem (#Listview_0,-1,Str(a)+" enregistrer sous")   ; défini le contenu de la boîte de liste 
     Next 

    EndIf 
  EndIf 

Repeat 
 EventID = WaitWindowEvent() 
  If EventID = #PB_Event_Gadget 
   Select EventGadget() 
    
    Case #Button_0 
      Fichier.s = SaveFileRequester("Enregistrer sous...","c:\Listview","*.txt",0)  
        If Fichier = ""     
        Else  
          If GetExtensionPart(Fichier) = ""  
            Fichier = Fichier + ".txt"
          EndIf    
          Enregistrer = #True 
        EndIf     
        If Enregistrer 
          If CreateFile(0,Fichier.s)
            NbItems = CountGadgetItems(#Listview_0)
            For n = 0 To NbItems - 1
              Item.s = GetGadgetItemText(#Listview_0,n,0)      
              WriteStringN(0,Item)
            Next
            CloseFile(0)
            MessageRequester("Enregistrement","La liste a été sauvegardée dans : "+Fichier,#MB_ICONINFORMATION)
          EndIf 
        EndIf 

      

   EndSelect 
  EndIf 
 Until EventID = #PB_Event_CloseWindow

[venom]

Bonjour venom

Je n'ai pas vraiment compris le sens de ta question?
Que veux tu enregistrer exactement dans le fichier texte ?

Qu'appelle tu "résultat"
La selection dans la listview ????
La listview complete ???

oui je me suis surement mal expliquer bin comme Jacobus vien juste de codé je souhaité sauvegarder tout le contenu. merci a toi Jacobus c'est super cool
façon tout les personnes de ce forum le sont aussi



@++

[Kwai chang caine]

De rien, j'ai meme pas eu le temps de le faire, pour une fois que cela aurait été de mon niveau.

@Jacobus
C'est plus jacobus qu'on va t'appeler, mais FlashCobus

Bonne soirée à tous