[Resolvido] Gerando TXT a partir do ASP

[wdantas 0]

Faço um select na BD do tipo Do while not rs.EOF e pego todos os campos de um registro da seguinte forma

 

conteudo = conteudo & rs("ID")

conteudo = conteudo & "*"

conteudo = conteudo & rs("nome")

conteudo = conteudo & "*"

conteudo = conteudo & rs("CPF")

 

e por aí vai até o último campo onde coloco para mudança de linha do próximo registro

conteudo = conteudo & Chr(10) & Chr(13)

 

a página asp vem certa. Após escrever um registro com todos os campos separados por * , muda de linha e escreve o próximo

 

AGORA VEM O PROBLEMA

Quero gerar uma página TXT e faço isso

 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

caminho = Server.MapPath("./lista_insc_cong.txt")

Set GRAVAR = FSO.CreateTextFile(caminho,true)

GRAVAR.writeLine (conteudo)

 

response.redirect("lista.txt")

 

No browser o lista.txt sai certo (igual a pg asp), mas quando salvo o TXT a coisa enrola

Além de não mudar de linha aparece uns quadradinhos entre cada registro.

Esses quadradinhos representam a quebra de linha escrita no asp

Como faço pra o txt salvo ficar igual ao txt mostrado no browser?

 

Agradeço antecipadamente qualquer ajuda

[hargon 64]

Para quebrar linha no TXT você tem que utilizar vbCrLf ao invés de chr(10) / chr(13).

[wdantas 0]

Para quebrar linha no TXT você tem que utilizar vbCrLf ao invés de chr(10) / chr(13).

 

Valeu! hargon.

Funcionou beleza

Obrigado

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif