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