Waplocus: Using the below code <!--parser:x

Waplocus

Waplocus Using the below code

<!--parser:xtscript-->
/* INITIALIZE VARS */
var $linkId=1
var $spc = call chr $val=32
var $path= <xt:url type="path" />/
var $offset=0
var $len=call strlen $val=$path
/* MAIN DIV*/
print <div class="RolWrap"> » $spc
/* MAIN LOOP START*/
@loop
var $strt = call strpos $haystack=$path;$needle=/;$offset=$offset
var $end= call strpos $haystack=$path;$needle=/;$offset=($strt+1)
var $link=call substr $val=$path;$start=0;$length=$end
var $linktext=call substr $val=$path;$start=($strt+1);$length=($end-$strt-1)
/* EXIT IF INDEX FILE */
if $linktext == index 
goto @end
endif
/* LINKS */
if $strt >1
print $spc » $spc
endif
print <a href="$link" id="RolCont$linkId"> $linktext </a>
/* MAIN LOOP END */
var $offset=($strt+1)
var $linkId=($linkId+1)
if  $end < ($len-1)
goto @loop
endif
/* END */
@end
print </div>
<!--/parser:xtscript-->

# 2017-11-05 03:45 (edited 2017-11-08 07:17 by Graham ) · (0)