Subversion Repositories wimsdev

!! updatefield of a record
!! wims_read_parm should be by line :
!! file
!! num of field
!! optionword
!! all other lines : new data for the field num
!!
!! option allow :
!! delete : in this case field num will be deleted

file_=!line 1 of $wims_read_parm
num_=!line 2 of $wims_read_parm
option_=!line 3 of $wims_read_parm
data_=!line 4 to -1 of $wims_read_parm

nbrec_=!recordcnt $file_
newrecord_=$empty
!if $num_>1
  !for k_=1 to $num_-1
    tmp_=!record $k_ of $file_
    newrecord_=!append line :$tmp_ to $newrecord_
  !next k_
!endif
!if delete notwordof $option_
  newrecord_=!append line :$data_ to $newrecord_
!endif
!if $num_<$nbrec_
  !for k_=$num_+1 to $nbrec_
    tmp_=!record $k_ of $file_
    newrecord_=!append line :$tmp_ to $newrecord_
  !next k_
!endif
!writefile $file_ $newrecord_