Gadget Name aus Spalte lesen

[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

[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.

[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).

[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)