División de Expresiones Grandes

Una forma simple de dividir expresiones demasiado grandes para facilitar la lectura del código es utilizar una variable para capturar una subexpresión.

Ejemplo:

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á).

Esta misma técnica puede utilizarse incluso en expresiones más simples para evitar repeticiones de código.