Pessoal como faço para que meu sistema não lei nem a primeira nem a ultima linha de um arquivo texto, somente as outras linhas ?

 

Exemplo.:

1ª Linha-> 0000122 0215454 01544 2154 815787 454545 <Ignorar>

2ª Linha-> 24467987 6540 898701 8798709 87907987090 <Ler>

 

SIMPLES:

Basta pegar a quantidade de linhas do arquivo e executar o comando para ler as linhas da 2a. posição até a RecordCount - 1 (ou seja, da segunda linha até a penúltima)..

Mas como posso utilizar o RecordCount para um arquivo texto ?

Pode-se fazer de um outro jeito, mostrando numa textbox sendo esta como Text1:

 

Private Sub Command1_Click()
Dim slinha As String
Dim i As Long

Dim ARQ As Byte

 

On Error GoTo ErroLe

ARQ = 11
i = 0

 

Open caminho_do_arquivo For Input As ARQ

  Do
   
    'Pega o conteúdo da linha
    Line Input #ARQ, slinha
   
    If i > 0 And Not EOF(ARQ) Then
        Text1 = Text1 & slinha & vbCrLf
    End If
    i = i + 1
 
  Loop Until EOF(ARQ)
 
 

 
  'Fecha o arquivo
  Close ARQ

ErroLe:
If Err.Number <> 0 Then MsgBox "Erro ao ler arquivo." & vbCrLf & Err.Description & vbCrLf & Err.Number, vbCritical, App.Title

End Sub

 

 

t+