Grep string pattern from file in skill

Hey,

Suppose i have a file.txt in pwd....

I would like to do that when i press Run button in my gui

it would suppose to grep pattern  "Tcl completed,Thanks" from file.txt and print the output i.e "Tcl completed,Thanks" in ciw virtuoso....if grep pattern not found print "error in run".

Any help would be highly appreciated!

Regards,

Srv

Meanwhile i have tried this thing but its not working:-

procedure(Runform(form)
let(( sumfile ftpr port pat)

sumfile = simplifyFilename("getWorkingDir/file.txt")
when(fptr = infile("sumfile")
pat = pcreCompile("Tcl completed,Thanks")
printf("Tcl completed,Thanks\n")
close( fptr )