Fórum delimitador de arquivos texto #267358
03/02/2005
0
Eu queria saber se em arquivo texto ´.txt´ exite delimidador de texto?
Joni
Curtir tópico
+ 0Posts
03/02/2005
Kitsystem
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
Gostei + 0
04/02/2005
Joni
Gostei + 0
04/02/2005
Aroldo Zanela
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
Gostei + 0
04/02/2005
Dopi
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
Gostei + 0
19/01/2007
Saraujo
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]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)