Fórum Ler um arquivo(complicado) #175536
17/08/2003
0
Pessoal tenho que ler um arquivo e separar somente o que eu quero vejam um exemplo quando aberto pelo bloco de notas
//texto que está escrito dentro do arquivo teste.cfg
begin codes
power 0x00000000002BE141
vcr/tv 0x00000000002BF140
eject 0x000000000029016
end codes
Então eu gostaria de pegar somente o que vai estar escrito depois de ´begin codes´ e antes de ´end codes´ e sem os codigos ´0x000....´
exemplo
power
vcr/tv
eject
Muito obrigado
//texto que está escrito dentro do arquivo teste.cfg
begin codes
power 0x00000000002BE141
vcr/tv 0x00000000002BF140
eject 0x000000000029016
end codes
Então eu gostaria de pegar somente o que vai estar escrito depois de ´begin codes´ e antes de ´end codes´ e sem os codigos ´0x000....´
exemplo
power
vcr/tv
eject
Muito obrigado
Rafael Roni
Curtir tópico
+ 0
Responder
Posts
17/08/2003
Ndjei
Rafael joga o conteudo em uma stringlist ai fica facil usando o comando copy nas linhas selecionadas
Responder
Gostei + 0
17/08/2003
4_olho
Em um form adicione um botão e um Memo.
procedure TForm1.Button1Click(Sender: TObject);
var
arq: TextFile;
linha: String;
begin
AssignFile (arq, ´d:\temp\apagar.txt´); // substitua pelo seu arquivo
Reset (arq);
Memo1.Clear;
while not Eof(arq) do
begin
ReadLn (arq, linha);
if (copy(linha,1,11)=´begin codes´) or (copy(linha,1,9)=´end codes´) then
next
else
Memo1.Lines.Add(copy(linha,1,pos(´ ´,linha)-1));
end;
CloseFile (arq);
end;
end.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)