PureBoard

Code: Alles auswählen

MessageRequester("Fehler","nicht ausgeführt")

Code: Alles auswählen

Procedure Menu_Click_Speichern()
  Protected.i a, TotalItems, Pattern = 0, Cent
  Protected.s Test, str_dateipfad, str_Pattern = "*.csv|*.csv", Summe 
  Protected str_File.s = SaveFileRequester("Bitte Datei zum Speichern auswählen", "", str_Pattern, Pattern)
  Protected StatusBarFieldText$ = Space(255)  ;variable anlegen für die aufnahme des statusbar wertes
  
  str_File.s = RemoveString(str_File,".csv")
 
  If str_File
    str_Dateipfad = str_File
    TotalItems    = CountGadgetItems(#Gadget_frm_Haupt_ListIcon)
        
    If CreateFile(1, str_Dateipfad  + ".csv") <> 0
      
      For a = 0 To TotalItems - 1
        WriteStringN(1, GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 1) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 2) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 3) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 4) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 5) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 6) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 7) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 8) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 9) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 10) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 11) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 12) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 13) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 14))
      Next 
      CloseFile(1)
    Else
      MessageRequester("Fehler","nicht ausgeführt")
    EndIf  
  EndIf
EndProcedure

Code: Alles auswählen

If CreateFile(1, "C:\Test.csv")
    
  Debug "OK"
  
  WriteStringN(1, "1;2;3;4")
  
  CloseFile(1)
  
EndIf

End