Histórico da Página

...

Function EntreTags(cTexto, cTagIni, cTagFim)
Local cStrRet := '' // Texto que se extraerá y retornará
Local nPosIni := At(cTagIni, cTexto)// Posición inicial de la tag
Local nPosFim := At(cTagFim, cTexto)// Posición final de la tag
cStrRet := Substr(cTexto, (nPosIni + Len(cTagIni)),;
(nPosFim-nPosIni-Len(cTagIni)) )
Return cStrRet

En lugar de utilizar At(cTagIni,cTexto) cada vez que es necesario, se sustituye por nPosIni, que además de evitar la repetición del código, ayuda a saber de forma más clara que su contenido tiene la posición inicial (que en el caso del ejemplo, es la posición inicial de la tag que se buscará).

...