Patricia, faça o Download do programa deste artigo do link a seguir, que mostra
uma forma de fazer este parser.
www.clubedelphi.net/artigos/DocProjetos.asp
----- Original Message -----
From: Patricia Santana
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 09, 2005 5:16 PM
Subject: [delphi-br] Procura Caracteres
Boa tarde,
Alguém tem um exemplo de como bucar informações dentro de um texto?
Consegui trazer o texto abaixo para dentro de um memo usando a procedure
abaixo. Agora preciso trazer o texto limpo, contendo somente as datas e os
andamentos para dentro de outro memo. Por favor, alguém pode ajudar?
O texto é :
<TR><TD VALIGN=TOP><b>19/01/2005</b></TD><TD VALIGN=TOP>119 - Autos conclusos
ao juiz para despacho</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>11/01/2005</b></TD><TD VALIGN=TOP>362 - Autos aguardando
juntada</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>17/12/2004</b></TD><TD VALIGN=TOP>261 - Autos aguardando resposta
de oficio</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>17/12/2004</b></TD><TD VALIGN=TOP>105 - Autos devolvidos
do(a)</TD><TD VALIGN=TOP><FONT>PELO JUIZ</TD></TR><TR><TD
VALIGN=TOP><b>14/12/2004</b></TD><TD VALIGN=TOP>119 - Autos conclusos ao juiz
para despacho</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>07/12/2004</b></TD><TD VALIGN=TOP>262 - Autos para expedir
oficio</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>19/05/2004</b></TD><TD VALIGN=TOP>357 - Autos aguardando
devolucao de carta precatoria</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>19/05/2004</b></TD><TD VALIGN=TOP>105 - Autos
devolvidos do(a)</TD><TD VALIGN=TOP><FONT>PELO JUIZ</TD></TR><TR><TD
VALIGN=TOP><b>17/05/2004</b></TD><TD VALIGN=TOP>119 - Autos conclusos ao juiz
para despacho</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>14/05/2004</b></TD><TD VALIGN=TOP>035 - Autos aguardando remessa
a xerox</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>06/05/2004</b></TD><TD VALIGN=TOP>359 - Expedir carta
precatoria</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>05/05/2004</b></TD><TD VALIGN=TOP>282 - Audiencia
realizada</TD><TD VALIGN=TOP><FONT>Dr(a). PAULO EDUARDO NORI
MORTARI</TD></TR><TR><TD VALIGN=TOP><b>06/02/2004</b></TD><TD VALIGN=TOP>022 -
Audiencia remarcada para</TD><TD VALIGN=TOP><FONT>05052004
1400</TD></TR><TR><TD VALIGN=TOP><b>29/01/2004</b></TD><TD VALIGN=TOP>326 -
Autos aguardando audiencia</TD><TD VALIGN=TOP><FONT></TD></TR><TR><TD
VALIGN=TOP><b>20/01/2004</b></TD><TD VALIGN=TOP>322 - Autos aguardando expedir
diligencias</TD><TD
VALIGN=TOP><FONT></TD></TR><TR><TD VALIGN=TOP><b>20/01/2004</b></TD><TD
VALIGN=TOP>248 - Audiencia designada para o dia</TD><TD
VALIGN=TOP><FONT>05/04/2004 14:00</TD></TR><TR><TD
VALIGN=TOP><b>17/12/2003</b></TD><TD VALIGN=TOP>046 - Autos com
funcionario(a)</TD><TD VALIGN=TOP><FONT>WIL</TD></TR><TR><TD
VALIGN=TOP><b>16/12/2003</b></TD><TD VALIGN=TOP>007 - Autos distribuidos ao
cartorio</TD><TD VALIGN=TOP><FONT></TD></TR>
procedure TForm1.Button1Click(Sender: TObject);
const
VarAntesData = '<TR><TD VALIGN=TOP><b>';
VarAntesAnd = '</b></TD><TD VALIGN=TOP>';
VarFimAnd = '<';
var
I, J, Cont, PosReturnLinha,PosReturnData, PosReturnAnd,
Skipchars,TamanhoTagData,PosData : Integer;
Data, Andamento : String;
begin
for I := 0 to Memo1.Lines.Count do
begin
PosReturnLinha:= Pos(VarAntesData, Memo1.Lines[I]);
//Caracteres encontrados.
if (PosReturnLinha <> 0) then
begin
Skipchars := 0;
for J := 0 to I - 1 do
Skipchars := Skipchars + Length(Memo1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturnLinha - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(Memo1.Lines[J]);
MemoLinha.Text := Memo1.Lines[J];
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.9.7/60 - Release Date: 28/07/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
