Subversion Repositories wimsdev

!!! fichier de traitement des données !!!

## l'étape 1 ##  
!if $navig!=$etape
  !if $obsrecord!=$empty
    obsList=
    rindic=
    pn=!linecnt $obsrecord
    !for i=1 to $pn
      obi=!translate $\
      $ to $ $ in $(obsrecord[$i;])
      obsList=!append line $obi, to $obsList
    !next i
     obpn=!translate $\
     $ to $ $ in $(obsrecord[$pn;])
     obsList=!replace line number $pn by $obpn in $obsList
  !endif
  etape=$navig
  !exit
!endif

!if $obsList=$empty
  exalert=$(alerts[1;])
  !exit
!endif
  
obsnb=!itemcnt $obsList
obsrecord=
ovid=0
!for i=1 to $obsnb
  ob=!item $i of $obsList
  ob=!trim $ob
  ob=!translate $\
  $ to $ $ in $ob
  nv=!charcnt $ob
  !if $nv<3
    ovid=$[$ovid+1]
  !endif
  obsrecord=!append line $ob to $obsrecord
!next i
!if $ovid!=0
  exalert=$(alerts[9;])
  !exit
!endif

!if $propsrecord!=$empty
  propsList=
  pn=!linecnt $propsrecord
  pn=$[$pn-1]

    !for i=1 to $pn
      prop=$(propsrecord[$i;])
      prop=!trim $prop
      !if ; isin $prop
        propsList=!append line $prop, to $propsList
       !else
        propsList=!append line ($prop), to $propsList
      !endif
    !next i
    prop=!char 1 to -2 of $(propsList[$pn;])
    propsList=!replace line number $pn by $prop in $propsList  
!endif

obsList=

!if $indicList!=$empty
  !for i=1 to $obsnb
    dinc=!char 2 of $(indicList[$i;])
    !if $dinc=0
      indicList=!replace line number $i by (0,$ $) in $indicList
    !endif
  !next i
  Lnb=!linecnt $indicList
  !if $Lnb<$obsnb
    !for i=1 to $[$obsnb-$Lnb]
      !append line (0,$ $) to $indicList
    !next i
  !endif
!endif

etape=$[$etape+1]
!exit