Subversion Repositories wimsdev

!!!### langage independant

!!

# wims_read_parm is file to update

# update_field is number of field to update (could be 0)

# update_content is the new content of the field

# update_nbline is the number of line of each field (format field to the good number of line : do nothing if empty)

scnt_=!recordcnt $wims_read_parm

!if $update_field<0 or $update_field>$scnt_+1

  error=badfile

  !exit

!endif

!if $update_nbline!=$empty

  blfield_=$empty

  !for k_=1 to $update_nbline

   blfield_=$blfield_\

$empty

  !next k_

!else

  blfield_=$empty

!endif

!! ------------- add a field

!ifval $update_field=$scnt_+1

  !ifval $update_nbline!=$empty

    data_=:$update_content\

$blfield_

    data_=!line 1 to $update_nbline of $data_

  !else

    data_=:$update_content

  !endif

  !appendfile $wims_read_parm $data_

  !exit

!endif

!! ------------- modify a field

!! ----- keep old field

!for s_=0 to $scnt_

  field$(s_)_=!record $s_ of $wims_read_parm

  !if $update_nbline!=$empty

    field$(s_)_=!line 1 to $(update_nbline) of $(field$(s_)_)\

$blfield_

  !endif

!next s_

!! ----- make new field

field$(update_field)_=$update_content

!if $update_nbline!=$empty

  field$(update_field)_=!line 1 to $(update_nbline) of $(update_content)\

$blfield_

!else

  field$(update_field)_=$update_content

!endif

!! ----- save to file

data_=$(field0_)\

$empty

!for k_=1 to $[max($scnt_,$update_field)]

  data_=$data_:$(field$(k_)_)\

$empty

!next k_

!writefile $wims_read_parm $data_

!reset update_field,update_content,update_nbline