Rev 7290 | Rev 13825 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1971 | guerimand | 1 | !!!### langage independant |
2 | !! |
||
23 | reyssat | 3 | # update_field is number of field to update |
4 | # update_content is the new content. |
||
5 | |||
6 | scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
7 | !for s=1 to $scnt |
||
12701 | bpr | 8 | sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets |
9 | sheet_$s=!line 1 to 8 of $(sheet_$s)\ |
||
23 | reyssat | 10 | \ |
11 | \ |
||
12 | \ |
||
13 | \ |
||
14 | \ |
||
15 | \ |
||
16 | |||
17 | !next s |
||
18 | !if $update_field!=0 |
||
12701 | bpr | 19 | sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet) |
23 | reyssat | 20 | !else |
12701 | bpr | 21 | !mexec sheetshift.sh |
23 | reyssat | 22 | !endif |
23 | !writefile wimshome/log/classes/$wims_class/sheets/.sheets |
||
24 | !for s=1 to $scnt |
||
12701 | bpr | 25 | !if $s!=$sheet or $update_field!=0 |
26 | sf=!line 1 to 8 of $(sheet_$s) |
||
27 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf |
||
28 | !endif |
||
23 | reyssat | 29 | !next s |