Subversion Repositories wimsdev

Rev

Rev 8311 | Rev 13361 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8311 Rev 9446
Line 1... Line 1...
1 
!!INPUT name of csv file, keyword to look for
 1 
!!INPUT name of csv file, keyword to look for
2 
!!OUTPUT : position of the keyword, bad item for this keyword :
 2 
!!OUTPUT : position of the keyword, bad item for this keyword :
3 
!! logtest loglist dep_$ltest  got$keyword types ???
 3 
!! logtest loglist dep_$ltest  got$keyword types ???
4 
!! list of types
 4 
!! list of types
5 
!distribute items $wims_read_parm into file,keyword
 5 
!distribute items $wims_read_parm into file,keyword
6 
 
 - 
 
7 
n=!recordcnt $file
 6 
n=!recordcnt $file
8 
!if $n<=0
 7 
!if $n<=0
9 
 !exit
 8 
 !exit
10 
!endif
 9 
!endif
11 
 
 10 
 
Line 13... Line 12...
13 
logtest=
 12 
logtest=
14 
!! look for the position of keyword in the two first lines
 13 
!! look for the position of keyword in the two first lines
15 
!! check if the keyword have more than 4 characters in all lines not commented by #
 14 
!! check if the keyword have more than 4 characters in all lines not commented by #
16 
!for i=1 to $n
 15 
!for i=1 to $n
17 
 l=!record $i of $file
 16 
 l=!record $i of $file
- 
 
 17 
 l=!replace internal ; by , in $l
- 
 
 18 
 l=!replace internal $	$ by , in $l
18 
 !if $(got$keyword)!=$empty
 19 
 !if $(got$keyword)!=$empty
19 
  ltest=!item $(got$keyword) of $l
 20 
  ltest=!item $(got$keyword) of $l
20 
  ll=!wordcnt $ltest
 21 
  ll=!wordcnt $ltest
21 
  !if $ll=1 and # notin $ltest
 22 
  !if $ll=1 and # notin $ltest
22 
   ltest_cnt=!charcnt $ltest
 23 
   ltest_cnt=!charcnt $ltest