Subversion Repositories wimsdev

Rev

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 10 of $(sheet_$s)\
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