ReadLines em ficheiro TXT

[a3deluxe]

Boas,

Precisava de uma ajudinha,

Queria ler a primeira linha do ficheiro TXT e depois a 3 palavra (725540N) e a 5 palavra (470055N)

No codigo seguinte já esta a ler a linha 1, só falta ler as palavras.

Ficheiro TXT:

0N 728340N [b]725540N[/b] 470823N [b]470055N[/b] 2465291N 2218062N 2461770N 2216563N
735472547  2216563N2216563N
OFF 87340578t8hr  2216563N

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim FILE_NAME As String = "c:\teste.txt"

       Dim TextLine As String

       If System.IO.File.Exists(FILE_NAME) = True Then

           Dim objReader As New System.IO.StreamReader(FILE_NAME)

           Do While objReader.Peek() <> -1

               TextLine = TextLine & objReader.ReadLine() & vbNewLine

           Loop

           TextBox1.Text = TextLine
           TextBox2.Text = TextLine

       Else

           MsgBox("File Does Not Exist")

       End If
   End Sub

Edited August 5, 2013 at 06:38 PM by thoga31
Formatação do tópico + GeSHi

[nelsonr]

Boas,

podes partir a string lida pelo caracter do espaço. Algo assim (não testado):

Dim palavras As String() = TextLine.Split(" ")

Depois deves conseguir aceder à terceira e quinta palavra acedendo ao array palavras.

Convem é certificares-te que o array tem mais de 5 palavras antes de acederes.

[a3deluxe]

boas

nao consegui

[nelsonr]

Não conseguiste porque... ?

Aqui está um exemplo:

	Dim FILE_NAME As String = "c:\teste.txt"
	Dim TextLine As String = ""

	If System.IO.File.Exists(FILE_NAME) = True Then

		TextLine = System.IO.File.ReadAllText(FILE_NAME)

		Dim palavras As String() = TextLine.Split(" ")

		If palavras.Length > 4 Then
			TextBox1.Text = palavras(2)
			TextBox2.Text = palavras(4)
		End If
	Else
		MsgBox("File Does Not Exist")
	End If

Edited August 5, 2013 at 07:46 PM by nelsonr

[thoga31]

Só um pequeno aparte, que a solução está bem encaminhada e pouco mais há a acrescentar.

Porque é que tanta gente insiste em fazer a verificação de um Boolean numa estrutura If? O "= True" é completamente desnecessário e redundante, apenas enche a vista e o processador de coisas desnecessárias. 😉

' Redundante:
If System.IO.File.Exists(FILE_NAME) = True Then

' Mais correcto...
If System.IO.File.Exists(FILE_NAME) Then
If Not System.IO.File.Exists(FILE_NAME) Then

Edited August 5, 2013 at 08:08 PM by thoga31

[nelsonr]

Eu não uso, apenas utilizei o exemplo do OP.

No entanto há que prefira muitas vezes soluções redundantes para facilitar a interpretação. Principalmente para quem não está habituado à linguagem.

[a3deluxe]

Boas,

Tentei assim e não apareceu nada nas TextBoxs, tambem não tem erros,

//
Dim FILE_NAME As String = "c:\teste.txt"
        Dim TextLine As String = ""
        Dim palavras As String() = TextLine.Split(" ")
        Dim objReader As New System.IO.StreamReader(FILE_NAME)

        If System.IO.File.Exists(FILE_NAME) Then
            If Not System.IO.File.Exists(FILE_NAME) Then

                TextLine = System.IO.File.ReadAllText(FILE_NAME)


                Do While objReader.Peek() <> -1

                    TextLine = TextLine & objReader.ReadLine() & vbNewLine

                Loop

                If palavras.Length > 10 Then

                    TextBox1.Text = palavras(7)
                    TextBox2.Text = palavras(9)

                End If
            Else

                MsgBox("File Does Not Exist")

            End If
        End If
   End Sub

Edited August 6, 2013 at 09:57 AM by ribeiro55

[nelsonr]

Boas,

grandes trocas que andaste a fazer.

então estás a dividir a TextLine logo apos a definição, que está vazia.

Dim TextLine As String = ""
Dim palavras As String() = TextLine.Split(" ")

Estás a verificar se o ficheiro existe e se existir, estás a verificar se não existe?

If System.IO.File.Exists(FILE_NAME) Then
		    If Not System.IO.File.Exists(FILE_NAME) Then

Estás a ler o ficheiro duas vezes. O ReadAllText já lê o conteúdo todo do ficheiro para a variavel, não precisas do restante

TextLine = System.IO.File.ReadAllText(FILE_NAME)

Do While objReader.Peek() <> -1
  TextLine = TextLine & objReader.ReadLine() & vbNewLine
Loop

Experimentaste o código que coloquei lá em cima?

Não precisavas de alterar nada

Edited August 6, 2013 at 08:33 AM by nelsonr

[a3deluxe]

Mais uma vez obrigado

nelsonr

Já funcionou.

Agora so tenho que acertar as palavras.

// If palavras.Length > 10 Then

isto corresponde ao tamanho das palavras?

[nelsonr]

Agora so tenho que acertar as palavras.

// If palavras.Length > 10 Then

isto corresponde ao tamanho das palavras?

Corresponde ao tamanho do array palavras (quantos elementos tem), que por sua vez será o número de palavras que está no ficheiro

[a3deluxe]

ao fazer a leitura do ficheiro txt

esta palavra (725540N) tem um N junto dos numeros,

há como ler so os numeros, e não aparecer o N??

[nelsonr]

Se for sempre N, podes remover usando por exemplo:

TextBox1.Text = palavras(7).Replace("N","")

Edited August 6, 2013 at 11:03 AM by nelsonr

[a3deluxe]

mais uma situação resolvida, Obrigado

ja agora como posso abrir um ficheiro sem exteçao, em vez do TXT,

é um ficheiro que abro com o Notpad

[nelsonr]

Abrir onde? pela aplicação?

Abres da mesma forma. No nome do ficheiro não colocas extensão.

[a3deluxe]

sim na aplicação.

já fiz isso e nao funcionou.

não coloquei a extensao.

depois testei com o ficheiro .txt e já funcionou.

[nelsonr]

A extensão do ficheiro não devia afectar em nada.

O que é que não funcionou exactamente?

[a3deluxe]

nao fez a leitura das palavras, as textboxs ficaram em branco.

não dá erro de não encontrar o ficheiro.

[nelsonr]

Faz debug e vê onde está o problema. Verifica se o File.Exists está a verificar o ficheiro correctamente

[a3deluxe]

esta a dar erro aqui

       If System.IO.File.Exists(FILE_NAME) = True Then

mas ja veriquei e o ficheiro existe

Edited August 7, 2013 at 12:08 AM by thoga31
Correcção da linguagem (GeSHi)

[a3deluxe]

Testei com o primeiro codigo que postei aqui no topico e funcionou.

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim FILE_NAME As String = "d:\Teste\Teste"

       Dim TextLine As String

       If System.IO.File.Exists(FILE_NAME) = True Then

           Dim objReader As New System.IO.StreamReader(FILE_NAME)

           Do While objReader.Peek() <> -1

               TextLine = TextLine & objReader.ReadLine() & vbNewLine

           Loop

           TextBox1.Text = TextLine
           TextBox2.Text = TextLine

       Else

           MsgBox("File Does Not Exist")

       End If
   End Sub

Com este codigo ele funciona, não precisa da extensao.

Edited August 7, 2013 at 12:09 AM by thoga31
Correcção da linguagem (GeSHi)