Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/DXRS/RVXPCW09.DXR/00006_RVXFindSelection,RVXWhichDatafield.ls

Text File | 1997-06-25 | 606 b | 22 lines

on RVXFindSelection x
  global RVXSelectedWord
  repeat with t = 1 to the number of chars in field x
    if char t of field x <> " " then
      set FirstLetter to t
      exit repeat
    end if
  end repeat
  set LastLetter to the number of chars in field x
  set RVXSelectedWord to char FirstLetter to LastLetter of field x
end

on RVXWhichDatafield x
  global RVXSelectedWord, RVXfieldnamesList, RVXDatafield, RVXOperatorList
  repeat with t = 1 to count(x)
    if getAt(getAt(x, t), 2) = RVXSelectedWord then
      set RVXDatafield to getAt(getAt(x, t), 1)
      exit repeat
    end if
  end repeat
end