Subversion Repositories wimsdev

Rev

Rev 12330 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12330 Rev 14334
Line 15... Line 15...
15 
 
 15 
 
16 
nbrec_=!recordcnt $file_
 16 
nbrec_=!recordcnt $file_
17 
newrecord_=$empty
 17 
newrecord_=$empty
18 
!if $num_>1
 18 
!if $num_>1
19 
  !for k_=1 to $num_-1
 19 
  !for k_=1 to $num_-1
20 
	  tmp_=!record $k_ of $file_
 20 
    tmp_=!record $k_ of $file_
21 
	  newrecord_=!append line :$tmp_ to $newrecord_
 21 
    newrecord_=!append line :$tmp_ to $newrecord_
22 
  !next k_
 22 
  !next k_
23 
!endif
 23 
!endif
24 
!if delete notwordof $option_
 24 
!if delete notwordof $option_
25 
  newrecord_=!append line :$data_ to $newrecord_
 25 
  newrecord_=!append line :$data_ to $newrecord_
26 
!endif
 26 
!endif
27 
!if $num_<$nbrec_
 27 
!if $num_<$nbrec_
28 
  !for k_=$num_+1 to $nbrec_
 28 
  !for k_=$num_+1 to $nbrec_
29 
	  tmp_=!record $k_ of $file_
 29 
    tmp_=!record $k_ of $file_
30 
	  newrecord_=!append line :$tmp_ to $newrecord_
 30 
    newrecord_=!append line :$tmp_ to $newrecord_
31 
  !next k_
 31 
  !next k_
32 
!endif
 32 
!endif
33 
!writefile $file_ $newrecord_
 33 
!writefile $file_ $newrecord_