Quebra de Linha Arquivo TXT

[Gilberto Jr 26]

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 />"
m1 = m1+ "^XA"
m1 = m1+ "^MMT"
m1 = m1+ "^PW680"
m1 = m1+ "^LL0863"
m1 = m1+ "^LS0"
m1 = m1+ "^BY4,3,118^FT99,808^BCN,,Y,N"
m1 = m1+ "^FD>;012345678901>62^FS"
m1 = m1+ "^FT204,678^A0N,28,28^FH\^FDC\A2digo Rastreamento^FS"
m1 = m1+ "^FT238,449^A0N,28,28^FH\^FDDESTINAT\B5RIO^FS"
m1 = m1+ "^FT77,491^A0N,28,28^FH\^FDCAU\D2 GALLI^FS"
m1 = m1+ "^FT76,529^A0N,28,28^FH\^FDR CAPIT\C7O DOMINGOS CORREA ROCHA^FS"
m1 = m1+ "^FT77,569^A0N,28,28^FH\^FDNo. 80 SALA 302^FS"
m1 = m1+ "^FT77,642^A0N,28,28^FH\^FD29056-220 VIT\E3RIA ES^FS"
m1 = m1+ "^FT77,609^A0N,28,28^FH\^FDBAIRRO SANTA LUCIA^FS"
m1 = m1+ "^FT265,230^A0N,28,38^FH\^FDREMETENTE^FS"
m1 = m1+ "^FT77,270^A0N,28,38^FH\^FDEMPRESA DE LOGISTICA LTDA^FS"
m1 = m1+ "^FT79,308^A0N,28,38^FH\^FDR DA DIREITA 1310 GALP\C7O 01^FS"
m1 = m1+ "^FT79,350^A0N,28,38^FH\^FDBAIRRO CENTRO^FS"
m1 = m1+ "^FT80,387^A0N,28,38^FH\^FD29001-999 VIT\E3RIA ES^FS"
m1 = m1+ "^FT432,179^A0N,39,38^FH\^FDVOL: 01/01^FS"
m1 = m1+ "^FO5,649^GB673,0,6^FS"
m1 = m1+ "^FO3,410^GB674,0,6^FS"
m1 = m1+ "^FO5,195^GB673,0,7^FS"
m1 = m1+ "^PQ1,0,1,Y^XZ"


' 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.flush

Response.Clear

%>

Alguém poderia me da uma ajuda?

 

Att;

 

[brcontainer 16]

Se a ideia é gravar a variavel m1 em um .txt então <br> não faz sentido, afinal <br> é para HTML e não txt, no caso o correto seria usar vbCrLf ou vbLf:

 

• vbCrLf = CR (Carriage-return) + LF (line-feed)
• vbLf = LF (line-feed)

Eu não sei bem qual o resultado esperado e o visualizador que seja usar, mas no caso teste ambos e veja o resultado, algo como:

 

m1 = "CT~~CD,~CC^~CT~" & vbLf

 

[Gilberto Jr 26]

2 horas atrás, brcontainer disse:

vbCrLf = CR (Carriage-return) + LF (line-feed)

 

Matou a pau @brcontainer, o codigo ficou o seguinte.

 

m1 = "CT~~CD,~CC^~CT~"&vbCrLf 
m1 = m1+ "^XA~TA000~JSN^LT0^MNW^MTT^PON^PMN^LH0,0^JMA^PR2,2~SD25^JUS^LRN^CI0^XZ"&vbCrLf
m1 = m1+ "^XA"&vbCrLf
m1 = m1+ "^MMT"&vbCrLf
m1 = m1+ "^PW680"&vbCrLf
m1 = m1+ "^LL0863"&vbCrLf
m1 = m1+ "^LS0"&vbCrLf
m1 = m1+ "^BY4,3,118^FT99,808^BCN,,Y,N"&vbCrLf
m1 = m1+ "^FD>;012345678901>62^FS"&vbCrLf
m1 = m1+ "^FT204,678^A0N,28,28^FH\^FDC\A2digo Rastreamento^FS"&vbCrLf
m1 = m1+ "^FT238,449^A0N,28,28^FH\^FDDESTINAT\B5RIO^FS"&vbCrLf
m1 = m1+ "^FT77,491^A0N,28,28^FH\^FDCAU\D2 GALLI^FS"&vbCrLf
m1 = m1+ "^FT76,529^A0N,28,28^FH\^FDR CAPIT\C7O DOMINGOS CORREA ROCHA^FS"&vbCrLf
m1 = m1+ "^FT77,569^A0N,28,28^FH\^FDNo. 80 SALA 302^FS"&vbCrLf
m1 = m1+ "^FT77,642^A0N,28,28^FH\^FD29056-220 VIT\E3RIA ES^FS"&vbCrLf
m1 = m1+ "^FT77,609^A0N,28,28^FH\^FDBAIRRO SANTA LUCIA^FS"&vbCrLf
m1 = m1+ "^FT265,230^A0N,28,38^FH\^FDREMETENTE^FS"&vbCrLf
m1 = m1+ "^FT77,270^A0N,28,38^FH\^FDEMPRESA DE LOGISTICA LTDA^FS"&vbCrLf
m1 = m1+ "^FT79,308^A0N,28,38^FH\^FDR DA DIREITA 1310 GALP\C7O 01^FS"&vbCrLf
m1 = m1+ "^FT79,350^A0N,28,38^FH\^FDBAIRRO CENTRO^FS"&vbCrLf
m1 = m1+ "^FT80,387^A0N,28,38^FH\^FD29001-999 VIT\E3RIA ES^FS"&vbCrLf
m1 = m1+ "^FT432,179^A0N,39,38^FH\^FDVOL: 01/01^FS"&vbCrLf
m1 = m1+ "^FO5,649^GB673,0,6^FS"&vbCrLf
m1 = m1+ "^FO3,410^GB674,0,6^FS"&vbCrLf
m1 = m1+ "^FO5,195^GB673,0,7^FS"&vbCrLf
m1 = m1+ "^PQ1,0,1,Y^XZ"&vbCrLf

Att;

Gilberto Jr

Pode colocar esse tópico como resolvido.

 

Att;

Gilberto Jr

[brcontainer 16]

@Gilberto Jr que bom que deu certo, acho que só o moderador pode colocar como resolvido.

[Gilberto Jr 26]

entendi @brcontainer

 

obrigado.