Fórum delimitador de arquivos texto #267358

03/02/2005

0

eu estou preenchendo aqruivo texto com o seguinte comando write(arq, format(´¬147s´, [´00000´])); só quem em vez deste código colocar o valor ´00000´ na posição 147 da linha em q estou trabalhando ele coloca na linha debaixo la pela posição 20.
Eu queria saber se em arquivo texto ´.txt´ exite delimidador de texto?


Joni

Joni

Responder

Posts

03/02/2005

Kitsystem

Nao tem delimitador! Apenas se vc criar o #13 ( CR )

Este seu codigo de inserir um texto apartir da posicao 147, utilize o comando Insert do Delphi, mas caso a linha ainda nao tenha dados os nao tenho até o momento 147, vc precisa preencher com espacos


Responder

Gostei + 0

04/02/2005

Joni

Certo e como funciona o camando Insert?


Responder

Gostei + 0

04/02/2005

Aroldo Zanela

Colega,

Veja o exemplo abaixo e o resultado obtido. Se ainda permanecer alguma dúvida, basta postar aqui novamente:

var Arquivo: TextFile;
    I: SmallInt;
    Linha: String;
begin
  AssignFile(Arquivo, ´c:\lixo.txt´);
  ReWrite(Arquivo);
  For i := 1 to 10 do
  begin
    Linha := Format(´¬-40s´, [´Aroldo Zanela´]) + // 1-40  Alinha a esquerda com brancos a direita
             ´|´ +                                // 41    Só para ver o posicionamento
             Format(´¬20s´,[´Brasilia´]) +        // 42-61 Alinha a direita com brancos a esquerda
             FormatFloat(´0000´, I);              // 62-65 preenche com zeros
    WriteLn(Arquivo, Linha);
  end;
  CloseFile(Arquivo);
end;


Resultado (Lixo.txt):

         1         2         3         4         5         6         7
1234567890123456789012345678901234567890123456789012345678901234567890
Aroldo Zanela                           |            Brasilia0001
Aroldo Zanela                           |            Brasilia0002
Aroldo Zanela                           |            Brasilia0003
Aroldo Zanela                           |            Brasilia0004
Aroldo Zanela                           |            Brasilia0005
Aroldo Zanela                           |            Brasilia0006
Aroldo Zanela                           |            Brasilia0007
Aroldo Zanela                           |            Brasilia0008
Aroldo Zanela                           |            Brasilia0009
Aroldo Zanela                           |            Brasilia0010



Responder

Gostei + 0

04/02/2005

Dopi

[quote:dce99f59c0=´Aroldo Zanela´]
Linha := Format(´¬-40s´, [´Aroldo Zanela´]) + // 1-40 Alinha a esquerda com brancos a direita
Format(´¬20s´,[´Brasilia´]) + // 42-61 Alinha a direita com brancos a esquerda
[/quote:dce99f59c0]

Não sabia que o Format fazia isso... :-)
Chegei até escrever várias funções para esse tipo de alinhamento...
Aprendi mais uma... Valeu Zanela


Responder

Gostei + 0

19/01/2007

Saraujo

E o campo tipo date, posso gravá-lo no txt yyyymmdd usando o format?


[quote:fab1d713da=´Aroldo Zanela´] Linha := Format(´¬-40s´, [´Aroldo Zanela´]) + // 1-40 Alinha a esquerda com brancos a direita Format(´¬20s´,[´Brasilia´]) + // 42-61 Alinha a direita com brancos a esquerda


Não sabia que o Format fazia isso... :-)
Chegei até escrever várias funções para esse tipo de alinhamento...
Aprendi mais uma... Valeu Zanela[/quote:fab1d713da]


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar