Busqueda en un richedit o en un memo

[titomigue]

Hola, mi problema es que guardo el código fuente de una web en un memo o un richedit, y despues de guardarlo quiero buscar unos enlaces en ese código para poder luego guardarles en un array.

lo que quiero guardar en el array es tipo:
<a href="texto/index.php?=123456"></a>

y yo quiero guardar el texto/index.php?=123456
o simplemente el 123456.

Tambien e de decir que el 123456 varia en cada enlace, es un codigo aleatorio y tampoco tiene la misma longitud de caracteres.

Y que cuando me encuentre el primer enlace, despues de guardarle en un array siga buscando el siguiente asta el final del memo/richedit.

¿Alguna idea? Saludos.

[Ñuño Martínez]

Si el documento está bien construido, creo que la mejor opción es usar alguno de los diversos analizadores XML que existen para Delphi. Sólo tienes que buscar un poco para encontrarlos porque en el Club se han comentado estos componentes en más de una ocasión. Así, una vez analizado el contenido del RichEdit, sólo tienes que buscar nodos "a" y de los que encuentres sólo hay que copiar la propiedad "href".

[*Caro*]

Hola titomigue, puedes utilizar las funciones Pos, PosEx y Copy, tu codigo quedaría mas o menos así:

Código Delphi [-]
var
 Texto, Url, Valor : String;
 ............
begin
 PosIni := 0;
 Texto := Memo1.Text;
 While PosEx('<a href', Texto, PosIni)>0 Do
 begin
  PosIni := PosEx('<a href', Texto, PosIni);
  PosFin := PosEx('>', Texto, PosIni);
  
  //Obtenemos la Url
  Url := Copy(Texto, PosIni, PosFin-PosIni-1);  
  Ini := Pos('?=', Url);
  Valor := Copy(Url, Ini+2, Length(url)-1); //Valor lo guardas en tu arreglo o StringList
 
  Inc(PosIni);
 end;

Saluditos

[*Caro*]

Con las etiquetas [delphi ] se pierde parte del codigo, deben ser cosas del VBulletin, este es el codigo completo:

var
 Texto, Url, Valor : String;
 ............
begin
 PosIni := 0;
 Texto := Memo1.Text;
 While PosEx('<a href', Texto, PosIni)>0 Do
 begin
  PosIni := PosEx('<a href', Texto, PosIni);
  PosFin := PosEx('>', Texto, PosIni);
  
  //Obtenemos la Url
  Url := Copy(Texto, PosIni, PosFin-PosIni-1);  
  Ini := Pos('?=', Url);
  Valor := Copy(Url, Ini+2, Length(url)-1); //Valor lo guardas en tu arreglo o StringList
 
  Inc(PosIni);
 end;

Saluditos

[Ñuño Martínez]

Pues sí, parece que lo del código fuente no funciona muy bien, aunque lo he cambiado justo a la vez que tú y ahora se ve bien.

[titomigue]

pues no consigo que me entre en el while...
While PosEx('<a href', Texto, PosIni)>0 Do
se lo salta directamente, y al modificar la condicion "....)=0" entra pero no pilla ningun valor.

Edito: no se que le pasa al 'a href' pero poniendo el protocolo http para buscar la cadena me ha funcionado, muchisimas gracias