1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ler Ficheiro TXT em VB.net

Discussão em 'Programação' iniciada por AMRF, 31 de Outubro de 2018. (Respostas: 2; Visualizações: 198)

  1. Boa tarde!

    Tenho um pequeno programa que cria um ficheiro txt com os resultados que o código calcula. Esse ficheiro txt tem duas colunas. Por exemplo (0 14.41). Posteriormente, preciso que o código de um novo form leia esse ficheiro mas apenas quero que leia os valores que estão na segunda coluna, ou seja, 14.41. Alguém me pode dar uma dica de como fazer? Até ao momento sempre que corro o código dá me erros, sendo que, eu penso que os erros tem a ver com o facto de eu estar a ler a linha toda e não apenas o valor que quero efetivamente.
    Deixo abaixo os códigos que tenho escritos neste momento:

    Código para escrever o ficheiro txt:

    Dim caminho As String = "f:\FL.txt"
    Dim mywriter As IO.StreamWriter
    Dim arquivo As FileStream = File.Create(caminho)
    mywriter = New IO.StreamWriter(arquivo)
    Dim minutos As Double
    minutos = 0
    For Each valor In array_valores_calculados
    mywriter.WriteLine(minutos & vbTab & valor)
    minutos += 1
    Next
    mywriter.Close()

    Código para ler o ficheiro:
    If Check_Box.Checked = True Then
    myreader_1 = New IO.StreamReader(arquivo_analise_1)
    For ia = 0 To 1000 Step 1
    For Each valor_1 As String In arquivo_analise_1
    valor_1 = myreader_1.ReadLine()
    myarray_1(ia) = valor_1
    ia += 1

    Next
    Next
    myreader_1.Close()
    Else
    For ia = 0 To 1000 Step 1
    myarray_1(ia) = 0
    Next
    End If
     
  2. Eu estou mais habituado a C#, mas penso que se, após a inicialização do streamreader fizeres:
    While((registo=myreader.read())!=null)
    {
    string[] rec=registo.split("\t"); no teu caso vbtab
    Ir(rec.length>1)
    {
    Listaqualquer.Add(rec[1]);
    }
    }
    Eu não tenho forma de testar se funciona.
    Está em C# mas a conversão não s muito complicada.
     
  3. zep

    zep Power Member

    Nota que podes transformar cada paragrafo numa string, em que os separa é o espaço " ".
    Divides a string em dois pelo espaço " ".
    string[0] pertence à coluna 1
    string[1] pertence à coluna 2

    Habitualmente é isto que eu faço.
    Uso sempre, no ficheiro *.txt, um elemento separador, por exemplo "-".
    Crio uma listbox para copiar os dados do ficheiro *.txt para o programa.
    Ao ler a ListBox, cada linha (string) será divida pelo elemento separador.
    Dim new_string As String() = ListBox1.Items(j).ToString.Split(New [Char]() {"-"c})

    (New [Char]() {" "c}) para separador espaço " ".
     
    Última edição: 5 de Novembro de 2018

Partilhar esta Página