German Fehlende Idee bzgl. Spinner/Liste

KL7000F

Member
Licensed User
Longtime User
Hallo,
ich stehe derzeit auf dem Schlauch und hoffe ihr könnt mir kurz auf die Sprünge helfen.

Ich habe mehrere Listen (derzeit einfache TXT-Dateien) nach folgendem Format:
Kürzel=Bezeichnung
Insgesamt sind es 412 Einträge in 16 Listen.

Ich würde am Ende gerne zwei Spinner haben. Im erste Spinner soll man die Liste auswählen, im 2. Spinner soll man die jeweiligen Einträge aus der Liste angezeigt bekommen. Für den Nutzer soll aber nur der Teil hinter dem = erscheinen, sprich die Bezeichnung. Zum Arbeiten im Hintergrund brauche ich dann die Kürzel vor dem =. Diese haben immer 3 Buchstaben.

Wie gehe ich hier am besten vor? Ich möchte vermeiden dass ich alle Einträge "per Hand" irgendwo im Code einfüge bzw. jetzt wie wild Daten bearbeite und es am Ende nicht so klappt... ;) Vor allem würde ich gerne irgendwie den Bezug zwischen Kürzel und der Bezeichnung behalten können (ähnlich wie bei HTML mit Value).

SQL? XML?

Wäre über Tipps dankbar!

Gruß und Danke
Andy
 

DonManfred

Expert
Licensed User
Longtime User
Lad doch einfach die 412 einträge aus den 16 Listen irgendwo hin mit nem csv-reader. 412 einträge hört sich nicht nach besonders viel zu laden/auszuwerten an....

Was haste denn an code? Wo hakt es?

Edit: gaaanz schnell mal was hier im forum gesucht...
Als grober Ansatz sollte Dir das eine Hilfe sein....

B4X:
Dim su As StringUtils
Dim List1 As List
List1.Initialize
List1 = su.LoadCSV(File.DirAssets, "Cust.csv", "=")
For i = 0 To List1.Size - 1
Dim cells() As String
cells = List1.get(i)
ListView2.AddTwoLines(cells(0),cells(1))
Next
 
Last edited:

DonManfred

Expert
Licensed User
Longtime User
oder vielleicht mit ner Map
B4X:
    Dim su As StringUtils
    Dim List1 As List
    List1.Initialize
    List1 = su.LoadCSV(File.DirAssets, "Cust.csv", "=")
    For i = 0 To List1.Size - 1
        Dim cells() As String
        cells = List1.get(i)
        Dim retmap As Map
        retmap.Initialize
        retmap.Put(cells(0),cells(1))
        lv.AddTwoLines2(cells(0),cells(1), retmap)
    Next
 

KL7000F

Member
Licensed User
Longtime User
Der Gedanke mit CSV war klasse! So läuft zumindest der erste Teil. Vielen Dank!
 
Top