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

 l=!replace internal ; by , in $l

 l=!replace internal $	$ by , in $l

 !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