Código

Hola buen día verara tengo este código que recupera los datos de entre <emisor>y </emisor>, y est ee smi código
*SET MEMOWIDTH TO 9999
L=FILETOSTR('titulo.txt')&& Este es el archivo que guarda los datos contenidos entre '<Conceptos>' y '</Conceptos>'
A1=0&&variable que guarda la linea de donde se encuentra ubicado '<Conceptos>'
A2=0&&variable que guarda la linea de donde se encuentra ubicado '</Conceptos>'
ex=0
FOR a=1 TO  MEMLINES(L)
cCadena=MLINE(L,A)
IF ALLTRIM(Ccadena)='<Conceptos>'
A1=A+1
ENDIF
IF ALLTRIM(Ccadena)='</Conceptos>'
A2=A-1
ENDIF
IF A1>0 .AND. A2>0
cCadena=MLINE(l,(A1-1))
*THISFORM.List1.AddItem(CHRTRAN(cCadena,'/>',''))
IF  SUBSTR(Ccadena,1,1) <> "nombre="
    ex= STREXTRACT(Ccadena,"nombre='","'")
    thisform.text24.Value = ex
  ELSE
     ex= STREXTRACT(Ccadena,'nombre="','"')
     thisform.text24.Value = ex
  Endif
Endif
Endfor
Gracias de ante mano