PROBLEMA COM VIRGULA AO LER ARQUIVO TEXTO

FNANDOOD 24/01/2011 22:49:16
#363328
Pessoal, tenho um arquivo com o nome: CBO.TXT
dentro do arquivo tenho a seguinte linha ex:
7682-05 Bordador, a mão Ocupação

DIM V_LINHA AS STRING
Open App.Path & [Ô]\CBO.TXT[Ô] For Input As #1
Do While Not EOF(1)
Input #1, V_LINHA

PRINT V_LINHA
LOOP

Aqui está o problema no resultado do print
7682-05 Bordador
não consigo imprimir o conteudo depois da linha

alguém tem uma dica para solucionar o meu problema.
LUIZCOMINO 24/01/2011 23:23:01
#363330
DIM V_LINHA AS STRING
Open App.Path & [Ô]\CBO.TXT[Ô] For Input As #1
Input #1, V_LINHA

Do While Not EOF(1)
Print #1, V_LINHA
LOOP

close #1

[ô] segue um exemplo

http://sl4v3r.wordpress.com/2008/09/21/visual-basic-gravar-arquivo-txt/
CARLOSBINO 24/01/2011 23:28:48
#363331 Resposta escolhida
Tenho duas opções para você:
1ª OPÇÃO: Coloque o texto do arquivo CBO.TXT entre aspas. Assim
[Ô]7682-05 Bordador, a mão Ocupação[Ô] ou invés de 7682-05 Bordador, a mão Ocupação

2ª OPÇÃO: Se não quiser colocar o texto entre aspas você pode utilizar o código que vai dar certo:

DIM V_LINHA AS STRING
Open App.Path & [Ô]\CBO.TXT[Ô] For Input As #1
Line Input #1, V_LINHA
Close #1

Print V_LINHA
TFPEROZINI 25/01/2011 14:03:53
#363367
1- Caso vc esteja utilizando um banco de dados que dê a opção, crie uma tabela temporária e inclua linha a linha no banco. Após isso vc pode manipular as informações como quizer.
2 - utiliza o File System Object para fazer a leitura, este possui mais recursos. (No site tem exemplo)

Fico a disposição.

Abraço
MARCELO.TREZE 26/01/2011 18:20:01
#363523
????

não sei porque deste erro.

tem como vc postar algumas linhas e seu aquivo texto?
Tópico encerrado , respostas não são mais permitidas
Voltar