Gilberto Jr 26 Denunciar post Postado Abril 11, 2017 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; Compartilhar este post Link para o post Compartilhar em outros sites
brcontainer 16 Denunciar post Postado Abril 11, 2017 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 Compartilhar este post Link para o post Compartilhar em outros sites
Gilberto Jr 26 Denunciar post Postado Abril 11, 2017 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 Compartilhar este post Link para o post Compartilhar em outros sites
brcontainer 16 Denunciar post Postado Abril 15, 2017 @Gilberto Jr que bom que deu certo, acho que só o moderador pode colocar como resolvido. Compartilhar este post Link para o post Compartilhar em outros sites
Gilberto Jr 26 Denunciar post Postado Abril 20, 2017 entendi @brcontainer obrigado. Compartilhar este post Link para o post Compartilhar em outros sites