Android Question Improvement for SearchView!

Read 40795 addresses in 235 ms
Found 3 matching addresses in 20 ms
14 MACKENZIE STREET, COCKATOO 3781
14 TRIBUZI CLOSE, PAKENHAM 3810
14 ZIG ZAG ROAD, BELGRAVE HEIGHTS 3160

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    'Private MainForm As Form
 
    Dim Addresses() As String
    Dim NumAddresses As Int = 0
 
End Sub

Sub ReadAddressFile(D As String, F As String)
 
    Dim TempAddresses As List
    TempAddresses.Initialize
 
    Dim AddressString As String
 
    Dim TR As TextReader
    TR.Initialize(File.OpenInput("c:\b4j", "addresses.txt"))
    Do While True
        AddressString = TR.ReadLine
        If AddressString = Null Then
            Exit
        End If
 
        If AddressString.Contains(",") Then
            TempAddresses.Add(AddressString.Trim.ToUpperCase)
        else if AddressString.Trim.Length <> 0 Then
            Log("Missing comma for address: " & AddressString)
        End If
    Loop
    TR.Close

    'copy to globals, ready for searching

    NumAddresses = TempAddresses.Size

    Dim Addresses(NumAddresses) As String
    For I = 0 To NumAddresses - 1
        Addresses(I) = TempAddresses.Get(I)
    Next
 
End Sub

'return list of addresses that contain all search keystrings
'to maximum of Limit addresses
Sub FindAddress(K As List, Limit As Int) As List
 
    Dim NumKeys As Int = K.Size
    Dim KeyString(NumKeys) As String
 
    For I = 0 To NumKeys - 1
        KeyString(I) = K.Get(I)
        KeyString(I) = KeyString(I).ToUpperCase    'note: not trimmed
    Next

    Dim FoundAddresses As List
    FoundAddresses.Initialize

    Dim FoundFlag As Boolean
 
    For AI = 0 To NumAddresses -1
        FoundFlag = True
        For KI = 0 To NumKeys -1
            If Addresses(AI).Contains(KeyString(KI)) = False Then
                FoundFlag = False
                Exit
            End If
        Next
 
        If FoundFlag Then
            FoundAddresses.Add(Addresses(AI))
            If FoundAddresses.Size >= Limit Then
                Exit
            End If
        End If
    Next
 
    Return FoundAddresses
 
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    'MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    'MainForm.Show
 
    Dim StartTime As Long = DateTime.Now
    ReadAddressFile("c:\b4j", "addresses.txt")
    Dim EndTime As Long = DateTime.Now
    Log("Read " & NumAddresses & " addresses in " & (EndTime - StartTime) & " ms")
 
    Dim K As List
    K.Initialize
 
    K.Add("ZI")
    K.Add("14")
 
    Dim FoundList As List
 
    Dim StartTime As Long = DateTime.now
    FoundList = FindAddress(K, 1000)
    Dim EndTime As Long = DateTime.Now
    Log("Found " & FoundList.Size & " matching addresses in " & (EndTime - StartTime) & " ms")
 
    For Each S As String In FoundList
        Log(S)
    Next
 
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub