>É este arquivo é o formato utilizado em "homebanking".. De fato estas tags sem o < / > no final não são inclusive tão relevantes.. O ideal para mim é a que função xmltocursor (do Rick) simplesmente despressasem elas.. Mas não, quando a funcão encontra um tag sem o equivalente fechamento, ela cancela todo procedimento.. Parece-me que eu vou ter que "correr" para criar uma minha :(

Veja se isto ajuda (feito à pressa que chegou a hora do jantar). Se não fiz burrada, dá para transformar o seu ficheiro .ofc em um documento XML:

DECLARE m.laOFC(1)

ALINES(m.laOFC,_CLIPTEXT)
m.lcXML = ""
FOR EACH m.lcLinha IN m.laOFC
	m.lcXML = m.lcXML + m.lcLinha
	m.lnInicio = AT('<',m.lcLinha)
	m.lnFim = AT('>',m.lcLinha)
	IF !EMPTY(m.lnInicio) AND !EMPTY(m.lnFim) AND SUBSTR(m.lcLinha,m.lnInicio+1,1)!='/'
		m.lcCloseTag = '</'+SUBSTR(m.lcLinha,m.lnInicio+1,m.lnFim-m.lnInicio)
		IF !m.lcCloseTag $ _CLIPTEXT
			m.lcXML = m.lcXML + m.lcCloseTag
		ENDIF
	ENDIF
	m.lcXML = m.lcXML + CHR(13)+ CHR(10)
ENDFOR
? m.lcXML