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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ajustar Colunas num TXT?
MINER
POTIRENDABA
SP - BRASIL
Postada em 20/06/2005 15:31 hs            
ola pessoal estou usando este codigo pra gerar um .TXT
  Open "C:Teste.txt" For Output As #1
  Print #1, "Codigo", "Nome", "Valor"
  Print #1,
  Set Rs = bd.OpenRecordset("tb1", dbOpenTable)
   Do While Not Rs.EOF
  Print #1, Rs.Fields("codigo"); vbTab; Rs.Fields("nome"); vbTab; Rs.Fields("valor")
  Rs.MoveNext
  Loop
  Close #1
MsgBox "TXT Criado com sucesso."
ate ai bl ele gera normal o TXT mas o problema ta nas colunas
Veja como fica:
Codigo        Nome          Valor
1               adriu de oliveira 200
2               adrianu        300
3               belet           400
4               betoco        500
5               bil               600
Como faço pro conteudo do nome ou de um outro campo nao execer em cima do outro e ajustar a coluna direitinhopelo tamanho do campo?
pra ficar assim:
Codigo        Nome               Valor
1               adriu de oliveira  200
2               adrianu             300
3               belet                400
4               betoco              500
5               bil                    600
     
VACA
LIMEIRA
SP - BRASIL
Postada em 20/06/2005 16:12 hs            
naum sei c posso ajudar muito...
c vc contar a quantidade d caracteres do campo nome e criar um padraum de espaços(ou tabs)  para as quantidades naum ajuda.... para isso vc poderia usar a função LEN do vb....
naum sei c ajudei mt mais jah foi uma ideia
     
MINER
POTIRENDABA
SP - BRASIL
Postada em 20/06/2005 16:24 hs            
Tentei mas num saiu nada ate agora nao kra
se tiver alguem q mexe bastante com a funçao me paasse com + ou - vou montar
??
helP?
Agradeço desde ja pessoal
 
     
Página(s): 1/1    


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