Hi Klaus,
Du bist ein echter Fuchs 🙂
Als Dank dafür hier mein Skript für eine Wort-Statistik, die eine nach der Häufigkeit des Vorkommens sortierte Liste aller echten Wörter eines Textes erzeugt:
put field "Text" into tText
repeat for each trueword tWord in tText
add 1 to tArray[tWord]
end repeat
repeat for each key myKey in tArray
put mykey & tab & tArray[myKey] & cr after wortstatistik
end repeat
set the itemdelimiter to tab
sort wortstatistik descending numeric by item 2 of each
put wortstatistik into field "WortStatistik"