Aktuelle Zeit: 19.08.2019 22:35

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Text aus Gombobox auslesen und speichern
BeitragVerfasst: 16.07.2019 16:53 
Offline

Registriert: 02.09.2008 13:02
Hallo Leute,

ich hab da mal wieder ein Problem und komme nicht auf die Lösung.

Ich habe eine Adressverwaltung
hier habe ich für die Anrede ein
ComboBoxGadget = #com_AdresseAnrede
das Gadget hat den Flag #PB_ComboBox_Editable also beschreibbar

ich lese aus einer Anrede.txt Datei die Anreden aus und füge diese in das ComboBoxGadget.

bis hier her alles gut.

So jetzt kommts.
Wenn ich nun eine neue Anrede eingebe die noch nicht in der ComboBox bzw. in der Anrede.txt enthalten ist
möchte ich diese in die Combobox aufnehmen und in der Anrede.txt schreiben, damit ich beim nächsten mal
diese Anrede auch in der Box wieder habe.

Jede Anrede soll nur einmal vorhanden sein.

ich bekomme es einfach nicht hin.

Meine Schritte:
ich habe eine neue Liste Global NewList AdresseAnrede.s()
beim speichern der Adresse lese ich die Combobox-Einträge und füge diese in meine Liste
weiter kommt in die Liste immer noch die Anrede über getgadgettext(#com_AdresseAnrede)

dann vergleiche ich die Liste mit den Combobox-Einträge
Code:

  z=0
  ForEach AdresseAnrede.s()
    If AdresseAnrede.s()=GetGadgetText(#com_AdresseAnrede)
      z+1
    EndIf 
  Next
  ForEach AdresseAnrede.s()
    If AdresseAnrede.s()=GetGadgetText(#com_AdresseAnrede)
    If z>1
      DeleteElement(AdresseAnrede.s(),1)
     z-1
    EndIf
    EndIf
  Next
  ClearGadgetItems(#com_AdresseAnrede)
    SortList(AdresseAnrede.s(),#PB_Sort_Ascending)
    ForEach AdresseAnrede.s()
      AddGadgetItem(#com_AdresseAnrede,-1,AdresseAnrede.s())
    Next 
    DeleteFile(DateiAdresseAnrede.s)
    If CreateFile(0,DateiAdresseAnrede.s)
      ForEach AdresseAnrede.s()
        WriteStringN(0,AdresseAnrede.s())
      Next
      CloseFile(0)
    EndIf 
    SetGadgetText(#com_AdresseAnrede,AndresseAnrede.s)
    Debug AndresseAnrede.s



sind die Einträge doppelt dann lösche diese bis auf eins.
Danach sortiere mir die Liste nach ABC.

Das ganze sieht mir zu aufwändig aus, hat da jemand etwas besseres.

Gruß
gnaps

_________________
PureBasic Vollversion V 5.61 für Windows - Windows 10 (64)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Text aus Gombobox auslesen und speichern
BeitragVerfasst: 16.07.2019 16:57 
Offline
Admin
Benutzeravatar

Registriert: 05.10.2006 18:55
Wohnort: Deutschland::Berlin()
Warum benutzt du keine Map? Dann musst du nicht jedes Mal selber prüfen, ob der Eintrag doppelt ist. Vorallem wenn die Liste sehr lang ist, ist das Durchlaufen und Prüfen langsamer, als wenn du eine Map direkt benutzt.

_________________
BildBildBildBild(Update: 17.08.2019 (+196 Dateien, +1392 MB)) BildBild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Text aus Gombobox auslesen und speichern
BeitragVerfasst: 16.07.2019 19:25 
Offline
Benutzeravatar

Registriert: 01.04.2007 20:18
RSBasic hat geschrieben:
Warum benutzt du keine Map? Dann musst du nicht jedes Mal selber prüfen, ob der Eintrag doppelt ist. Vorallem wenn die Liste sehr lang ist, ist das Durchlaufen und Prüfen langsamer, als wenn du eine Map direkt benutzt.


Vermutlich nutzt er keine Map(), weil damit keine Sortierung möglich ist...

_________________
PureBasic 5.70 LTS (Windows x86/x64) | Windows10 Pro x64 | Z370 Extreme4 | i7 8770k | 32GB RAM | iChill GeForce GTX 980 X4 Ultra | HAF XF Evo​​


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 3 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye