Subversion Repositories wimsdev

Rev

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