USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  problemas com arquivo txt gerado
Rafael The Best
SÃO PAULO
SP - BRASIL
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
 
 
 
 
     
Rafael The Best
SÃO PAULO
SP - BRASIL
ENUNCIADA !
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
     
Rafael The Best
SÃO PAULO
SP - BRASIL
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
Pontos: 2843 Pontos: 2843 Pontos: 2843
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, "/", "")
     
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página