Search text on RTF with lingo

Question

dear all ...
can help me?..
I make glossary with RTF text because on RTF Text is easy to change content but can help me to make search text or word on RTF text with lingo..?
Thankyou

Answer 1

Changing the BG colour of a chunk of text is not easy. It can be done with some imaging-lingo hoop-jumping, or by having a pool of shape sprites that can be dynamically allocated, sized and positioned.
Place the following in a JavaScript typed #movie script:
function jsSearch (aString, aMatch) {
  var aPattern = new RegExp(aMatch, "gi");
  var found;
  var results = list();
  while((found = aPattern.exec(aString)) != null) {
    results.append(found.index);
  return results;
and this in a "regular" Lingo #movie script:
on mHighlightMatches aMember, aString
  -- error check inputs
  if ilk(aMember, #member) = 0 then
    aMember = member(aMember)
    if ilk(aMember, #member) = 0 then
      exit
    end if
  end if
  if stringP(aString) = 0 then aString = string(aString)
  if stringP(aString) = 0 then exit
  -- will only work with #text nmembers
  if (aMember.type <> #text) then exit
  aMember.color = rgb(0, 0, 0)
  len = length(aString)
  lMatchPositions = jsSearch(aMember.text, aString)
  if count(lMatchPositions) = 0 then
    alert "Search text not found"
  else
    repeat with aStart in lMatchPositions
      aMember.char[aStart..(aStart + len)].color = rgb(255, 255, 0)
    end repeat
  end if
end
and now your button script might look like:
on mouseUp me
  mHightlightMatches(member("text2"), member("text1").text)
end