Fórum Como gerar arquivo txt determinando a posição(coluna)? #319586
20/04/2006
0
Como gerar arquivo txt determinando a posição(coluna) dos dados no arquivo TXT?
Exvasp
Curtir tópico
+ 0
Responder
Posts
20/04/2006
Edilcimar
colocando espaços em branco, ou usar tabulação
Responder
Gostei + 0
22/04/2006
Seccomiro
use a seguinte função:
onde [color=red:0a5e1ba148]str[/color:0a5e1ba148] é a string a ser gravada e [color=red:0a5e1ba148]tam[/color:0a5e1ba148] é o tamanho que tal string assumirá, ou seja:
Passando os seguintes valores:
o valor de retorno seria:
ela completa com espaços!
espero ter ajudado!
:wink: :wink:
[]´ssss
function TForm1.AjustaStr(str: String; tam: Integer): String;
begin
while Length ( str ) < tam do
str := str + ´ ´;
if Length ( str ) > tam then
str := Copy ( str, 1, tam );
Result := str;
end;onde [color=red:0a5e1ba148]str[/color:0a5e1ba148] é a string a ser gravada e [color=red:0a5e1ba148]tam[/color:0a5e1ba148] é o tamanho que tal string assumirá, ou seja:
Passando os seguintes valores:
AjustaStr(´Teste´; 15);
o valor de retorno seria:
´Teste ´
ela completa com espaços!
espero ter ajudado!
:wink: :wink:
[]´ssss
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)