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