habe ein Problem mit dem speichern von Daten die in 2 verschiedenen ListViewGadgets sind.
Das heist:
Ich gebe etwas in das 1.ListViewGadget ein und etwas in das 2.ListViewGadget.
Ich speichere es unter einer Text Datei ab.
Leere die Gadgets wieder.
Dann öffne ich die Text Datei die ich zuvor abgespeichert habe.
Leider schreibt er mir den Text aus dem 2.ListViewGadget in beide ListViewGadget rein.
Jetzt weiß ich nicht wo mein Fehler liegt. ist er beim Speichern oder beim Öffnen???
Wäre nett wenn mir da mal jemand auf die Sprünge helfen könnte.
Danke
Code: Alles auswählen
If OpenWindow (0,0,0,340,300,"TEST",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) And CreateToolBar(0, WindowID(0))
ToolBarStandardButton(10, #PB_ToolBarIcon_New)
ToolBarStandardButton(11, #PB_ToolBarIcon_Open)
ToolBarStandardButton(12, #PB_ToolBarIcon_Save)
ListViewGadget(1,10,30,150,150)
ListViewGadget(2,180,30,150,150)
StringGadget(3,10,200,150,22,"")
StringGadget(4,180,200,150,22,"")
ButtonGadget(5,20,240,130,22,"Hinzufügen")
ButtonGadget(6,190,240,130,22,"Hinzufügen")
EndIf
Repeat
EventID = WaitWindowEvent()
;-Quit
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
;ToolBar
If EventID = #PB_Event_Menu
;-Neu
If EventMenu()=10
SetGadgetText(3,"")
SetGadgetText(4,"")
ClearGadgetItemList(1)
ClearGadgetItemList(2)
EndIf
;-Öffnen
If EventMenu()=11
StandardFile$ = "C:\test.txt"
Pattern$ = "Text (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
Pattern = 1
File$ = OpenFileRequester("Öffnen...", StandardFile$, Pattern$, Pattern)
If ReadFile(0,File$)
While Eof(0) = 0
Text$ = ReadString(0)
AddGadgetItem(1,-1,Text$)
Wend
Else
MessageRequester("Information","Öffnen nicht möglich!",0)
EndIf
CloseFile(0)
If ReadFile(1,File$)
While Eof(1) = 0
Text$ = ReadString(1)
AddGadgetItem(2,-1,Text$)
Wend
Else
MessageRequester("Information","Öffnen nicht möglich!",0)
EndIf
CloseFile(1)
EndIf
;- Speichern
If EventMenu()=12
StandardFile$ = "C:\Geldschein.txt"
Pattern$ = "Text (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
Pattern = 0
File$ = SaveFileRequester("Speichern unter...", StandardFile$, Pattern$, Pattern)
If CreateFile (0,File$)
For Z = 0 To CountGadgetItems(1) - 1
WriteStringN(0,GetGadgetItemText(1,Z,0))
Next
For Z = 0 To CountGadgetItems(2) - 1
WriteStringN(0,GetGadgetItemText(2,Z,0))
Next
Else
MessageRequester("Information","Speichern nicht möglich!",0)
EndIf
CloseFile(0)
If CreateFile (1,File$)
For Z = 0 To CountGadgetItems(2) - 1
WriteStringN(1,GetGadgetItemText(2,Z,0))
Next
Else
MessageRequester("Information","Speichern nicht möglich!",0)
EndIf
CloseFile(1)
EndIf
EndIf
If EventID = #PB_Event_Gadget
;-1.Hinzufügen
If EventGadget() = 5
a$=GetGadgetText(3)
If a$ = ""
MessageRequester("Fehler","Ich vermisse die Eingabe",0)
Else
AddGadgetItem(1,-1,""+a$)
SetGadgetText(3,"")
SetActiveGadget(3)
EndIf
EndIf
;-2.Hinzufügen
If EventGadget() = 6
a$=GetGadgetText(4)
If a$ = ""
MessageRequester("Fehler","Ich vermisse die Eingabe",0)
Else
AddGadgetItem(2,-1,""+a$)
SetGadgetText(4,"")
SetActiveGadget(4)
EndIf
EndIf
EndIf
Until Quit = 1
