Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/DXRS/CDXPCW09.DXR/00006_CDXFindSelection,CDXWhichDatafield.ls

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

on CDXWhichDatafield x
  global CDXSelectedWord, CDXfieldnamesList, CDXDatafield, CDXOperatorList
  repeat with t = 1 to count(x)
    if getAt(getAt(x, t), 2) = CDXSelectedWord then
      set CDXDatafield to getAt(getAt(x, t), 1)
      exit repeat
    end if
  end repeat
end

on CDXFindSelection x
  global CDXSelectedWord
  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 CDXSelectedWord to char FirstLetter to LastLetter of field x
end