Subversion Repositories wimsdev

sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
!bound numshowsheet between integer 1 and $sheetcnt default 1
!set shs_title=
nbexototal=0
!for j = 1 to $sheetcnt
  nbexo$j=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$j
  nbexototal=$[$nbexototal + $(nbexo$j)]
  t_=!record $j of wimshome/log/classes/$wims_class/sheets/.sheets
  !distribute line $t_ into a_,bidon,ti_
  a_=!char 1 of $a_
  activ=!append item $a_ to $activ
  shs_title=!append line $ti_ to $shs_title
!next
shs_title=!replace internal , by , in $shs_title
shs_title=!lines2items $shs_title

!set activlist=!positionof item 0 in $activ
!set listtot=!makelist x for x = 1 to $sheetcnt
!set activlist=!listcomplement $activlist in $listtot
!set activlist_cnt=!itemcnt $activlist