Oi pessoal, boa tarde.

 

Alguém aí sabe como faço para que meu sistema "enxergue" dentro de um arquivo Txt e "puxe" deste txt as linhas que eu programar?? Por exemplo, eu tenho um arquivo chamado Antigos.Txt e quero que meu sistema retorne pra mim a terceira linha do texto deste arquivo:

 

Texto dentro do arquivo Antigos.Txt:

 

Móvel                    Tipo

Cadeira                  35

Mesa                     22

Armário                  56   <--- esta é a linha do txt que eu quero puxar..

Cama                     99

 

Se alguém puder me ajudar fico muito agradecido.

 

Obrigado.

    Dim ArqTxt1 As Integer
    Dim Linha1,Linha2,Linha3 as string    

    Open App.Path & "arquivo.txt" For Input As #ArqTxt1
    Input #ArqTxt1, linha1
    Input #ArqTxt1, linha2

    input #ArqTxt1, linha3    <<<<----------------  aqui vc pega a linha 3

 

Fiz este exemplo, mas utilize outra forma mais logica de puxar as linhas do txt, talvez com uma variavel apenas e um contador dentro de um While ou um For Next

 

abraços
 

obrigado...

MrBytes

 

como eu faço pra saber qtas linhas eu tenho dentro do txt, pois meu arquivo tem 55 linhas e eu precisaria pegar somente as linhas necessárias.

 

Obrigado.

Para procurar uma linha qualquer, sugiro fazer um loop pelo seu arquivo, que não é muito grande e verificar se é o que você quer e depois trabalhar as informações:

Open NomeDoArquivo for Input as #1

Dim Linha as string

Do while not Eof(1)

    Line Input #1, Linha

    If Instr(1,Linha,DescricaoQueVoceQuer) >0 Then

        ... Aqui você coloca o código para fazer o que quer: armazenar em um vetor,

            variável, etc...

    End if 

Loop

Isso tem a vantagem de não fixar no seu código uma linha específica.

Agora, para saber quantas linhas você tem, primeiro você tem que saber quantos caracteres tem cada linha, e depois é só usar a instrução LOF (Lenght Of File) e dividir um pelo outro:

    Linhas = LOF(NomeArquivo) / TamanhoLinha

 

Um abraço,

Sandro.