Muestra segmentos de cadena delimitadas por varios tipos de separadores

function usr_subcadena ($columns, $col, $param)
#ejem {alias:text..........42:f_u:usr_subcadena:-:2}
#ejem {alias:text..........42:f_u:usr_subcadena:[-|>]:2} Se puede ver el uso de expresiones regulares. CESA-Biblioteca>Recurso
#el orden es de derecha a izquierda, empieza en 1
{
$field =$columns[$col][0][value];
$parameters = split(":",$param);
list($func,$sep,$pos) = $parameters;
$string2array = split($sep,$field);
$string=$string2array[$pos-1];
return $string;
}