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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  arquivo testo
Aginaldo
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 10/03/2008 10:32 hs            
Bom dia
estou usando a seguinte linha de comando
TEXTO.Write XTBGET!CODIGOPROD & "   " & XTBGET!FABRICANTE & "   " & XTBGET!PRODUTO & " " & XTBGET!U_MEDIDA & "   " & XTBGET!QTD_MAT & "   " & XTBGET!QTD_LOJA & "   " & XTBGET!TOTAL & "   " & vbCrLf

funciona, mas quando o arquivo e gerado gera-se desta forma
codigo    fabricante    produto  valorunitario   total
0001      teste         cd rom      1             10
0002      teste2        lapis     15                15 
nota que os campos valorunitario e total nao estao alinhados, tem como eu fazer isso usando este comando?
 
   
Macaubal
não registrado
ENUNCIADA !
Postada em 10/03/2008 11:06 hs   
Voce tem que definir o tamanho de cada campo e separe com ; (ponto e virgula) para voce abrir no Excel. Exemplo
Cod = Tamanho( 5 )
Fab = 25
Pro = 25
VUn = 10
VlT = 10
'Para criar a linha utilize
Texto.Write String(5-len(Cod), " ") & Cod & ";" & string(25-len(Fab), " ") & fab & ";" _
      String(P25-len(Pro), " ") & Pro & ";" & String(10-len(VUn), " ") & Vun & ";" & String(10-len(VlT), " ") & VbCrlf
 
Nao sei se vai te ajudar, mas é uma ideia
 
   
Macaubal
não registrado
ENUNCIADA !
Postada em 10/03/2008 11:09 hs   
Texto.Write String(5-len(Cod), " ") & Cod & ";" & string(25-len(Fab), " ") & fab & ";" _
      String(P25-len(Pro), " ") & Pro & ";" & String(10-len(VUn), " ") & VUn & ";" & String(10-len(VlT), " ") & VLT & VbCrlf
 
 
   
Aginaldo
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 10/03/2008 14:19 hs            
neste caso o que significa a palavra STRING
 
   
Macaubal
não registrado
Postada em 10/03/2008 14:51 hs   
A palavra String significa que vc quer adicionar Algum campo texto antes do valor da variavel

Exemplo, o campo codigo tem obrigatoriamente que ter 5 caracteres mas sua variavel Codigo só tem 3 caracteres:
Codigo = 123

Utilizando a função

Codigo = String(5-len(codigo), "0") & Codigo

o Resultado será

No caso de cima eu utilizei " ", espaço

Codigo = 00123







     
Aginaldo
JUIZ DE FORA
MG - BRASIL
ENUNCIADA !
Postada em 10/03/2008 15:07 hs            
MAS NESTE CASO QUE PARTE DA LINHA DE COMANDO REFERE-SE A VARIAVEL DE BANCO DE DADOS
 
ELE GERA O ARQUIVO APENAS COM AS (,)
 
 
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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