| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
zanitti
Aprendiz
Registrado: Terça-Feira, 16 de Mai de 2006
Mensagens: 266
Localização: Belo Horizonte
|
 Enviada: Sáb Ago 17, 2013 10:50 pm Assunto: Arquivo txt, posição de gravação |
 |
|
Galera, boa noite!
Seguinte, preciso gravar um determinado valor num arquivo txt.
Até aí tudo bem, tranquilo de fazer, o que tá pegando é que eu preciso colocar esse valor numa posição específica dentro do txt.
Tenho o nome de um responsável gravado na variável NOMRESP e preciso gravar esse nome na posição 158 do TXT (coluna 158).
Como fazer isso? |
|
| Voltar ao Topo |
|
 |
cyberdisk
Colaborador
Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP
|
|
| Voltar ao Topo |
|
|
zanitti
Aprendiz
Registrado: Terça-Feira, 16 de Mai de 2006
Mensagens: 266
Localização: Belo Horizonte
|
| Enviada: Dom Ago 18, 2013 4:20 am Assunto: |
|
|
cyberdisk, eu preciso gravar a string numa determinada posição DO ARQUIVO TXT existente em C:\arquivos\exemplo.txt
Nesse exemplo.txt eu preciso que na posição (coluna) 158 apareça o nome existente na variavel do meu sistema.
Veja como fiz:
| Código: | procedure TFrmFinancas.JvXPButton1Click(Sender: TObject);
var
txt: TextFile;
saida: string;
begin
AssignFile(txt, 'C:\Arquivos\teste.txt');
Rewrite(txt);
Write(txt, 'testando... 123');
CloseFile(txt);
end; |
naquele WRITE ali, o texto 'testando... 123' teria que ser gravado na posição (coluna) 158 do arquivo teste.txt. Isso que não estou sabendo como fazer, preciso de algo do tipo:
Write(txt, 'testando... 123', POSIÇÃO_NO_ARQUIVO_QUE_QUERO_GRAVAR) |
|
| Voltar ao Topo |
|
|
GustavoToyota
Profissional
Registrado: Domingo, 9 de Outubro de 2011
Mensagens: 605
Localização: Sorocaba - SP
|
| Enviada: Dom Ago 18, 2013 12:53 pm Assunto: |
|
|
| Esse arquivo tem mais de uma linha? |
|
| Voltar ao Topo |
|
|
zanitti
Aprendiz
Registrado: Terça-Feira, 16 de Mai de 2006
Mensagens: 266
Localização: Belo Horizonte
|
| Enviada: Dom Ago 18, 2013 3:01 pm Assunto: |
|
|
GustavoToyota, beleza cara?
Bom o arquivo tem só uma linha sim, porem preciso gravar nessa posição especifica |
|
| Voltar ao Topo |
|
|
GustavoToyota
Profissional
Registrado: Domingo, 9 de Outubro de 2011
Mensagens: 605
Localização: Sorocaba - SP
|
| Enviada: Dom Ago 18, 2013 7:56 pm Assunto: |
|
|
Tenta assim:
| Código: | var
F: TextFile;
Ln, NewLn: String;
begin
AssignFile(F, 'C:\Arquivos\teste.txt');
Reset(F);
ReadLn(F, Ln);
Insert('testando... 123', Ln, 158);
Rewrite(F);
Write(F, Ln);
CloseFile(F);
end; |
Abraços |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
