ERROR INPUT PAST END OF FILE, QUE ERRO E ESSE
Bom dia estou com um probleminha postei um forum perguntando como quando eu abrir um arquivo txt com a instrução open , eu poder utilizar o #1(arquivo aberto ) em outra procedure
dia um amigo(Matioli) postou :
Tem sim, é até simples, qdo vc dá um open:
Open "Arquivo.txt" For ??? As #1
o nr 1 ficará reservado à  este arquivo por tempo indeterminado, ou melhor, até que vc dê um close:
Close #1
Ou seja, enquanto não der o Close pode acessar o arquivo por outra procedure...
E é por este fato que recomenda-se usar o FreeFile ao invés de colocar o nr direto:
Dim f As Integer
f = FreeFile
Open blablabla As #f
só que quando estou usando o f em outra procedure assim:
valor(c) = input$(i,f)
ou
valor(c) = input$(i,#f)
ele da o seguinte erro
INPUT PAST END OF FILE,
alguem conhece esse erro??
abraços obrigado
dia um amigo(Matioli) postou :
Tem sim, é até simples, qdo vc dá um open:
Open "Arquivo.txt" For ??? As #1
o nr 1 ficará reservado à  este arquivo por tempo indeterminado, ou melhor, até que vc dê um close:
Close #1
Ou seja, enquanto não der o Close pode acessar o arquivo por outra procedure...
E é por este fato que recomenda-se usar o FreeFile ao invés de colocar o nr direto:
Dim f As Integer
f = FreeFile
Open blablabla As #f
só que quando estou usando o f em outra procedure assim:
valor(c) = input$(i,f)
ou
valor(c) = input$(i,#f)
ele da o seguinte erro
INPUT PAST END OF FILE,
alguem conhece esse erro??
abraços obrigado
Esse erro é pq vc ultrapassou o EOF! Tentou ler após o final do arquivo...
Citação:só que quando estou usando o f em outra procedure assim:
Neste caso esse f, deve ser declarado global (ou no form ou num módulo), e não na procedure onde o arquivo é aberto, pq se não o variável ficará restrita à  procedure onde foi declarada...flw
valeu camarada consegui
Tópico encerrado , respostas não são mais permitidas