Fso - Gerar Arquivo Texto

[Guest Marilia Erika]

Boa noite,

Já naveguei por todo o fórum e não encontrei nada sobre o que preciso, se alguém puder me ajudar ficarei muito grata, é o seguinte.

Tenho uma página aonde um cliente faz seus pedidos e preciso na hora de submeter meu form ao invés de grava no banco preciso gravar num txt, vi algumas coisas sobre fso, mas não consegui exatamente isso, li que precisa de um arquivo objvbs.inc ( se alguém tiver esse arquivo e puder me mandar em pvt).

E esse txt tem que ter a estrutura do banco, ou seja gravar linha a linha (Coluna a coluna), como posso fazer isso, se alguém tiver alguém exemplo disso funcionando e puder me passar, outra coisa preciso q esse txt seja gerado a cada dia um novo. tem como?

formato do txt

codpedido itempedido quantidade datadopedido

0001 0001 200 05/12/2005

Se alguém puder me ajudar, por favor. Necessito disso para terminar um sistema, é é vital. Obrigada novamente.]

[Guest - Flávio Lago -]

Tenta o seguinte:

<%

'/**

'* @Script: gerarTxt.asp

'* - Gerar/Criar um arquivo TXT no webserver;

'*

'* @author: flaviolago@hotmail.com

'*

'*/

' nome do arquivo txt a ser gerado

dim nameFileTxt

nameFileTxt= "exemplo"

' nome COMPLETO do arquivo txt a ser gerado

dim fullNameFileTxt

fullNameFileTxt= ucase( getFullNameFile( nameFileTxt ) )

' object

dim oFSO

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

' criando arquivo TXT; SE existir, sobrepõe.

dim oFileTXT

Set oFileTXT= oFSO.CreateTextFile( fullNameFileTxt, true )

' SE não existe o arquivo TXT

if ( NOT oFSO.FileExists( fullNameFileTxt ) ) then

response.write "Erro ao tentar criar o arquivo " & ucase( fullNameFileTxt ) & "<BR><BR>A pasta na qual o arquivo será criado, deverá ter acesso de escrita permitido!"

else

' ESCREVENDO AS LINHAS

oFileTXT.WriteLine "codpedido itempedido quantidade datadopedido"

oFileTXT.WriteLine "0001 0001 200 05/12/2005"

' FECHANDO ARQUIVO TXT

oFileTXT.Close

' se existe o arquivo

if ( oFSO.FileExists( fullNameFileTxt ) ) then

response.write "Arquivo " & ucase( fullNameFileTxt ) & " criado com sucesso!"

end if

end if

'/**

'*

'*

'*/

function getFullNameFile( nomeFile )

' nome completo

'ex.: C:\PROJETOS\WEB\SOURCE\SISTEMA\PEDIDO\EXEMPLO.TXT

dim fullName

' caminho físico deste script no servidor

dim path_translated

path_translated= request.ServerVariables("PATH_TRANSLATED")

' aux

dim i

i= InStrRev(path_translated,"\")

' return

fullName= Left(path_translated,i) & nomeFile & ".txt"

' @return

getFullNameFile= fullName

end function

%>