[delphi-br] Procura Caracteres

Tue, 09 Aug 2005 13:16:14 -0700 

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

<*> 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

Responder a