Subversion Repositories wimsdev

Rev

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