{NeoBook Function}
Version=5,70
Language=NeoBook
Param=[%1]|Mixed|Fuente
Param=[%2]|Mixed|Inicio
Param=[%3]|Mixed|Fin
Param=[%4]|Variable|Guardar texto encontrado en
{End}
DebugOff
.TextoEntre - BuNKeR - 2011
SetVar "[TE_Texto]" "![%1]"
StrLen "[TE_Texto]" "[TE_TextoLen]"

Setvar "[TE_Inicio]" "![%2]"
StrLen "[TE_Inicio]" "[TE_InicioEli]"

Setvar "[TE_Fin]" "![%3]"
StrLen "[TE_Fin]" "[TE_FinEli]"

SearchStr "[TE_Inicio]" "[TE_Texto]" "[TE_PosEnc]" ""
If "[TE_PosEnc]" "<>" "0"
    Math "[TE_TextoLen]-[TE_PosEnc]" "0" "[TE_Temp]"
    SubStr "[TE_Texto]" "[TE_PosEnc]+[TE_InicioEli]" "[TE_Temp]" "[TE_Texto]"

    SearchStr "[TE_Fin]" "[TE_Texto]" "[TE_PosEnc]" ""
    If "[TE_PosEnc]" "<>" "0"
        SubStr "[TE_Texto]" "1" "[TE_PosEnc]-1" "[%4]"
    Else
        SetVar "[%4]" "0"
    Endif
Else
    SetVar "[%4]" "0"
Endif

ClearVariables "[TE_Texto],[TE_TextoLen],[TE_Inicio],[TE_Fin],[TE_InicioEli],[TE_FinEli],[TE_PosEnc],[TE_Temp]"
DebugOn
