SUBSCRIPT OUT OF RANGE

USUARIO.EXCLUIDOS 05/07/2004 12:10:08
#32307
Eis o código:

Dim Linha_Armazenada()
Dim iARQ As Integer
iARQ = FreeFile



For a = 1 To 200
Open Path & "\" & "M" & Nummap & "C" & Numcam & "Q" & a & ".mci" For Input As iARQ
For b = 1 To 12
Line Input #iARQ, Linha
Linha_Armazenada(b) = Linha_Armazenada(b) & Linha
Next
Next
Close iARQ

Obs: O arquivo existe
Na passagem: Linu Input #iARQ, linha
a variavel linha "captura" a linha no arquivo
porém o erro ocorrena linha seguinte...

Alguma solução?

Cheers
USUARIO.EXCLUIDOS 05/07/2004 12:12:03
#32308 Resposta escolhida
faça assim

Dim Linha_Armazenada(12)
Dim iARQ As Integer
iARQ = FreeFile



For a = 1 To 200
Open Path & "\" & "M" & Nummap & "C" & Numcam & "Q" & a & ".mci" For Input As iARQ
For b = 1 To 12
Line Input #iARQ, Linha
Linha_Armazenada(b) = Linha_Armazenada(b) & Linha
Next
Next
Close iARQ
USUARIO.EXCLUIDOS 05/07/2004 12:24:07
#32310
Pra mim é infinito

Acho que tu tá abrindo no notepad então desabilite a opção quebra automatica de linha
USUARIO.EXCLUIDOS 05/07/2004 12:29:12
#32312
Vá em formatar no notepad

e desabilite a opção Quebra automatica de linha
USUARIO.EXCLUIDOS 05/07/2004 12:37:34
#32316
Armazene cada infprmação em dada linha


open arquivo for output as #1
'Chame quantas vezes quiser
print #1,dado
close


para ler

open arquivo for input as #1
do
if eof(1) then exit do 1 ve se chegou no fim do arquivo
line input 31,dado
msgbox dado
loop
close #1
USUARIO.EXCLUIDOS 05/07/2004 12:48:59
#32319
mas não vai quebrar linha sozinha, a menos que contenha o caracter enter nas linhas se tiver tu vai ter de ler em binario ou Random
USUARIO.EXCLUIDOS 05/07/2004 12:55:12
#32321
Pode continuar sim, é apenas seu bloco de notas que quebra a linha automaticamente.

Se quiser pode usar o edit do DOS que contem numeração de coluna e linha
USUARIO.EXCLUIDOS 05/07/2004 13:01:49
#32323
To te enviando
Tópico encerrado , respostas não são mais permitidas
Voltar