Extraer tokens estilo <Tag>

[hmpaquito]

Pues eso. Teniendo una cadena tal que asi:

"Nombre: <Tag_desconocido1> Apellidos <Tag_desconocido2>"

Necesito extraer <Tag_desconocido1> y <Tag_desconocido2> o guardarlos en un array.

¿ Tendria que ser recorriendo la cadena ? ¿ alguna funcion tipo token para ello ?

Gracias

[Carlos Mora]

Hola hmpaquito,

imagina que partimos la cadena usando '>' como separador. No uso hb_atokens, pero creo que hb_atokens( cString, '>' ) me da un array de elementos que, a excepción del último, terminan en algo así como 'algo<tagN", por lo que usando rat() en cada elemento hasta el penúltimo podrás extraer los tags que estas buscando.
Espero haberme explicado. Un saludo

[hmpaquito]

Carlos,

Te agradezco tu interés.
Yo buscaba a ver si Harbour tuviera una funcion que directamente hiciera eso: una funcion a la que se le pasa los delimitadores y devuelve cada ocurrencia.
A vuela pluma, he hecho esta sin probar:

Code: Select all  Expand view

/*
   // Ejemplo de llamada:

   // Con lo siguiente obtendremos un array con los elementos:
   // {"cable", "enchufe", "mesa", "silla"}
   cFrase:= "elementos electricos <cable> y <enchufe>. elementos de madera <mesa> y <silla>"
   aTag:= aTags(cFrase, "<", ">")
   
*/
//------------------------------------------------------//
FUNCTION aTags(cTex, cDelim1, cDelim2)
Local aTag:= {}, cTag:= NIL, i

FOR i:= 1 to Len(cTex)
   cCar:= SubStr(cTex, i, 1)
   if cCar == cDelim1 .OR. cCar == cDelim2
       IF cCar == cDelim1
           cTag:= ""
       ENDIF  
       IF cCar == cDelim2 .AND. cTag != NIL
           Aadd(aTag, cTag)
           cTag:= NIL
       ENDIF
   ELSEIF cTag != NIL
       cTag+= cCar
   endif
NEXT
RETURN aTag