tirar barraa de data dentro do txt

[rafa-martin 2]

pessoal estou gerando um arquivo texto dessa forma:

 

var_path = "c:\"

dia = day(date)

mes = month(date)

ano = year (date)

var_fileName = dia & ("_") & mes & ("_") & ano & ("_") & totvez & (".txt")

'var_fileName = "0002.txt"

 

' *********** CHAMA O OBJETO PARA CRIAR O ARQUIVO TXT *************

set fso = server.createobject("scripting.FileSystemObject")

' *********** CRIA O ARQUIVO TXT *************

set cria_txt = fso.CreateTextFile(var_path&var_fileName)

 

 

' *********** ELEIMANDO OS ESPAÇOS DO ARQUIVO TXT *************

space_data = " "

space_cnpj = " "

space_brick = " "

space_situacao = " "

 

' *********** ESCREVE O ARQUIVO TXT *************

'cria_txt.writeLine "Data" + " " + "CNPJ Farmácia" + " " + "Cod.Brick" + " " + "Situação" + " " + "Observação"

while not Conj_Registros.EOF

if len(Conj_Registros("situacao")) = 2 then

space_situacao = " "

else

space_situacao = " "

end if

 

cria_txt.writeLine (Conj_Registros("cnpj_farmacia")) + space_cnpj + (Conj_Registros("data")) + space_data + (Conj_Registros("codigo_brick")) + space_brick + (Conj_Registros("situacao")) + space_situacao + ( replace( Conj_Registros("obs") ,chr(13),";") )

Conj_Registros.MoveNext

wend

set cria_txt = nothing

set fso = nothing

'Conj_Registros("total") = totvez

 

 

só que dentro do arquivo o campo data está aparecendo assim: 10/05/2005. Porém quando eu gerar o arquivo texto, o campo data tem que aparecer dessa forma: 10052005.

 

estoou usando assim:

replace(Conj_Registros("data") & "","\",""))

só que não está dando certo. não sei se é porque estou colocando no lugar errado.

estou colocando aqui:

 

' *********** ELEIMANDO OS ESPAÇOS DO ARQUIVO TXT *************

space_data = " "

space_cnpj = " "

space_brick = " "

space_situacao = " "

replace(Conj_Registros("data") & "","\",""))

' *********** ESCREVE O ARQUIVO TXT *************

'cria_txt.writeLine "Data" + " " + "CNPJ Farmácia" + " " + "Cod.Brick" + " " + "Situação" + " " + "Observação"

while not Conj_Registros.EOF

if len(Conj_Registros("situacao")) = 2 then

space_situacao = " "

else

space_situacao = " "

end if

 

cria_txt.writeLine (Conj_Registros("cnpj_farmacia")) + space_cnpj + (Conj_Registros("data")) + space_data + (Conj_Registros("codigo_brick")) + space_brick + (Conj_Registros("situacao")) + space_situacao + ( replace( Conj_Registros("obs") ,chr(13),";") )

Conj_Registros.MoveNext

wend

set cria_txt = nothing

set fso = nothing

'Conj_Registros("total") = totvez

 

alguém pode me ajudar? por favor eu preciso disso ainda hj.

 

valeu

[Twunay 1]

Olá Rafa,O seu código:replace(Conj_Registros("data") & "","\",""))Porque a barra está invertida se você tem que retirar a barra normal?Também não precisa do &, ele está a mais.replace(Conj_Registros("data"),"/",""))Tenta agora...Boa Sorte, :wacko: Twunay

[rafa-martin 2]

cara, não adianta olha o erro que me dá:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0414)Não é possível usar parênteses ao chamar um Sub/ArquivoTxtGerado.asp, line 68, column 38replace(Conj_Registros("data"),"/","")porque?

[Mário Monteiro 179]

tenta concatenar mesmodata = DAY(data) & MONTH(data) & YEAR(data)

[rafa-martin 2]

cara não adiantou.porque será que não está funcioando?

[Mário Monteiro 179]

qual o erro??

[rafa-martin 2]

cara não dá nenhum erro.ele gera o arquivo, mais as barras na data continua.

[Mário Monteiro 179]

concatena como eu falei qua não vai ter barra...

[rafa-martin 2]

cara, já fiz da forma que você me passou e não adianta. veja novamente como gero o txt e o código que você me passou:<%' *********** CRIAÇÃO DO ARQUIVO TXT *************var_path = "c:\"'vardata = Conj_Registros("data")'var_nova=replace(vardata,"/","")'replace(Conj_Registros("data") & "","/","")'replace(Conj_Registros("data"),"/","")var = DAY(vardata) & MONTH(vardata) & YEAR(vardata) dia = day(date)mes = month(date)ano = year (date)var_fileName = dia & ("_") & mes & ("_") & ano & ("_") & totvez & (".txt")'var_fileName = "0002.txt"' *********** CHAMA O OBJETO PARA CRIAR O ARQUIVO TXT *************set fso = server.createobject("scripting.FileSystemObject") ' *********** CRIA O ARQUIVO TXT *************set cria_txt = fso.CreateTextFile(var_path&var_fileName)' *********** ELEIMANDO OS ESPAÇOS DO ARQUIVO TXT *************space_data = " "space_cnpj = " " space_brick = " "space_situacao = " "'replace(Conj_Registros("data") & "","\",""))' *********** ESCREVE O ARQUIVO TXT *************'cria_txt.writeLine "Data" + " " + "CNPJ Farmácia" + " " + "Cod.Brick" + " " + "Situação" + " " + "Observação"while not Conj_Registros.EOF if len(Conj_Registros("situacao")) = 2 then space_situacao = " " else space_situacao = " " end if cria_txt.writeLine(Conj_Registros("cnpj_farmacia")) + space_cnpj + (Conj_Registros("data")) + space_data + (Conj_Registros("codigo_brick")) + space_brick + (Conj_Registros("situacao")) + space_situacao + ( replace( Conj_Registros("obs") ,chr(13),";") ) Conj_Registros.MoveNextwendset cria_txt = nothingset fso = nothing'Conj_Registros("total") = totvez%>e assim do jeito que você me passou não funciona.me dá um help.valeu

[rafa-martin 2]

cara consegui.eu é que estava errando.valeu

[Mário Monteiro 179]

sim mas você não usa nada concatenado(Conj_Registros("data"))tem que usar assimDAY(Conj_Registros("data")) & MONTH(Conj_Registros("data")) & YEAR(Conj_Registros("data"))veja isso...