Subversion Repositories wimsdev

!!INPUT name of csv file, keyword to look for
!!OUTPUT : position of the keyword, bad item for this keyword :
!! logtest loglist dep_$ltest  got$keyword types ???
!! list of types
!distribute items $wims_read_parm into file,keyword

n=!recordcnt $file
!if $n<=0
 !exit
!endif

loglist=
logtest=
!! look for the position of keyword in the two first lines
!! check if the keyword have more than 4 characters in all lines not commented by #
!for i=1 to $n
 l=!record $i of $file
 !if $(got$keyword)!=$empty
  ltest=!item $(got$keyword) of $l
  ll=!wordcnt $ltest
  !if $ll=1 and # notin $ltest
   ltest_cnt=!charcnt $ltest
   !if $ltest_cnt<4
     bad_$keyword=!append item $ltest to $(bad_$keyword)
   !else
     loglist=!append item $ltest to $loglist
     !if @ isin $ltest or . isin $ltest
!!!FIXME bidouillage - useful only to be able to define a variable dep_$ltest
!!! replace by writing in a file ???
      ltest=!replace internal @ by _____ in _$ltest
      ltest=!replace internal . by 555555 in __$ltest
      ltest=!replace internal - by 666666 in __$ltest
      !!!!modification necessaire car les noms de variables ne peuvent pas
      !!!!contenir @ ; aucun login commencant par _ ne peut avoir été accepté,
      !!!!donc il n'y a pas de confusion possible
     !endif
     logtest=!append item $ltest to $logtest
   !endif
   dep_$ltest=$l
  !endif
 !else
  !if $i>3
   !exit
  !endif
  !if $keyword isitemof $l
   l=!lower $l
   types=!nospace $l
   got$keyword=!positionof item $keyword in $l
   got$keyword=!item 1 of $(got$keyword)
  !endif
 !endif
!next i