German eine große Datenbank durchsuchen

Sub Globals
   
   
    Dim ACT_Kurz, ACT_Lang As AutoCompleteEditText
    Dim ListLangname As List
    Dim ListKurzname As List
       
    Dim List1 As List


End Sub




Sub Activity_Create(FirstTime As Boolean)
   
    ListLangname.Initialize
    ListKurzname.Initialize
   
       

ReadCSV



    ACT_Kurz.Initialize("ACT")
    ACT_Lang.Initialize("ACT")
    Activity.AddView(ACT_Kurz, 50dip, 10dip, 200dip, 70dip)
    Activity.AddView(ACT_Lang, 50dip, 80dip, 200dip, 70dip)
   
    ACT_Kurz.SetItems2(ListKurzname, ACT_Kurz.Typeface, Gravity.FILL, 12, Colors.Blue)
    ACT_Lang.SetItems2(ListLangname, ACT_Kurz.Typeface, Gravity.NO_GRAVITY, 12, Colors.DarkGray)


   
End Sub

Sub ReadCSV
    If File.Exists(File.DirAssets, "stations.csv") Then
        Dim i As Int
        Dim tr As TextReader

        tr.Initialize2(File.OpenInput(File.DirAssets, "stations.csv"), "ISO-8859-1")

        List1 = tr.ReadList
        For i = 1 To List1.Size - 1
            Dim VString() As String
            VString = Regex.Split(";", List1.Get(i))
           
            ListKurzname.Add(VString(0))
            ListLangname.Add(VString(1))

        Next
    Else
        Msgbox("Datei fehlt ","Datei")
    End If

End Sub

Sub ACT_TextChanged (Old As String, New As String)

    If Old = New Then Return
       
    If ListKurzname.IndexOf(ACT_Kurz.text) > -1 Then
   
        Activity.Title = ListLangname.Get(ListKurzname.IndexOf(ACT_Kurz.text)) & "  " & ACT_Kurz.text
   
    End If
   
    If ListLangname.IndexOf(ACT_Lang.text) > -1 Then
   
        Activity.Title =ListKurzname.Get(ListLangname.IndexOf(ACT_Lang.text)) & "  " & ACT_Lang.text
       
    End If
   

End Sub