Lendo Txt

[Manwë Súlimo]

Pessoal, olhem meu código:

Dim sValor As Variant
n = FreeFile()
Open App.Path & "\legendas.txt" For Input As #n
ReDim sValor(0)
Do While Not EOF(n)
x = x + 1
ReDim Preserve sValor(x)
'Armazena cada linha em uma ocorrencia de sValor
'Ex.: Linha 1 está em sValor(1)
Input #n, sValor(x)
MsgBox sValor(x)
Loop

o objetivo ai é guardar cada linha no vetor sValor, a msgbox eu to usando só p/ ver o que está em cada linha... meu arquivo está assim:

Legenda de motivos:
1-Fora do prazo.
2-Equipamento com defeito.
3-Certificado vencido.

o proble é que ele ta guardando assim no vetor

sValor(1)="Legenda de motivos:"

sValor()="1"

sValor()="-Fora do prazo."

sValor()="2"

sValor()="-Equipamento com defeito."

sValor()="3"

sValor()="-Certificado vencido."

ou seja, ele ta separando o numero do texto, por que? eu queria que ele colocasse toda a linha, inclusive o traço, num indice do vetor

parece que eu fiz um split(texto,"-"), com a diferença que ele mantém o traço (-)

mas eu não to fazendo isso!

por que ele separa assim?? não tem como eu colocar toda a linha num indice só? não importando qual tipo de caractere tenha???

alguém pode me dar uma luz?

até mais

[Decio]

Tenta ao invés de usar Input para ler, usar o LineInput:

Line Input #n, sValor(x)

[Manwë Súlimo]

Bom Décio, quando eu coloquei isso ai deu o seguinte erro quando fui digitar a próxima linha:

Expected: line number or label or statement or end of statement

o que pode ser??

[Graymalkin]

Cola o código todo de novo (com a modificação sugerida pelo Décio). Deve ter outra coisa fora do lugar.

Abraços,

Graymalkin

[Decio]

...Deve ter outra coisa fora do lugar.

É isso ai, posta o código e uma linha do arquivo.

Um comentário sobre o line Input, é que ele presume que você tenha salvado no arquivo através do comando "print #".A forma como o line input lê do arquivo é caracter por caracter até encontrar um "CR" e um "LF", o que é feito automáticamente pelo "print #".

[Manwë Súlimo]

Putz pessoal, que viagem....

eu tava colocando errado

em vez de Line Input, estava pondo LineInput, por isso que dava erro, mas valeu

deu certo agora...

até mais