Seite 1 von 1
Gadget Name aus Spalte lesen
Verfasst: 13.12.2005 09:45
von Martin66119
Habe mal wieder eine Anfängerfrage!!!
Mit "AddGadgetColumn(.......) kann ich einer Spalten einen Namen zuweisen. Mit welchem Befehl kann ich denn den Namen der Spalte auslesen?
Danke schonmal
Martin
Verfasst: 13.12.2005 10:03
von ts-soft
Warum den Namen auslesen, den kennste doch, haste doch selber beim erstellen angegeben. Oder suchst Du den Spaltenindex? Den brauchste nacher für SetGadgetItemText() und GetGadgetItemText() usw.
Gadget
Verfasst: 13.12.2005 10:18
von Martin66119
Klar kenne ich den Namen. Ich möchte aber mit einer Schleife alle Namen lesen und diese Dann in eine Txt-Datei schreiben (mit ";" getrennt).
Verfasst: 13.12.2005 10:58
von ts-soft
Die Name kennste, brauchste doch nicht ermitteln, sollte sowieso nur per API gehen, Du brauchst doch nur die Einträge. Hab Dir mal ein simples Beispiel gemacht:
Code: Alles auswählen
If OpenWindow(0,0,0,200,200,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Test") = #False : End : EndIf
If CreateGadgetList(WindowID(0)) = #False : End : EndIf
ListIconGadget(0,0,0,200,200,"", 195)
AddGadgetColumn(0, 0, "Spalte 0", 100)
AddGadgetColumn(0, 1, "Spalte 1", 95)
AddGadgetItem(0, 0, "")
SetGadgetItemText(0, 0, "Erster", 0)
SetGadgetItemText(0, 0, "Zweiter", 1)
; ...
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
File = CreateFile(#PB_Any, "Test.csv")
If File = #False : End : EndIf
WriteStringN("Spalte 0;Spalte 1")
For I = 0 To CountGadgetItems(0) -1
WriteStringN(GetGadgetItemText(0, I, 0) + ";" + GetGadgetItemText(0, I, 1))
Next
CloseFile(File)