Exportação de Paradox para Arquivo Texto
Estou com o seguinte problema: Tenho que fazer uma exportação de dados de uma tabela paradox para um arquivo texto, mas é necessário seguir um layout no arquivo texto por exemplo:
[b:a9dae6169c]Posição[/b:a9dae6169c] - 01-40 , 41-47
[b:a9dae6169c]tamanho[/b:a9dae6169c] - 40 , 07
[b:a9dae6169c]tipo de dado[/b:a9dae6169c] - AlfaNumérico , Numérico
[b:a9dae6169c]descrição[/b:a9dae6169c] - Nome do Cliente , Número do Endereço
Nos campos núméricos os espaços em branco à esquerda devem ser preenchidos com zeros, e no campo AlfaNumério deve ser alinhado a esquerda com espaços à direita.
Se alguém tiver uma solução, para me ajudar, eu agradeço....
[b:a9dae6169c]Posição[/b:a9dae6169c] - 01-40 , 41-47
[b:a9dae6169c]tamanho[/b:a9dae6169c] - 40 , 07
[b:a9dae6169c]tipo de dado[/b:a9dae6169c] - AlfaNumérico , Numérico
[b:a9dae6169c]descrição[/b:a9dae6169c] - Nome do Cliente , Número do Endereço
Nos campos núméricos os espaços em branco à esquerda devem ser preenchidos com zeros, e no campo AlfaNumério deve ser alinhado a esquerda com espaços à direita.
Se alguém tiver uma solução, para me ajudar, eu agradeço....
Andregarcia
Curtidas 0
Respostas
Nigro
16/01/2004
Numeros
FormatFloat(´0000000´, 99);
String
function Padr(s:string;n:integer):string;
{alinha uma string à direita}
begin
Result:=Format(´¬´+IntToStr(n)+´.´+IntToStr(n)+´s´,[s]);
end;
FormatFloat(´0000000´, 99);
String
function Padr(s:string;n:integer):string;
{alinha uma string à direita}
begin
Result:=Format(´¬´+IntToStr(n)+´.´+IntToStr(n)+´s´,[s]);
end;
GOSTEI 0
Andregarcia
16/01/2004
Valeu Nigro....
com relação ao FloatStr eu já sabia, a minha dificuldade mesmo era com relação a String.....
valeu, um abraço.....
com relação ao FloatStr eu já sabia, a minha dificuldade mesmo era com relação a String.....
valeu, um abraço.....
GOSTEI 0