Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

clagils

criar *.txt

Por , em ASP Clássico

Recommended Posts

clagils    0

clagils
Postado

bom dia galera (putiz to morrendo de fome)

 

 

você tem alugum codigo q faz gerar um txt apartir de registros do bd

 

tipo assim

eu sou adm de um site e eu digito na busca o email do usuario (o sistema busca o usuario por email)

ai eu clico em um link q me mostra as informacoes do cliente (vinda do bd ) em *.txt

 

 

é possivel ?

e se for onde eu posso encontrar algo q me ajude a resolver o meu problema

 

 

c puderem m ajudar eu agraço

abraços

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

clagils    0

clagils
Postado

ae galera fica ai pra quem quiser o codigo c pode criar e depois pode-se editar

ajuste do jeito q vcs quiserem

 

1.asp

<html><head> <TITLE>teste.asp</TITLE> </head> <body bgcolor="#FFFFFF"> <CENTER><H1>EDITOR</H1></CENTER><BR> <hr> <form action="1.asp" method=post> <p>Informe o nome do arquivo:</p> <INPUT NAME="nArq" size ="10"> <INPUT checked type=radio name="opt" value="editar" id="opt"> Editar <INPUT type=radio name="opt" value="gravar" id="opt"> Gravar <p><input type=submit value="Executar"> <input type=reset value=Redefinir> </form><hr> <% If Request.Form ("nArq") <> "" Then Dim arqsys, arqtxt, nome, path, flag Dim nome_arq Dim id, tc, tp, diret_arq nome_arq = server.mappath(Request.Form ("nArq")) End If If Request.Form ("opt") = "editar" then flag = "editar" End if If Request.Form ("opt") = "gravar" then flag = "gravar" End If If flag = "editar" then If nome_arq = "" then Response.End Set ObjFSO = CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(nome_arq) = False Then Response.Write "Arquivo não localizado." Response.End Else Const forReading = 1, forWriting = 2, forAppending = 8 Const TriDef = -2, TriTrue = -1, TrIfalse = 0 Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set ObjFile = objFSO.GetFile(nome_arq) Set objStream = ObjFile.OpenAsTextStream(forReading,TriDef) While Not ObjStream.AtEndOfStream Linha = Linha & ObjStream.Readline & chr(13) Wend Response.Write "<FORM ACTION=""1.asp"" method=post id=form2 name=form2>" Response.Write "Arquivo: <INPUT TYPE=TEXT NAME=""ed_c_arq"" SIZE=30 VALUE=" & nome_arq & "></P>" Response.Write "Conteúdo: <TEXTAREA NAME=""ed_val_arq"" ROWS=5 COLS=40>" & Linha & "</TEXTAREA><P>" Response.Write "<INPUT TYPE=SUBMIT NAME=""cmdGravar"" VALUE=""Gravar"">" Response.Write "</FORM>" End if End if If Request.form ("ed_val_arq") <> "" and Request.form ("ed_c_arq") <> "" then c_arq = Request.form ("ed_c_arq") val_arq = Request.form ("ed_val_Arq") Set arqsys = CreateObject("Scripting.FileSystemObject") Set arqtxt = arqsys.CreateTextFile(c_arq,True) path = arqsys.GetAbsolutePathName(c_arq) nome = arqsys.GetFileName(path) arqtxt.WriteLine(val_arq) arqtxt.Close Response.Write "<STRONG><font color=#191970>O arquivo " & c_Arq & " foi alterado com sucesso.<HR>" Response.End End if If flag = "gravar" then Set ObjFSO = CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(nome_arq) = true Then Response.Write "<STRONG><font color=#b22222>O arquivo " & nome_arq & " já existe.</STRONG></font>" Response.End End if Response.Write "<FORM ACTION=""1.asp"" method=post id=form3 name=form3>" Response.Write "Arquivo: <INPUT TYPE=TEXT NAME=""gv_c_arq"" SIZE=30 VALUE=" & nome_arq & "></P>" Response.Write "Conteúdo: <TEXTAREA NAME=""gv_val_arq"" ROWS=5 COLS=40></TEXTAREA><P>" Response.Write "<INPUT TYPE=SUBMIT NAME=""cmdGravar"" VALUE=""Gravar"">" Response.Write "</FORM>" End if If Request.Form ("gv_val_arq") <> "" and Request.Form ("gv_c_arq") <> "" then Set arqsys = CreateObject("Scripting.FileSystemObject") c_Arq = Request.Form ("gv_c_arq") val_Arq = Request.Form ("gv_val_arq") Set arqtxt = arqsys.CreateTextFile(c_arq,True) path = arqsys.GetAbsolutePathName(c_arq) nome = arqsys.GetFileName(path) arqtxt.WriteLine(val_arq) arqtxt.Close If arqsys.FileExists(path) Then Response.Write "<STRONG><font color=#191970>O arquivo " & c_Arq & " foi gravado com sucesso.<HR>" Response.End End If End if %> </body> </HTML>

 

abraços

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maux    0

Maux
Postado

cara perfeito seu codigo..gostei muito..parabensss

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Pra verem como é importante a busca do forumum topico que tem quase um ano ajudou o nosso amigo Maux

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maux    0

Maux
Postado

viram só?!?!?por isso que eu acho que usuario exemplos assim como eu devem ser promovidos de cargos =Dhahahhaamais eh serio isso me ajudou mesmo.. nao só ajudou, como eh legal... vcs ja rodaram ele???é uma boua maneira para um editor online....eu to mechendo nele.. assim que acabar posto aqui para vcs verem...>_<

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito