LEITURA DE ARQUIVO.... Q CABULOSO!
Salve galera!
Sou iniciante em VB e tenho uma dúvida q não é difÃcil.
Estou lendo um arquivo de várias linhas deste jeito:
Do While Not EOF(1)
ReDim Preserve sLines(sQtdLines)
Line Input #1, sLines(sQtdLines)
sQtdLines = sQtdLines + 1
Loop
Acontece q minhas linhas são grandes demais, chega a uns 3000 caracteres cada linha. Qd eu abro no bloco de notas, o mesmo divide uma linha em três linhas e o meu vetor dinà ¢mico guarda somente a primeira linha.
Pq será q está acontecendo isso?
Como eu posso resolver esse problema sem mexer no arquivo?
Valew galera!
Sou iniciante em VB e tenho uma dúvida q não é difÃcil.
Estou lendo um arquivo de várias linhas deste jeito:
Do While Not EOF(1)
ReDim Preserve sLines(sQtdLines)
Line Input #1, sLines(sQtdLines)
sQtdLines = sQtdLines + 1
Loop
Acontece q minhas linhas são grandes demais, chega a uns 3000 caracteres cada linha. Qd eu abro no bloco de notas, o mesmo divide uma linha em três linhas e o meu vetor dinà ¢mico guarda somente a primeira linha.
Pq será q está acontecendo isso?
Como eu posso resolver esse problema sem mexer no arquivo?
Valew galera!
Exixtem caracteres de quebra de linhas vbcrlf ou vbcr ou so vblf mais o mais encontrado em arquivos texto é o vbcrlf
contalinha =1
Line Input #1, texto
while not texto = ""
linha = mid(texto,1,instr(1,texto,vbcrlf)-2)
redim preserve slines(contalinha)
slinhes(contalinha)= linha
texto = mid(texto,instr(1,testo,linha)+len(linha)+2,len(texto)
contalinha = contalinha +1
wend
contalinha =1
Line Input #1, texto
while not texto = ""
linha = mid(texto,1,instr(1,texto,vbcrlf)-2)
redim preserve slines(contalinha)
slinhes(contalinha)= linha
texto = mid(texto,instr(1,testo,linha)+len(linha)+2,len(texto)
contalinha = contalinha +1
wend
Valew Natanael, mas está dando uma mensagem assim "invalid procudere call or argument"
Ele não está nem entrando no while.
Felipe
Ele não está nem entrando no while.
Felipe
Tópico encerrado , respostas não são mais permitidas