Quebra de linha no arquivo txt

[Gilberto Jr 26]

Bom dia.

 

Eu queria saber como que eu faço pra colocar uma quebra de linha no arquivo txt que eu estou criando.

O código que eu uso é

<%
function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia &" "&time
end function


response.Write(replace(replace(replace(mask_data(Date),"-","")," ",""),":",""))

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=186.202.152.38;PORT=3306;DATABASE=tecnogalli2;USER=tecnogalli2;PASSWORD=****;OPTION=3;")
	'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

set rs = conn.execute("select * from arquivo")	

' Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Preparando o caminho (Path) do arquivo
caminho = Server.MapPath("arquivos/"&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))
rs.movenext
wend
'GRAVAR.write (request.form("Texto"))
GRAVAR.close
%>

Nesse código eu consigo fazer a quebra de linha mas eu tenho que incrementar um ponto "." e eu queria fazer a mesma se colocar o ponto.

 

Att;

[xanburzum 169]

tentou usar o Writeline, ou insira o Chr(13)

[Gilberto Jr 26]

Mais uma vez vc resolveu a minha situação Xan.

 

Ficou assim o meu código

<%
function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia &" "&time
end function


response.Write(replace(replace(replace(mask_data(Date),"-","")," ",""),":",""))

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=186.202.152.38;PORT=3306;DATABASE=tecnogalli2;USER=tecnogalli2;PASSWORD=******;OPTION=3;")
	'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

set rs = conn.execute("select * from arquivo")	

' Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Preparando o caminho (Path) do arquivo
caminho = Server.MapPath("arquivos/"&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.write (rs("notafiscal")&" "&rs("valor")&" "&rs("valoricms")&Chr(13))
rs.movenext
wend
'GRAVAR.write (request.form("Texto"))
GRAVAR.close

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

 

Att;