So etwas vielleicht

text = {"aaabcdabce", "uuu", "bbABCmmm", "123$77", "3333", "ffeg"}
Select[text, Not[StringFreeQ[#, {"abc", "ABC", "123"}]] &]
Select[text, StringFreeQ[#, {"abc", "ABC", "123"}] &]

words = {"Monkey should!", "Banana?", "Dog", "今 天" , "Mother 指"};
includeChars = {CharacterRange["A", "Z"], CharacterRange["a", "z"], 
    CharacterRange["0", "9"], "!", "?", " "} // Flatten;
words // Select[StringFreeQ[#, Except[includeChars]] &]

(* {"Monkey should!", "Banana?", "Dog"} *)

Hi Christian,

I made up some data

SideVectors[?_] := (#[[2]] - #[[1]]) & /@ 
   Transpose[{?[[1]], tateLeft[?[[1]]]}];

SideLengths[?_] := Norm /@ SideVectors[?];

BarycentricCoords[?_, t_] := 
  Sum[t[[i]] ?[[1, i]], {i, 1, 3}]/Total[t];
TrilinearCoords[?_, {?_, ?_, ?_}] := 
  Module[{a, b, c},
   {a, b, c} = SideLengths[?];
   BarycentricCoords[?, {domWord["CommonWords", 20, Language -> "German"] // 
  Join[#, {"树", "指", "都", "鱼", "刻", "朵", "今天"}] &

includeChars = {CharacterRange["A", "Z"], CharacterRange["a", "z"], 
   CharacterRange["0", "9"], "!"} // Flatten;

words // Select[! StringContainsQ[#, Except[includeChars]] &]

(*
{"Verhandlungsgeschick", "baggern", "Separation", "jure", 
"Rechenschritt", "Kriegsbereit", "Riesenteleskop", "Statusbit", 
"Dreieck", "cineastisch", "demselben", "Andalusier"}
*)

Hi Christian,

I created a sample file wordlist.txt (see attached).

includeChars = {CharacterRange["A", "Z"], CharacterRange["a", "z"], 
    CharacterRange["0", "9"], "!", "?", " "} // Flatten;

wordList = Import["~/wordlist.txt", "Data"]

filtered = wordList // Select[StringFreeQ[#, Except[includeChars]] &]

Export["~/filteredList.txt", filtered]

The file filteredList.txt has the lines that only have the characters in includeChars.

Attachments:

wordlist.txt

Please give an example that can be worked on