Ir para conteúdo

POWERED BY:

Arquivado

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

cesarhtc

Arquivo TXT

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

com certeza, só ler os dados do jeito que quiser da página (através de XML,Session, request etc) e jogar em um txt, criando lógico pelo FSO.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olha este exemplo

 

arquivo: index.html

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Criando arquivo de texto</title>
</head>
<body bgcolor="#eaeaea">
<form name="form1" method="post" action="grava.asp">
  <table width="28%" border="0" align="center" bgcolor="#eaeaea">
    <tr bgcolor="#eaeaea">
      <td width="50">
        texto:      </td>
      <td width="1025">
        <input type="text" name="texto" size="40">
      </td>
      <td width="1025"><label>
        <input type="submit" name="ok" id="ok" value="ok" />
      </label></td>
    </tr>
  </table>
</form>
</body>
</html>

 

arquivo: grava.asp

 

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.MapPath("teste")
extensao = (".txt")
numero = 1
arquivo = caminho+""&numero&""+extensao
'especifique aqui o caminho onde ficará(no nosso caso utilizamos o MapPath para mapear esse arquivo e salvar na mesma pasta)/nome do arquivo, nesse caso como só colocamos o nome do arquivo ele gravará na mesma pasta.
 
	If fso.FileExists(arquivo) = false Then
	'caso não aja um arquivo com o mesmo nome é executada a linha a seguir 
 
			Set GRAVAR = FSO.CreateTextFile(arquivo,true)
			'Foi criado o objeto e logo após busca o txt em caminho para gravar, se não achar, vai cria-lo (por causa da marcação TRUE)
 
		else
			while fso.FileExists(arquivo) = true
			'caso aja algum arquivo com o mesmo nome ele vai adicionando mais 1 no numero no nome até achar um nome diferente
 
				numero = (numero+1)
				arquivo = caminho+""&numero&""+extensao
			wend
		Set GRAVAR = FSO.CreateTextFile(arquivo,true)
end if
gravar.write ("teste de gravação")
gravar.close
response.write "GRAVADO!"
'apos abrir o TXT, gravará a linha com o texto "teste de gravação" e fecha o arquivo a confirmação no cliente aparecerá como "GRAVADO"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Nesse exemplo eu uso pegando do banco de dados.

dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=basedados;USER=root;PASSWORD=123456;OPTION=3;")



set rs = conn.execute("select * from tablewhere id=1")

'set rs = conn.execute("select * from tablewhere id=1 and month(dataemissao)='"&request.QueryString("data")&"'")	

' Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Preparando o caminho (Path) do arquivo
caminho = Server.MapPath("arquivos/"&pathrede&"/"&pathloja&"/"&replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt")
Set GRAVAR = FSO.CreateTextFile(caminho,true)
'Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
while rs.eof=false
'GRAVAR.write (replace(rs("notafiscal")&".", ".", "." + VbCrLf))
GRAVAR.Writeline (rs("notafiscal")&" "&rs("valor")&" "&rs("valoricms")&" "&mask_dataa(rs("dataemissao")))
'GRAVAR.write (rs("notafiscal")&" "&replace(rs("valor"),",","")&" "&replace(rs("valoricms"),",","")&" "&mask_dataa(rs("dataemissao"))&Chr(13))
rs.movenext
wend
'GRAVAR.write (request.form("Texto"))

GRAVAR.close

'É necessário passar o nome do arquivo no FORM
'Dim Arquivo
'Nome do arquivo que esta no value do input no formulario.
'Arquivo = replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt"

Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt"
Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("arquivos/"&pathrede&"/"&pathloja&"/"&replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush

response.redirect("arquivos/"&pathrede&"/"&pathloja&"/"&replace(replace(replace(mask_data(Date),"-","")," ",""),":","")&".txt")

Talvez isso te ajude.

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

será sempre a mesma lógica de usar o FSO, dê uma procurada no fórum que existem vários ótimos exemplos

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