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 |