Rev 13833 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13833 | Rev 14441 | ||
---|---|---|---|
Line 4... | Line 4... | ||
4 | # update_content is the new content. |
4 | # update_content is the new content. |
- | 5 | ||
- | 6 | ||
5 | 7 | ||
6 | scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
8 | scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
7 | !for s=1 to $scnt |
9 | !for s=1 to $scnt |
8 | sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets |
10 | sheet_$s=!record $s of wimshome/log/classes/$wims_class/sheets/.sheets |
- | 11 | !! CAREFUL : need to take two line more than number of line you wish (bug cmd !line ?) |
|
9 | sheet_$s=!line 1 to |
12 | sheet_$s=!line 1 to 11 of $(sheet_$s)\ |
10 | \ |
- | |
11 | \ |
- | |
12 | \ |
- | |
13 | \ |
- | |
14 | \ |
13 | \ |
15 | \ |
14 | \ |
- | 15 | \ |
|
16 | \ |
16 | \ |
- | 17 | \ |
|
- | 18 | \ |
|
- | 19 | \ |
|
17 | \ |
20 | \ |
- | 21 | ||
18 | 22 | ||
19 | !next s |
23 | !next s |
- | 24 | ||
20 | !if $update_field!=0 |
25 | !if $update_field!=0 |
21 | sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet) |
26 | sheet_$sheet=!replace line number $update_field by $update_content in $(sheet_$sheet) |
22 | !else |
27 | !else |
23 | !mexec sheetshift.sh |
28 | !mexec sheetshift.sh |
24 | !endif |
29 | !endif |
- | 30 | ||
25 | !writefile wimshome/log/classes/$wims_class/sheets/.sheets |
31 | !writefile wimshome/log/classes/$wims_class/sheets/.sheets |
26 | !for s=1 to $scnt |
32 | !for s=1 to $scnt |
27 | !if $s!=$sheet or $update_field!=0 |
33 | !if $s!=$sheet or $update_field!=0 |
28 | sf=!line 1 to 10 of $(sheet_$s) |
34 | sf=!line 1 to 10 of $(sheet_$s) |
29 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf |
35 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$sf |