Fórum retirando string de em aruqivo texto #273364
21/03/2005
0
Ola pessoal, gostaria de saber se alguem pode me ajudar com esta.
preciso retirar parte de um texto que esta em um arquivo Bloco de Notas.
Sera que alguem poderia me ajudar com esta????
Obrigado!!!!! :D
preciso retirar parte de um texto que esta em um arquivo Bloco de Notas.
Sera que alguem poderia me ajudar com esta????
Obrigado!!!!! :D
Tux_bh
Curtir tópico
+ 0
Responder
Posts
21/03/2005
Marcio.theis
Se você esta falando de um arquivo do tipo .txt você pode fazer da seguinte forma:
CloseFile(txt);
txt -> Variável do tipo TextFile;
caminho -> Variável do tipo String com o caminho do arquivo txt;
str -> Variável do tipo String que irá receber o conteúdo do arquivo;
E se quiser copiar uma pedaço da linha basta usar o comando copy em cima da variável str.
AssignFile(txt, caminho);
{$I-}
Reset(txt);
{$I+}
if IOResult = 0 then
begin
Readln(txt, str);
Showmessage(str);
end;CloseFile(txt);
txt -> Variável do tipo TextFile;
caminho -> Variável do tipo String com o caminho do arquivo txt;
str -> Variável do tipo String que irá receber o conteúdo do arquivo;
E se quiser copiar uma pedaço da linha basta usar o comando copy em cima da variável str.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)