Rev 12316 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12316 | Rev 12555 | ||
---|---|---|---|
Line 7... | Line 7... | ||
7 | !! update_field : is the number of the field to be modified. |
7 | !! update_field : is the number of the field to be modified. |
8 | !! update_content : new content of the line |
8 | !! update_content : new content of the line |
9 | number_field=10 |
9 | number_field=10 |
10 | ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
10 | ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
11 | !for e=1 to $ecnt |
11 | !for e=1 to $ecnt |
12 | exo_$e=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
12 | exo_$e=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
13 | exo_$e=!line 1 to $number_field of $(exo_$e)\ |
13 | exo_$e=!line 1 to $number_field of $(exo_$e)\ |
14 | \ |
14 | \ |
15 | \ |
15 | \ |
16 | \ |
16 | \ |
17 | \ |
17 | \ |
18 | \ |
18 | \ |
Line 22... | Line 22... | ||
22 | \ |
22 | \ |
23 | \ |
23 | \ |
24 | 24 | ||
25 | !next e |
25 | !next e |
26 | !if $update_field>=0 |
26 | !if $update_field>=0 |
27 | !if $update_field>0 |
27 | !if $update_field>0 |
28 | tmp=!linecnt $(exo_$exo) |
28 | tmp=!linecnt $(exo_$exo) |
29 | !if $update_field > $tmp |
29 | !if $update_field > $tmp |
30 | !for tmp2 = 1 to $[$update_field-$tmp] |
30 | !for tmp2 = 1 to $[$update_field-$tmp] |
31 | exo_$exo=!append line $ $ to $(exo_$exo) |
31 | exo_$exo=!append line $ $ to $(exo_$exo) |
32 | !next |
32 | !next |
- | 33 | !endif |
|
- | 34 | exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo) |
|
- | 35 | !else |
|
- | 36 | exo_$exo=$update_content |
|
33 | !endif |
37 | !endif |
34 | exo_$exo=!replace line number $update_field by $update_content in $(exo_$exo) |
- | |
35 | !else |
- | |
36 | exo_$exo=$update_content |
- | |
37 | !endif |
- | |
38 | !endif |
38 | !endif |
39 | !writefile wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
39 | !writefile wimshome/log/classes/$wims_class/sheets/.sheet$sheet |
40 | !for e=1 to $ecnt |
40 | !for e=1 to $ecnt |
41 | !if $e!=$exo or $update_field>=0 |
41 | !if $e!=$exo or $update_field>=0 |
42 | ef=!line 1 to $number_field of $(exo_$e) |
42 | ef=!line 1 to $number_field of $(exo_$e) |
43 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$sheet :$ef |
43 | !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$sheet :$ef |
44 | !endif |
44 | !endif |
45 | !next e |
45 | !next e |