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