Amigos,

Meu problema é o seguinte:

Tenho as variáveis:

Codigo, Produto, Valor e Qtde

Quero gravá-las em um arquivo .txt mas com a seguinte condição:

Código - caracter 1 à 6

Produto - caracter 7 à 27

Valor - caracter 28 à 34

Qtde - Caracter 35 à 40

 

isso porque fica fácil de ler o arquivo .txt

 

Grato

faz o seguinte,

 

as variaveis tem q ser strings

 

sCodigo = format(codigo,'000000')

produto = left(trim(produto),27)

sProduto = produto + string(len(produto)-27," ")

svalor = format(cdbl(valor),'000.00')

sqtd  = format(qtd,'00000')

 

depois

scodigo & sproduto & svalor & sqtd

gravando no text

 

 

Humberto Nozaki

Testa essa dica que uso muito quando tenho que enviar folha de pagamento para o Banco

 

Cabecalho = "0" 'Codigo de registro
Cabecalho = Cabecalho & "1" 'Codigo de Remessa
Cabecalho = Cabecalho & "REMESSA" 'Literal de remessa
Cabecalho = Cabecalho & "08" 'Codigo de servico
Cabecalho = Cabecalho & "CONTAS A PAGAR" 'Literal de servico
Cabecalho = Cabecalho & "0123" 'Agencia do cliente
Cabecalho = Cabecalho & "205769" 'Conta do cliente
Cabecalho = Cabecalho & "3" 'DV do cliente
Cabecalho = Cabecalho & "EMPRESA FICTICIAL SA        " 'Nome do cliente
Cabecalho = Cabecalho & "409" 'Codigo do banco
Cabecalho = Cabecalho & "UNIBANCO" & String(15 - Len("UNIBANCO"), " ") 'Nome do banco
Cabecalho = Cabecalho & Format(Date, "DDMMYY") 'Data da gravacao
Cabecalho = Cabecalho & String(224, " ") 'Reservado
Cabecalho = Cabecalho & "000001" 'Numero sequencial