none
Ler e Copiar apenas uma linha de um arquivo.txt RRS feed

  • Pergunta

  • Olá pessoal !

    Estou com o seguinte problema para resolver:

    Tenho uma pasta com 3 arquivos de texto, e tenho um determinado dado localizado na 5ª linha de cada de documento, queria copiar este Dado e colocar em uma matrix de (3,2), onde na primeira coluna ficaria o nome dos 3 arquivos, e na segunda coluna os Dados da 5ª linha de cada arquivo. Desde já agradeço.

    quarta-feira, 26 de março de 2014 16:52

Respostas

  • Segue código:

    Sub Importar()
        Dim Linha As String
        Dim Matriz(2, 1) As Variant
        Dim I As Integer
        
        Matriz(0, 0) = "D:\arq1.txt"
        Matriz(1, 0) = "D:\arq2.txt"
        Matriz(2, 0) = "D:\arq3.txt"
        
        For I = 0 To UBound(Matriz)
            Open Matriz(I, 0) For Input As #1
                Line Input #1, Linha
                Line Input #1, Linha
                Line Input #1, Linha
                Line Input #1, Linha
                Line Input #1, Linha
                Matriz(I, 1) = Mid(Linha, 10, 8) 'Indique a posição do dado na linha
            Close #1
            MsgBox Matriz(I, 1) 'Apenas para teste
        Next I
        
    End Sub


    segunda-feira, 31 de março de 2014 01:59