[VB.NET] Dúvida com arquivo de texto

[Senfador]

Eu tenho um arquivo de texto com várias informações.

Exemplo apenas demonstrativo:

Registro

Nome: Joao Rei

Endereço: Rua dos Afogado

Telefone: 666-666

Eu queria fazer o seguinte, fazer com que o programa retirasse apenas o que está á frente do campo Nome:, ou seja, Joao Rei e colocasse o valor dentro de uma TextBox ou Label.

Como o arquivo possui vários nomes eu queria que ele retirasse todos nomes. Como faço isso?

Alguém pode me ajudar?

Editado Julho 18, 2010 por Senfador

[Onidsouza]

Eu posso lhe dizer um jeito fácil de se resolver isso.

Considerarei o exemplo usando a linguagem C#, porém para a tradução do código para VB.NET por exemplo não deve haver problemas.

Não se esqueça de incluir System.IO no seu código!

using System.IO;
using System.Collections.Generic;

Agora vamos ao bloco que lê as informações:

public List<string> GetCampoNomes()
{
   StreamReader sr = new StreamReader("caminho até o arquivo"); //Aqui criamos um Stream reader que lerá as informações contidas no arquivo
   List<string> Nomes = new List<string>();
   string input = "";
   while ((input = sr.ReadLine()) != null) {
      if (input.StartsWith("Nome:")) {
         Nomes.Add(input.Substring(5, input.leght - 1));
      }
   }
   return Nomes;
}

O código acima em C# faz uma função que retorna uma Lista com os todos os valores para o campo Nome. NOTA: Ultilizei um coversor para transformar o código da função de C# para VB.NET. Não verifiquei se está funcionando, mas vale a pena tentar:

Public Function GetCampoNomes() As List(Of String)
    Dim sr As New StreamReader("caminho até o arquivo")
    'Aqui criamos um Stream reader que lerá as informações contidas no arquivo
    Dim Nomes As List(Of String)
    Dim input As String = ""
    While (InlineAssignHelper(input, sr.ReadLine())) IsNot Nothing
        If input.StartsWith("Nome:") Then
            Nomes.Add(input.Substring(5, input.leght - 1))
        End If
    End While
    Return Nomes
End Function

Editado, tinha entendido errado o seu post ^^'

Editado Julho 18, 2010 por Onidsouza

[Senfador]

Infelizmente o script não funcionou.

Cara ta afim de ganhar uma grana e fazer um app pra mim? xD

Me add aew bernardo--lima@hotmail.com

Editado Julho 18, 2010 por Senfador

[quintelab]

Quer ajuda pra fazer ou alguém pra fazer?

Abraços...