|
Postada em 08/04/2005 12:10 hs
pessoal, preciso de um help de vc's. eu tenho uma tela que gera um arquivo txt. só que dentro desse arquivo estou com um problema. Dentro do arquivo está uma data. E o meu sistema pega a data do sistema (windows). E no arquivo txt o a data está aparecendo com barras (00/00/0000). Só que preciso deixar essa data no arquivo txt sem as barras (00000000). Já varri linha por linha do arquivo, fiz umas coisas aqui e não consigo tirar essas barras. Eu quero gerar o arquivo e quando eu abrir a data aparecer sem as barras. Alguém me ahude, por favor. Como eu posso tirar essas barras da data dentro do arquivo txt?
Rafael Carlos Martin Desenvolvedor de WebSites e Sitemas E-mail:rafa-martin@ibest.com.br
|
|
|
|
Jayme
|
SÃO PAULO SP - BRASIL
|
|
Postada em 08/04/2005 12:28 hs
Acho que posso te ajudar, mas preciso saber como está sendo gerado este arquivo.txt ? Jayme
|
|
|
|
Postada em 08/04/2005 12:34 hs
está com dados do banco de dados
Rafael Carlos Martin Desenvolvedor de WebSites e Sitemas E-mail:rafa-martin@ibest.com.br
|
|
|
Jayme
|
SÃO PAULO SP - BRASIL
|
|
Postada em 08/04/2005 12:52 hs
No momento de gravar a data tire as barras: Linha = rs!Nome & rs!Telefone & Mid(Date, 1, 2) & Mid(Date, 4, 2) & Mid(Date, 7, 4) Jayme
|
|
|
|
Postada em 08/04/2005 13:01 hs
cara valeu só que estou com im outro problema. quando eu tiro as barras, a data vai ficar assim: 882005. e eu preciso que a data fique assim no arquivo txt: 08082005. Ou seja, quando eu clicar no botão gerar arquivo, por exemplo, eu vou no diretório que foi gerado, aí quando eu abrir a data tem que estar sem as barras (código que vc me passou) e com os zeros no dia e no mês: 08082005. Pensei numa coisa assim: If dia <= 9 then joga o zero else endif if mes <=9 joga zero else endif só que não sei se é assim e como eu jogo o zero. Como faço isso? valeu
Rafael Carlos Martin Desenvolvedor de WebSites e Sitemas E-mail:rafa-martin@ibest.com.br
|
|
|
Tekki
|
UBERLÂNDIA MG - BRASIL
|
|
Postada em 08/04/2005 13:58 hs
Dim rsCampoData As String rsCampoData = Format(Date, "DD/MM/YYYY") 'Exemplo 1 MsgBox Left(rsCampoData, 2) & Mid(rsCampoData, 4, 2) & Right(rsCampoData, 4) 'Exemplo 2 MsgBox Replace(rsCampoData, "/", "")
|
|
|