ALINHAMENTO TXT

 Tópico anterior Próximo tópico Novo tópico

ALINHAMENTO TXT

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#341005 - 05/05/2010 15:06:38



Cadast. em:


amigos estou exportando os dados da minha tabela para o txt, entao preciso colocar elas na ordem que me medem no layout.
primeiro to fazendo assim.

Dim Linha As String

connect
  
    Open App.Path & []\ArquivoDadosTexto.txt[] For Output As #1
  
  Sql = []select a.codp, a.descricao,a.icms, a.unidades,  b.estoque, c.pratl from cad_produto a, estoque b, precos c where a.codp = b.codp and a.codp = c.codp and a.ativo = [][] & []S[] & [][]  order by a.descricao[]
      
         Rs.Open Sql, Con
  
    Rs.MoveFirst
    
    Do While Not Rs.EOF
      
        Print #1, []L[], Format(Rs!codp, []00000000000[]), Format(Rs!descricao, []000000000000000000000000000000000000000000000[])
        
        Rs.MoveNext
    Loop
    
    Close #1

mas eu preciso que esses dados fiquem de acordo como seguinte layout:



Registro de Movimento

Campo    Posio    Tamanho    Mscara
Indentificao      1   a     1    1    L
Cdigo do Produto      2   a   11    10    9999999999
Nome do Produto    12   a   61    50    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Classificao IPI    62   a   73    12    9999.99.9999
Quantidade Estoque    74   a   84    11    99999999,99
Valor Unitrio    85   a   95    11    99999999,99


pois o que eu estou salvando ta ficando assim:

L             00000017075   100PS 10G C/1                          
L             00000018727   4-14-08 FERTILIZANTE 1KG C/1            
L             00000027108   4-4-8 + MOCRO 120ML C/1                
L             00000024966   A.D.E.PFIZER 50ML C/1                  

onde o correto seria
L000000187274-14-08 FERTILIZANTE 1KG C/1            
L000000271084-4-8 + MOCRO 120ML C/1                
L00000024966A.D.E.PFIZER 50ML C/1        

como posso fazer neste caso.
obrigado          




Resposta escolhida #341007 - 05/05/2010 15:14:25

RRANGON
OSASCO
Cadast. em:Setembro/2004


Tente isso:

Print #1, TRIM$([]L[]), Format(Rs!codp, []00000000000[]), Format(Rs!descricao, []000000000000000000000000000000000000000000000[])

No me lembro muito bem, mas acho que tem que separar os campos com ponto-e-virgula tambm, mas no tenho muita certeza no.

Ronaldo Rangon

Desenvolvimento de Sistemas

Melhor brigar com a esposa do que com a EX-esposa...

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por em 06/05/2010 07:53:04