ARQUIVO DE TEXTO

  

Dim strRegistro As String
Dim strLinha As String
Dim strNumero As String
Dim intLoop As Integer

Open "C:\Teste.txt" For Input As #1



Do While Not EOF(1)

    Line Input #1, strRegistro
    
    'Verificar se é Header
    If UCase(Left(strRegistro, 5)) = "SEÇÃO" Then
        strLinha = Replace(strRegistro, ":", "") & " "
    End If
    
    'Verificar se é Trailler
    If UCase(Left(strRegistro, 5)) = "TOTAL" Then
        'Pegar apenas o Numeral
        strNumero = ""
        For intLoop = 1 To Len(strRegistro)
            If IsNumeric(Mid(strRegistro, intLoop, 1)) Then
                strNumero = strNumero & Mid(strRegistro, intLoop, 1)
            End If
        Next intLoop
        strLinha = strLinha & " Total " & strNumero
        
        'Imprime a linha
        Debug.Print strLinha
    
    End If

Loop