Выполнение линейного поиска по двум полям из разных текстовых файлов

Question

С текущим кодированием я понял, что обязательно иметь отдельные текстовые файлы вместо одного текстового файла для моей курсовой работы по информатике.Поиск и чтение полей из одного текстового файла достаточно прост для меня, но я пытаюсь найти два отдельных текстовых файла и отобразить их в текстовых полях.Массив обоих файлов также увеличивается в размерах при вводе данных клиента.Текстовые файлы имеют несколько полей.Операторы IF делают одно и то же, но делают это с помощью разных функций поиска. Можно ли как-нибудь сделать это с помощью одного и того же поиска относительно его поступления из двух разных файлов?

Часть содержимого текстового файла:

1 текстовый файл: 1 7 LL11 3BY C Brymbo

DwellingID - Номер дома - почтовый индекс - налоговый диапазон - Ward

другой текстовый файл:

2 Джеймс Кинг 06/06/1999 YJames07@gmail.com uOI4gSqohd

customerID - F.name - L.name - DOB - Контактная информация - Пароль

Это для события click, связанного с классом линейного поиска:

Private Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click

    If cbsearch.Text = "View customer details" Then
        customerrecord = linsearchCustomerId(customerobject, txtsearchdetails.Text)
        If customerrecord.firstname = "" Then 'Validation, if nothing has been entered a messagebox will appear notifying the user
            MsgBox("No customers found")
        Else
            lblCustID.Text = customerrecord.CustomerID 'put the field within the label or textbox designated
            txtfirstname.Text = customerrecord.firstname
            txtlastname.Text = customerrecord.lastname
            txtvote.Text = customerrecord.Eligibletovote
            txtcontactinfo.Text = customerrecord.contactinfo
            txtdob.Text = customerrecord.DOB
            lblpassword.Text = customerrecord.password
        End If
    End If
    If cbsearch.Text = "View customer details + dwelling" Then
        dwellrecord = dwellingdetailsearch(dwellingObject, txtsearchdetails.Text) 
        If dwellrecord.dwellingID = "" Then
            MsgBox("Dwelling details not found")
        Else
            lbldwellingid.Text = dwellrecord.dwellingID
            txthousenum.Text = dwellrecord.housenum
            txtaddress.Text = dwellrecord.address
            ComboBox1.Text = dwellrecord.taxband
            Cbward.Text = dwellrecord.wardname
        End If
    End If

End Sub

Вот код чтения текстовых файлов:

Function getalllines() As String()
        Dim filedata() As String = IO.File.ReadAllLines(Dir$(_CLfilename))
        Return filedata
End Function