Extracting Keywords for Glossary

[The Shadow]

I've extended one of my custom function examples, and I think I may have stumbled onto something that could actually be useful. ( Custom Functions are a FM Developer 7 feature only, but you can see it work if you have FM7.)

It extracts all italic words from a piece of text into a newline-seperated list, which could be used to drive a portal to show similar articles, or a glossary of terms.

You can see it in action by downloading the Style-Manipulation example from my website:

http://www.spf-15.com/fmExamples/

[mse]

... I think I may have stumbled onto something that could actually be useful...

Mmm...that would be nice to have a Keywords Checker (against a predefined Keyword List) for a text dropped, with extraction of the keywords present in the text

[The Shadow]

Here's a custom function that does the extraction:

Call it with n being 1, and the wordList being a newline-separated list of keywords.

ExtractKeywords( text; n; wordList ) =

Let ( word = MiddleWords( txt; n; 1 );

If ( IsEmpty(word); "";

If ( not IsEmpty( FilterValues( word; wordList ) );

word &

[mse]

Nice : compact, and reasonably fast (extracted some 100 words from a 4-page text against 350 keywords in 19 sec). A good starting/reference point for further development

Thank you