Pegar dados de arquivo txt e passar para variáveis

[Pamalagoli 0]

Boa noite.

Tenho um arquivo .txt que contém oito dados por registro nesta forma: numero, data, dezena 1, dezena 2, dezena 3, dezena 4, dezena 5, dezena 6.

Tento acessá-lo para pegar somente os numeros que estão contidos nas dezenas, mas sempre dá uma msg de erro.

 

 

O código:

Existem vários comentários que fazem parte dos testes que fiz.

Erro que aparece:

Error '13' em tempo de execução

Type mismatch ( incompatibilidade de tipo)

 

Private Sub Command1_Click()
'Essa primeira parte é só para carregar os números primos contidos na variável Arq_numeros_primos. Funciona corretamente.
Dim Arq_numeros_primos As String
Dim numpri(1 To 25) As Integer
Arq_numeros_primos = "C:/Documents and Settings/PauloM/Desktop/Programa Megasena/numprim/numeros_primos.txt"
Open Arq_numeros_primos For Input As #1
Do While Not EOF(1)
   For i = 1 To 25
    Line Input #1, reg
    numpri(i) = reg
    Debug.Print reg, numpri(i)
   Next
Loop
Close #1

'Dezenas = Split(Linha, ";")

'Aqui na segunda parte é que dá dando o erro.
Dim Arq_Resultado_da_mega_sena As String
Dim regi As Variant 'Já tentei como String, Integer mas dá a mesma msg de erro
'Dim valores As String
Dim cont As Integer
'Dim dez(7) As String 'Matriz com 8 elementos. Tmb tentei e dá mesma msg erro
'Dim dezenas As Integer
Dim tamanho As Integer
Dim linhas As Variant 'Já tentei como String, Integer mas dá a mesma msg de erro
Dim d1, d2, d3, d4, d5, d6 As Integer
Arq_Resultado_da_mega_sena = "C:/Documents and Settings/PauloM/Desktop/Programa Megasena/numprim/Resultado da Mega-sena.txt"
'cont = 0
Open Arq_Resultado_da_mega_sena For Input As #1
Do While Not EOF(1)
  'For X = 1 To 3 '1653
   'For Y = 3 To 8
   'cont = cont + 1
   For i = 1 To 3
     Line Input #1, regi
     'dez = Split(regi, ";")
     linhas = Split(regi, ";") 'Na execução a varável linhas está vazia,  regi contém o primeiro registro do arquivo. e i = 1
     linhas = Trim(linhas) ' O erro tá aparecendo nesta linha
     tamanho = Len(linhas)
     d1 = Right(linhas, 2) 'd1 = dez(2)
     d2 = Mid(linhas, tamanho - 5, tamanho - 3) 'd2 = dez(3)
     d3 = Mid(linhas, tamanho - 7, tamanho - 5) 'd3 = dez(4)
     d4 = Mid(linhas, tamanho - 9, tamanho - 7) 'd4 = dez(5)
     d5 = Mid(linhas, tamanho - 11, tamanho - 9) 'd5 = dez(6)
     d6 = Mid(linhas, tamanho - 13, tamanho - 11) 'd6 = dez(7)
    
     Debug.Print regi, d1, d2, d3, d4, d5, d6 'dez,
    
       If i = 3 Then 'cont = 3 Then 'São 1653 registros. Como estou testando, faço o programa parar após o terceiro registro.
        Exit For
        Exit Do
       End If
    
    Next
  Loop
Close #1
End Sub

Obrigado por qualquer ajuda que puderem me dar!

 

Paulo

[KhaosDoctor 242]

Você verificou qual é o valor que a variável está assumindo?