MASPC 1/MASPC_1.iso/CursoWordI/AUTIL.DXR/00009.ls

Text File | 1998-07-20 | 919 b | 29 lines

on docargades codigo
  global zinstala, zejecuta, zruta, zutilactiva, zinstalac, zejecutac
  set save to the itemDelimiter
  set the itemDelimiter to "#"
  set n to the number of items in field "contenidos"
  set total to item value(codigo) + 1 of field "contenidos"
  set the itemDelimiter to ">"
  set the text of field "texto" to item 2 of total
  set the foreColor of line 1 of field "texto" to 3
  set zruta to 0
  set zinstala to 0
  set zejecuta to 0
  set zinstalac to EMPTY
  set zejecutac to EMPTY
  if word 1 of item 3 of total = "RI" then
    set zinstala to 1
    set zinstalac to word 2 of item 3 of total
  end if
  if word 1 of item 4 of total = "RE" then
    set zejecuta to 1
    set zejecutac to word 2 of item 4 of total
  end if
  if word 1 of item 5 of total = "RO" then
    set zruta to 1
    set the text of field "ruta" to word 2 of item 5 of total
  end if
  set the itemDelimiter to save
end