Varrendo txt

Delphi

21/11/2005

Bom dia! Pesquisei aqui e não encontrei! Depois que carrego um arquivo txt em um memo, preciso varrer o conteúdo, caracter a caracter, até encontrar <. A partir daí, copio para outro memo, caracter a caracter, até encontrar >. então volto a primeira rotina e continuo varrendo o texto.

Alguém sabe como fazer isso?

Grande abraço!


Peununes

Peununes

Curtidas 0

Respostas

Massuda

Massuda

21/11/2005

Use a propriedade TMemo.Lines.Text para acessar todo conteudo do Memo através de uma única grande string.


GOSTEI 0
Peununes

Peununes

21/11/2005

hum, acho que não fui muito claro. Preciso verificar cada um dos caracteres de uma linha do texto de um memo, ok? Achando um <, começo a copiar os caracteres para outro memo até encontrar >.

Entendeu? :)


GOSTEI 0
Marcio.theis

Marcio.theis

21/11/2005

Bom... Vc pode fazer de uma forma bem simples, uma delas seria:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    x: integer;
    texto: string;
begin
texto:=´´;
for x:=1 to length(Memo1.Lines.Text) do
    begin
    if ((Memo1.Lines.Text[x] = ´<´) or (texto <> ´´)) then
        texto:=texto + Memo1.Lines.Text[x];
    if Memo1.Lines.Text[x] = ´>´ then
        begin
        texto:=copy(texto,2,length(texto) - 2);
        Memo2.Lines.Add(texto);
        texto:=´´;
        end;
    end;
end;



GOSTEI 0
Peununes

Peununes

21/11/2005

MARAVILHA! Obrigadão!

Grande abraço!


GOSTEI 0
POSTAR