German AutoCompleteEditText füllen, Probleme

mw71

Active Member
Licensed User
Longtime User
Hallo zusammen,

ich bin gerade dabei mich in b4a einzuarbeiten. Mein kleines Projekt dazu umfasst u.a. 2 AutoCompleteEditText Boxen. Zu beginn habe ein Array erstellt, dieses mit im Code hinterlegten Werten gefüllt und dann an die Box übergeben. Funktionierte so problemlos. Jetzt wollte ich das etwas eleganter
(Servicefreundlicher) gestalten und die Daten aus einer CSV Datei übernehmen. Das klapp bis jetzt noch nicht.

B4X:
Sub Activity_Create(FirstTime As Boolean)
 
    Dim list_Berge() As String
    Dim str_array As  String
    Dim List1 As List


    List1 = File.readlist(File.DirAssets,"BergListe.txt")  
'Datei ist vorhanden!, hab nur die Abfrage & Behandlung noch nicht fertig
'Auslesen funktioniert so weit ich im Debugger sehen konnte auch
'in der Datei ist Pro Zeile 1 Wert drin

   
'hier soll nun aus der Liste ein Array werden (irgendwie unterscheiden die sich ja, obwohl es so ziemlich das gleiche ist...
    For i = 0 To List1.Size-1
        str_array = List1.Get(i)    
        list_Berge(i)=str_array
    Next

'so hatte es funktioniert
    'list_Berge=Array As String ("","Babisnauer Pappel", _
    '                            "Adlerstein")

'Zuweisung...
    lbl_vomBerg.SetItems(list_Berge)

'.....

Ich hoffe mal das ihr mir weiterhelfen könnt.

Grüße & Danke
 

MaFu

Well-Known Member
Licensed User
Longtime User
Probiers mal so:
B4X:
Sub Activity_Create(FirstTime As Boolean)
    Dim List1 As List = File.readlist(File.DirAssets,"BergListe.txt") 
'Datei ist vorhanden!, hab nur die Abfrage & Behandlung noch nicht fertig
'Auslesen funktioniert so weit ich im Debugger sehen konnte auch
'in der Datei ist Pro Zeile 1 Wert drin
  
'hier soll nun aus der Liste ein Array werden (irgendwie unterscheiden die sich ja, obwohl es so ziemlich das gleiche ist...
    Dim list_Berge(List1.Size) As String
    For i = 0 To List1.Size-1
        list_Berge(i)=List1.Get(i)
    Next

'so hatte es funktioniert
    'list_Berge=Array As String ("","Babisnauer Pappel", _
    '                            "Adlerstein")

'Zuweisung...
    lbl_vomBerg.SetItems(list_Berge)

'.....
 

mw71

Active Member
Licensed User
Longtime User
Funktioniert, Danke!,
Er hatte sich (wahrscheinlich) daran gestört das das Array noch nicht dimensioniert war

Grüße
 
Top