Gerar Arquivo .txt

[morcego 0]

Amigos,Preciso gerar um .txt a partir de uma consulta ao BD tipo: "select nome from tabela".Se a tabela tiver 50 linhas, preciso que o arquivo mostre um registro por linha.Alguem pode me ajudar com isso???Obrigado!

[silas_i 0]

Esse exemplo eu peguei do ASPBRASIL, veja se resolve tua dúvida...

 

http://www.aspbrasil.com.br/newsgroups/res...a=PERG&id=43796

 

Em 4 passos:

 

1) Crie o objeto Scripting.FileSystemObject que abre o arquivo;

 

2) Abra o arquivo com o método OpenTextFile();

 

3) Escreva no arquivo;

 

4) Feche o arquivo.

 

Fácil, né!? Exemplinho:

 

Dim Fso

Dim Arquivo

 

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

 

Set Arquivo = Fso.OpenTextFile("teste.txt", 2, True)

 

Arquivo.WriteLine "Teste!"

 

Arquivo.Close

 

Set Arquivo = Nothing

Set Fso = Nothing

 

Obs: se você fizer assim, toda vez que abrir o arquivo, ele apaga o que tá lá. Pra abrir e escrever no final do arquivo, sem apagar o que tinha anteriormente, use:

 

Set Arquivo = Fso.OpenTextFile("teste.txt", 8, True)

[morcego 0]

Valew kra,Vou ver se funciona.Obrigado.

[morcego 0]

Funcionou certinho, mas tem um porém...Eu preciso rodar isso no servidor web e gerar o arquivo localmente, isso nao ta rolando.Alguem sabe como fazer?Valew