Rev 14441 | 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 | |||
14441 | guerimand | 6 | |
7 | |||
23 | reyssat | 8 | scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
9 | !for s=1 to $scnt |
||
12701 | bpr | 10 | sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets |
14441 | guerimand | 11 | !! CAREFUL : need to take two line more than number of line you wish (bug cmd !line ?) |
15763 | guerimand | 12 | sheet_$s=!line 1 to 12 of $(sheet_$s)\ |
23 | reyssat | 13 | \ |
14 | \ |
||
15 | \ |
||
16 | \ |
||
17 | \ |
||
18 | \ |
||
13825 | bpr | 19 | \ |
20 | \ |
||
15763 | guerimand | 21 | \ |
22 | \ |
||
23 | reyssat | 23 | |
24 | !next s |
||
14441 | guerimand | 25 | |
23 | reyssat | 26 | !if $update_field!=0 |
12701 | bpr | 27 | sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet) |
23 | reyssat | 28 | !else |
12701 | bpr | 29 | !mexec sheetshift.sh |
23 | reyssat | 30 | !endif |
14441 | guerimand | 31 | |
23 | reyssat | 32 | !writefile wimshome/log/classes/$wims_class/sheets/.sheets |
33 | !for s=1 to $scnt |
||
12701 | bpr | 34 | !if $s!=$sheet or $update_field!=0 |
13833 | bpr | 35 | sf=!line 1 to 10 of $(sheet_$s) |
12701 | bpr | 36 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf |
37 | !endif |
||
23 | reyssat | 38 | !next s |