Lparameters c StuffIt (@c, "s", "'s") *-- remove double apostrophes c=Strtran(c, [''], [']) StuffIt (@c, "it is", "it's") StuffIt (@c, "its", "it's") StuffIt (@c, "your", "you are") StuffIt (@c, "you're", "your") StuffIt (@c, "buy", "by") StuffIt (@c, "ator", "ater") StuffIt (@c, "itor", "iter") StuffIt (@c, "ague", "auge") StuffIt (@c, "separate", "seperate", .t.) StuffIt (@c, "finite", "finate", .t.) StuffIt (@c, "empir", "impir") StuffIt (@c, "emely", "emley") StuffIt (@c, "ately", "atley") StuffIt (@c, "abel", "able") StuffIt (@c, "obel", "oble") StuffIt (@c, "ndal", "ndle") StuffIt (@c, "edly", "idly") StuffIt (@c, "ical", "icle") StuffIt (@c, "etence", "etance") StuffIt (@c, "imiz", "imaz", .t.) StuffIt (@c, "know", "no") StuffIt (@c, " kn", " n") StuffIt (@c, "compatible", "compatable") StuffIt (@c, "character", "charicter") StuffIt (@c, "category", "catagory") StuffIt (@c, "course", "coarse", .t.) StuffIt (@c, "anomaly", "anamoly") StuffIt (@c, "burgundy", "burgandy") StuffIt (@c, "pseudo", "psuedo", .t.) StuffIt (@c, "propag", "propog", .t.) StuffIt (@c, "sight", "site") StuffIt (@c, "huge", "hugh") StuffIt (@c, "nauseam", "nauseum") StuffIt (@c, "quite", "quiet") StuffIt (@c, "quit", "quite") StuffIt (@c, "ridicul", "redicul",.t.) StuffIt (@c, "regard", "reguard",.t.) StuffIt (@c, "reper", "repro", .t.) StuffIt (@c, "semitic", "semetic") StuffIt (@c, "since", "sence") StuffIt (@c, "sense", "since") StuffIt (@c, "lo and", "low and") StuffIt (@c, "wear", "where") StuffIt (@c, "we're", "where") StuffIt (@c, "were", "where") Return c ******************************* Procedure StuffIt(tcOrig, tcS1, tcs2, tlNoSpace) tcCopy=Chrtran(tcOrig, Chr(34)+"![]{}()!#$%&/-_+*?", Space(120)) lcSearchFor=tcS1+Iif(tlNoSpace, "", " ") For i=Occurs(lcSearchFor, tcCopy) To 1 Step -1 nAt=At(lcSearchFor, tcCopy,i) tcOrig=Stuff(tcOrig,nAt,Len(tcS1), tcs2) Endfor