Ler Arquivo de Texto - vb 2008

[Mauro Ramires]

Bom dia,

Estou com uma aplicação no vb 2008 que faz a leitura do código de um produto dentro de um arquivo txt e traz a descrição no textbox, porém...quando eu faço com poucos códigos, tudo ocorre 100%, mas quando tem muitos produtos, ele demora na pesquisa.

Minha dúvida é : Existe uma possibilidade de gravar essa leitura em uma memória temporária, para que, quando eu buscar novamente, ele não pesquise no arquivo e sim nessa memória temporária ??

Segue o Código :

Private Structure CodigoDescricao

Public Codigo As String

Public Descricao As String

End Structure

Private Function LoadDataBase() As List(Of CodigoDescricao)

Dim _dbList As New List(Of CodigoDescricao)

Dim _FileReader As StreamReader

Dim _lineReaded() As String

Try

_FileReader = New StreamReader(New FileStream("\windows\desktop\produtos.txt", FileMode.Open))

Do While Not _FileReader.EndOfStream

_lineReaded = _FileReader.ReadLine().Split("|")

Dim _codigoDescricao As New CodigoDescricao()

_codigoDescricao.Codigo = _lineReaded(0)

_codigoDescricao.Descricao = _lineReaded(1)

_dbList.Add(_codigoDescricao)

Loop

_FileReader.Close()

Return _dbList

Catch ex As Exception

MessageBox.Show(String.Format("Código Não Cadastrado: {0}", ex.Message))

Return _dbList

End Try

End Function

Aqui eu executo a Função :

Private Sub executa()

Dim _dataBase As List(Of CodigoDescricao) = LoadDataBase()

Dim _itemToFind = (From c In _dataBase Where (c.Codigo = txtbarra.Text) Select c).First

txtdescatual.Text = _itemToFind.Descricao

End Sub