MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Armazenar em uma variavel somente a segunda de um txt

    Compartilhe

    alerorafa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 11/09/2012

    Armazenar em uma variavel somente a segunda de um txt

    Mensagem  alerorafa em Qua 30 Ago 2017, 02:23

    Boa noite a todos
    Observação: Eu juro que eu pesquisei no forum e não achei nada que fosse aquilo que eu queria
    Vamos a pergunta:

    Eu preciso Armazenar em uma variável somente a segunda de um txt

    por exemplo tenho um txt assim:

    linha1
    linha2
    linha3
    linha4
    linha5
    linha6

    o vba Lê a primeira e ignora lê a segunda linha e armazena na variável e para a leitura
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Armazenar em uma variavel somente a segunda de um txt

    Mensagem  thiagomcosta em Qui 31 Ago 2017, 13:06

    Olá!

    Faça uma busca avançada procurando por "Importar txt". Tempos atrás eu precisei de algo parecido e encontrei uns bons exemplos aqui.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: Armazenar em uma variavel somente a segunda de um txt

    Mensagem  ahteixeira em Qui 31 Ago 2017, 14:12

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: Armazenar em uma variavel somente a segunda de um txt

    Mensagem  ahteixeira em Qui 31 Ago 2017, 22:22

    Olá, teste o código num botão:
    Código:
    'ahteixeira 2017 para MAximoAccess
    Dim meuFicheiro As String, txtVariavel As String, xLinha As Double

    meuFicheiro = "C:\Teste\Ficheiro.txt"
    xLinha = 0
       
        Open meuFicheiro For Input As #1
           
            Do Until EOF(1)
            xLinha = xLinha + 1
            Line Input #1, txtVariavel
                If xLinha = 2 Then
                  Exit Do
                End If
            Loop
        Close #1

    MsgBox txtVariavel, vbInformation, "Varivável pretendida (2ª linha txt)"

    Nota, não se esqueça de ajustar o nome da pasta e ficheiro para ler.
    Abraço

      Data/hora atual: Sab 18 Nov 2017, 19:20