Find
[stream, text]stream = OpenRead["ExampleData/EinsteinSzilLetter.txt", CharacterEncoding->"UTF8"];
Find[stream, "uranium"]
Find[stream, "uranium"]
stream = OpenRead["ExampleData/EinsteinSzilLetter.txt", CharacterEncoding->"UTF8"];
Find[stream, {"energy", "power"} ]
Find[stream, {"energy", "power"} ]