arquivo txt de largura fixa

[Morris Ruschel 0]

Preciso criar um txt de largura fixa...é uma lista de produtos assim....# CAMPO TIPO TAM DESCRIÇÃO1 ID_REGISTRO int 6 ID Sequencial do registro no arquivo (incremento de 1)2 TIPO_REGISTRO char 1 Tipo de Registro: H - Header; D - Detail; T - Trailer3 DATA_ARQUIVO datetime 20 Data da geração do arquivo.(DD/MM/AAAA HH:MM:SS)4 ID_ORIGEM int 6 ID da Origem dos Dados do Arquivo: Ckless: 15 ID_ARQUIVO int 6 ID Sequencial do Arquivo (incremento de 1)6 TOTAL_REGISTROS int 6 Campo preenchido com zeros (0)7 ID_PRODUTO int 10 Id do produto na Senna Store8 DESC_PRODUTO char 100 Descrição do produto9 VALOR money 10 Valor em reais do produto com duas casas decimais10 QTDE_ESTOQUE int 10 Quantidade em estoque11 URL_IMAGEM_GRD char 100 URL da imagem grande do produto12 URL_IMAGEM_PEQ char 100 URL da imagem pequena do produtopreciso muito de ajuda...

[Salgado 4]

Já sabe a rotina de criação do arquivo?

Podemos criar uma função que insere "espaços" para completar o tamanho de campo seu, não é dificil, fiz isso uma vez para um programa em Delphi.

A function basicamente seria:

Function AjustaEspacos(TxtEntrada, CaractereInserir, TamanhoFinal)
If Len(TxtEntrada) > TamanhoFinal Then
	AjustaEspacos = false
Else
	For x = Len(TxtEntrada) to TamanhoFinal
		Espacos = Espacos & CaractereInserir
	Next
	AjustaEspacos = TxtEntrada & Espacos
End If
End Function

[Morris Ruschel 0]

Vlw.... acabei fazendo isso mesmo hoje... hehehee..Mas valew por ter postado, também achei este o melhor metodo...Morris Ruschel

[Morris Ruschel 0]

Agora to no trampo... Fiz assim:

	Function FtnEspacoFixo(strCampo, strCaracter, strTamanhoFinal, strLado)		For i = (Len(strCampo) +1) To strTamanhoFinal			If strLado = True Then 'Direita				strCampo = strCampo & strCaracter			Else 'Esquerda				strCampo = strCaracter & strCampo			End If		Next				FtnEspacoFixo = strCampo			End Function

Vlw