Quebra de Linha Arquivo TXT
Boa noite pessoal,
seguinte, eu montei esse script para ele gerar o arquivo txt.
O arquivo é gerado, porem não vai como quebra de linha. Estou usando o <br /> na frente do texto que esta na variavel mas não funciona.
Segue o codigo<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.ContentType="text/plain"%>
<%
m1 = "CT~~CD,~CC^~CT~<br />"
m1 = m1+ "^XA~TA000~JSN^LT0^MNW^MTT^PON^PMN^LH0,0^JMA^PR2,2~SD25^JUS^LRN^CI0^XZ<br />"' Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Preparando o caminho (Path) do arquivo
caminho = Server.MapPath("arquivos/etiqueta.prn")
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)
response.Write(chr(13))
'while rs.eof=false
GRAVAR.Writeline (m1)
'rs.movenext
'wend
GRAVAR.close
arquivo = "etiqueta.prn"
dim objStream
set objStream = server.createObject("ADODB.Stream")
with (response)
.buffer = true
.addHeader "Content-Type","application/x-msdownload"
.addHeader "Content-Disposition","attachment; filename="&arquivo
.flush
end with
with (objStream)
.open
.type = 1
.loadFromFile server.mapPath("arquivos/"&arquivo)
end with
response.binaryWrite objStream.read
set objStream = nothing
response.flushResponse.Clear
%>
Alguém poderia me da uma ajuda?
Att;
Discussão (4)
Carregando comentários...