Varrendo txt

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

Respostas

21/11/2005

Massuda

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


Responder Citar

21/11/2005

Peununes

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? :)


Responder Citar

21/11/2005

Marcio.theis

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&93; = ´<´) or (texto <> ´´)) then
        texto:=texto + Memo1.Lines.Text&91;x&93;;
    if Memo1.Lines.Text&91;x&93; = ´>´ then
        begin
        texto:=copy(texto,2,length(texto) - 2);
        Memo2.Lines.Add(texto);
        texto:=´´;
        end;
    end;
end;



Responder Citar

21/11/2005

Peununes

MARAVILHA! Obrigadão!

Grande abraço!


Responder Citar